XProTec.au3 = automated Protect and get Paid

autocomplex · September 18, 2007

i dont know why, but the license is defaulting to Email.

I put ...

$D_Mail = "inline853@aol.com" ; your email
$D_Program = "RS - HYBERMINER v124" ; your program name
$U_Price = "1.00" ; the amount of money you wish to be payed by the user
$U_Trial = "30" ; amount of days for the trial period
$U_License = "3" ; 3 = one computer only - see license notes
$D_License = "1" ; developers license #
$D_PayPal = "www.paypal.com/my account-link to paypal" ; - paypal link
$D_Link = "www.mywebsite.com/.../" ; looks for "www.mywebsite.com/.../Blacklist.txt" ; see Blacklist
$U_Return = 1 ; pay or quit .... or  $U_Return = 0 ; will return control to developer with @extended = 6 [Limited Freeware Option]oÝ÷ ØCjëh×6XProTec($D_Mail, $D_Program, $U_Price, $U_Trial, $U_License, $D_License, $D_PayPal, $D_Link, $U_Return)

$XLicense = XProTec("inline853@aol.com","RS - HYBERMINER v124", "1.00", "0")
If @error Then
    MsgBox(0, "Error " & @error, $XLicense & "  " & @CRLF & "License Type = " & @extended)
    Exit
Else
    MsgBox(0, "No Error " & @error, $XLicense & "  " & @CRLF & "License Type = " & @extended)
EndIf

Valuater · September 18, 2007

i dont know why, but the license is defaulting to Email.

I put ...

$D_Mail = "inline853@aol.com" ; your email
$D_Program = "RS - HYBERMINER v124" ; your program name
$U_Price = "1.00" ; the amount of money you wish to be payed by the user
$U_Trial = "30" ; amount of days for the trial period
$U_License = "3" ; 3 = one computer only - see license notes
$D_License = "1" ; developers license #
$D_PayPal = "www.paypal.com/my account-link to paypal" ; - paypal link
$D_Link = "www.mywebsite.com/.../" ; looks for "www.mywebsite.com/.../Blacklist.txt" ; see Blacklist
$U_Return = 1 ; pay or quit .... or  $U_Return = 0 ; will return control to developer with @extended = 6 [Limited Freeware Option]oÝ÷ ØCjëh×6XProTec($D_Mail, $D_Program, $U_Price, $U_Trial, $U_License, $D_License, $D_PayPal, $D_Link, $U_Return)

$XLicense = XProTec("inline853@aol.com","RS - HYBERMINER v124", "1.00", "0")
If @error Then
    MsgBox(0, "Error " & @error, $XLicense & "  " & @CRLF & "License Type = " & @extended)
    Exit
Else
    MsgBox(0, "No Error " & @error, $XLicense & "  " & @CRLF & "License Type = " & @extended)
EndIfoÝ÷ Ûú®¢×¢æ«zë"aysë¡7ªê-q©eªê-·{}÷Þ+pYgz÷«Âämsë¡7ý½7è3]7è3ë¢
ÚMúPúâqí7éDë©tß¥Ç§±í7è2âqéì{Múö²=©tß Ëy4ß¥zÛ«Mú¸z{

However, this is for testing only, please use the free version and your server for actual use

8)

Edited September 18, 2007 by Valuater

Steve1040 · September 18, 2007

Can you provide a high level process flow?

Actually, after the release of the free version, I dont support the "donation" version.
8)

Free version?

Now I'm confused even more.

Do I still donate to Autoit?

If not what does the Paypal variable do now?

I can't actually compile until I get home but here is what I edited

$D_Mail = "mad@swbell.net " ; your email

$D_Program = "Mad" ; your program name

$U_Price = "14.00" ; the amount of money you wish to be payed by the user

$U_Trial = "3" ; amount of days for the trial period

$U_License = "3" ; 3 = one computer only - see license notes

$D_License = "1" ; developers license #

$D_PayPal = "www.paypal.com/my account-link to paypal" ; - paypal link

$D_Link = "www.mywebsite.com/.../" ; looks for "www.mywebsite.com/.../Blacklist.txt" ; see Blacklist

$U_Return = 1 ; pay or quit .... or $U_Return = 0 ; will return control to developer with @extended = 6 [Limited Freeware Option]

XProTec($D_Mail, $D_Program, $U_Price, $U_Trial, $U_License, $D_License, $D_PayPal, $D_Link, $U_Return)

; your script starts here ..............

Valuater · September 18, 2007

Free version?

Now I'm confused even more.

Do I still donate to Autoit?

The "free" version uses your server... it is located at the top of the first thread

... Yes you may donate to Autoit anytime you like, you do not "need" to donate while using the free version.

The way to tell the difference is the free code you can read the other code you cannot "read"

free version

#cs ===============================================================================
    *XProTec - Free Version f1.0.0 - 04.09.2007
    Autor:         Robert M @ QT Appraisal
    E-mail:        Valuater@aol.com
    Language:    English
    OSystem:     Windows Xp
    Features:     -Automated Program
                -Register Users
                -Receive Payment
                -Program Protection
    Requirements: Legal copy of Microsoft Windows Xp
    Construction: AutoIt 3.2.2.0+, SciTE 1.73
    
    Thanks to all, Enjoy...
#ce ===============================================================================oÝ÷ Ø:'jØ¨÷«²*'lºh®×jëh×6; XProTec v1.0.5 - March 18, 2007
; Thanks.... Valuater

Global Const $1A2A92A433E39D3D = Round(99/3+15*100/4-13^2+81/3-17-245+99/3+15*100/4-13^2+81/3-17)
Global Const $1AAA926443E3983D = X0943DE373F2015935('5859', $1A2A92A433E39D3D)
Global Const $1A2A927443E3989D = X0943DE37D12015935('64657C5E5E5E7C5E5E637C605F7C66647C605F7C63647C5E5E5E7C5E5D667C5E5E5F7C5E5D627C5E5D657C5E5D5E7C5E5D5D7C605F7C655D7C5E5E617C5E5E5E7C5E5D607C5E5E617C66647C5E5D667C', $1AAA926443E3983D)
Global Const $182F92A443E3983D = X0943DE37D12015935('63667C655F7C655F7C64667C655F7C605F7C61627C605F7C64657C5E5E5E7C5E5E637C605F7C66647C605F7C65637C66647C5E5D657C5E5D627C5E5D5D7C605F7C655D7C5E5E617C5E5E5E7C5E5D607C5E5E617C66647C5E5D667C605F7C64657C66647C5E5D667C5E5D5E7C605F7C605F7C605F7C605F7C605F7C', $1AAA926443E3983D)
Global Const $1A2A92A443EF953D = X0943DE37D12015935('665F7C65657C65617C5E5D5E7C5E5D667C5E5E5F7C61637C5E5E637C5E5F5D7C5E5E637C', $1AAA926443E3983D)
Global Const $1A2A92A443E3900D = X0943DE37D12015935('63617C63647C5E5D657C5E5D627C66667C5E5D647C65617C66647C5E5E627C5E5D647C61637C66667C5E5E5E7C5E5D667C', $1AAA926443E3983D)
Global Const $1A2092A493E3983D = X0943DE37D12015935('645D7C5E5E647C5E5D5D7C5E5D607C5E5D5E7C', $1AAA926443E3983D)
Global Const $1A4AC2A443E3983D = X0943DE37D12015935('A35E5B5D5B5D', $1AAA926443E3983D)
Global Const $1A2A92A44613983D = X0943DE37D12015935('757872868C797C706E798C7A6E7075767B7289807C7381846E7F72897A96909F9CA09C93A18984969B919CA4A04D7B818970A29F9F929BA183929FA0969C9B', $1AAA926443E3983D)
Global Const $1A2A52A443E3983D = X0943DE37D12015935('7F929496A0A1929F92917CA49B929F', $1AAA926443E3983D)
Global Const $1A2A92A483C3983D = X0943DE37D12015935('85', $1AAA926443E3983D)
Global Const $1A2992A44CE3983D = X0943DE37D12015935('6D', $1AAA926443E3983D)
Global Const $1A2A920443E3083D = X0943DE37D12015935('6E', $1AAA926443E3983D)
Global Const $1A2A975443E3983D = X0943DE37D12015935('87', $1AAA926443E3983D)
Global Const $1A2392A44CE3983D = X0943DE37D12015935('5A', $1AAA926443E3983D)
Global Const $1A2A9EA44FE3983D = X0943DE37D12015935('9B', $1AAA926443E3983D)
Global Const $1D2A92A443E3984D = X0943DE37D12015935('89A4969B9C9DA0A6A05B918EA1', $1AAA926443E3983D)
Global Const $1A2A94A443E39A3D = X0943DE37D12015935('65657C655D7C5E5E617C5E5E5E7C65617C5E5D5E7C66667C', $1AAA926443E3983D)
Global Const $1A2A92A443E3E83D = X0943DE37D12015935('64657C5E5E5E7C5E5E637C605F7C66647C605F7C65637C66647C5E5D657C5E5D627C5E5D5D7C605F7C63657C5E5D5E7C5E5E657C5E5D5E7C5E5D657C5E5E5E7C5E5E5F7C5E5D5E7C5E5E617C605F7C655D7C5E5E617C5E5E5E7C5E5D607C5E5E617C66647C5E5D667C', $1AAA926443E3983D)

8)

Global Const $1ACA92A443EB983D = X0943DE37D12015935('5B', $1AAA926443E3983D)

8)

Steve1040 · September 19, 2007

OK I've made alot of progress but I have a couple of question.

1. What is the proper format of Blacklist ( Is it comma delimited)

2. What causes the Fatal com error?

I'm suspecting it's because I'm using my SBC email account which uses yahoo.com

Here is my server info with the important stuff #### hidden

Global $smtpserver = "smtp.att.yahoo.com"

Global $sendusername = "#######@swbell.net"

Global $sendpassword = "####"

my port is 465

I changed that value here

With $objMessage.Configuration.Fields

.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = $smtpserver

.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1

.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = $sendusername

.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = $sendpassword

.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465

.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60

Edited September 19, 2007 by Steve1040

SmOke_N · September 19, 2007

OK I've made alot of progress but I have a couple of question.
1. What is the proper format of Blacklist ( Is it comma delimited)
2. What causes the Fatal com error?
I'm suspecting it's because I'm using my SBC email account which uses yahoo.com
Here is my server info with the important stuff #### hidden
Global $smtpserver = "smtp.att.yahoo.com"
Global $sendusername = "#######@swbell.net"
Global $sendpassword = "####"
my port is 465
I changed that value here
With $objMessage.Configuration.Fields
.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = $smtpserver
.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = $sendusername
.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = $sendpassword
.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60

http://www.autoitscript.com/forum/index.ph...st&p=404816

chazzmani · September 20, 2007

Questions:

1) It appears as though you need to put your server, username, and password into the script. If someone decompiles the script, wouldn't they have all of your sensitive information?

2) Where are the license notes to further explain "$U_License = "3" ; 3 = one computer only - see license notes"

3) I dl'd the free version and I am unclear where I would put my script in relation to everything you created. If I put my script where you say "your script starts here", then my code would precede your code. Is that right? I figured your code would need to be higher up than mine within the script (but then I am just a noob... what do I know?).

Thanks in advance...

Edited September 20, 2007 by chazzmani

Valuater · September 20, 2007

Questions:

1) It appears as though you need to put your server, username, and password into the script. If someone decompiles the script, wouldn't they have all of your sensitive information?

2) Where are the license notes to further explain "$U_License = "3" ; 3 = one computer only - see license notes"

3) I dl'd the free version and I am unclear where I would put my script in relation to everything you created. If I put my script where you say "your script starts here", then my code would precede your code. Is that right? I figured your code would need to be higher up than mine within the script (but then I am just a noob... what do I know?).

Thanks in advance...

1

A. - Use the Obfuscater by JdeB in this same forum

B. - I believe the latest release of Autoit can not be decompiled to Autoit code

2 On the first page of this thread. Atually it should be pretty obvious

User License Levels:

1 = email license
2 = windows registered owner license
3 = One computer only license

note... license level has no effect on the following
if user trial = 0 days and user price = 0.00 then user email validation only ( free program )
if user trial > 0 days and user price = 0.00 then at the end of the trial period = notify & exit only

however...
if user trial = 0 days and user price > 0.00 then user must pay or quit ( no trial period and $U_Return = 1)
the user's license type is still in effect

3 This is correct...

[b][b]#include<XProTec.au3> ; MUST BE AN INCLUDE

$D_Mail = "developer@msn.com " ; your email
$D_Program = "My_Program_Name" ; your program name
$U_Price = "20.00" ; the amount of money you wish to be payed by the user
$U_Trial = "30" ; amount of days for the trial period
$U_License = "3" ; 3 = one computer only - see license notes
$D_License = "123456789" ; developers license # 
$D_PayPal = "www.paypal.com/my account-link to paypal" ; - paypal link 
$D_Link = "www.mywebsite.com/.../" ; looks for "www.mywebsite.com/.../Blacklist.txt" ; see Blacklist
$U_Return = 1 ; pay or quit .... or  $U_Return = 0 ; will return control to developer with @extended = 6 [Limited Freeware Option]

XProTec($D_Mail, $D_Program, $U_Price, $U_Trial, $U_License, $D_License, $D_PayPal, $D_Link, $U_Return)

; your script starts here ..............

Hope that helps

8)

Edited September 20, 2007 by Valuater

chazzmani · September 21, 2007

Thanks for the reply, I do appreciate it. I only ask questions if something in the message thread doesn't quite make sense. Some items (like the concept of "license notes") aren't necessarily intuitive. I was looking for a documented artifact and didn't know that your quick blurb on page 1 was considered your "license notes".

Anyway... in the free version... where would we get the dev license number? It is currently listed as "1" and it sounds like a new number gets sent to us when we donate to AutoIt. But if the free version doesn't ask for the donation, does this number change or do we leave it as "1"?

Also... in the line where you put the location for the blacklist, does the URL need to include the blacklist.txt file at teh end or only up until the file? Meaning, which is correct:

"www.mywebsite.com/.../" <=== in this case, it knows it is looking for blacklist.txt

"www.mywebsite.com/.../blacklist.txt" <=== in this case the file is in the URL

Thanks again.

Edited September 21, 2007 by chazzmani

Valuater · September 21, 2007

I was looking for a documented artifact and didn't know that your quick blurb on page 1 was considered your "license notes".

Thats one approach to ask for free help...

But if the free version doesn't ask for the donation, does this number change or do we leave it as "1"?

1 should work ...Have you tried it?

does the URL need to include the blacklist.txt file at teh end?

No, just check the code ...Have you looked?

If InetGet($D_Link & "Blacklist.txt", $rtemp, 1) = 1 Then

I have a paypal account but was not aware of any way to have a link that goes straight to a page where people can pay me.

You get that from paypal, not me .... wonna try mine and send some money

"www.paypal.com/xclick/business=Admin@ClickTask.com&amount=10%2e95&page_style=Primary&no_shipping=1&item_name=1Click-Optimizer"

8)

Edited September 21, 2007 by Valuater

SmOke_N · September 21, 2007

You get that from paypal, not me .... wonna try mine and send some money
"www.paypal.com/xclick/business=Admin@ClickTask.com&amount=10%2e95&page_style=Primary&no_shipping=1&item_name=1Click-Optimizer"

ClickTask.com is not accepting anonymous donations.

chazzmani · September 21, 2007

Have you tried it?

I've been monkeying with it for a couple of days now and I think I am getting closer to figuring it out. For a while, I kept getting a strange error:

"$smtpserver: Variable used without being declared" even though that line of code existed in the script (Global $smtpserver = "smtp.gmail.com"). I moved that line down in the code so it occurred immediately before the constant was called and the problem went away.

Now, I am getting the fatal COM error. Stuck again... any ideas?

Edited September 23, 2007 by chazzmani

Valuater · September 22, 2007

... Ahmmm, its "Nothing smaller than $100.00 US"

lol

8)

Valuater · December 3, 2007

@ (lyledg in Autoit forums)

Thank you for the support to Autoit!

8)

Valuater · December 14, 2007

I got this error when I entered my script name

ERROR - Not a Valid Program Name #1

This has been covered here before, anyways the name of your program MUST be the same name as you placed in the script.

it protects your program from running if the user changes the name of the program. at least you can see that it works

ok

[b][b]#include<XProTec.au3> ; MUST BE AN INCLUDE

$D_Mail = "developer@msn.com " ; your email
$D_Program = "My_Program_Name" ; your program name
$U_Price = "20.00" ; the amount of money you wish to be payed by the user
$U_Trial = "30" ; amount of days for the trial period
$U_License = "3" ; 3 = one computer only - see license notes
$D_License = "123456789" ; developers license # 
$D_PayPal = "www.paypal.com/my account-link to paypal" ; - paypal link 
$D_Link = "www.mywebsite.com/.../" ; looks for "www.mywebsite.com/.../Blacklist.txt" ; see Blacklist
$U_Return = 1 ; pay or quit .... or  $U_Return = 0 ; will return control to developer with @extended = 6 [Limited Freeware Option]

XProTec($D_Mail, $D_Program, $U_Price, $U_Trial, $U_License, $D_License, $D_PayPal, $D_Link, $U_Return)

; your script starts here ..............

your $D_Program ( developers program ) must be the same as the compiled name you give your program.

$D_Program = "MyProgramName"

and your program should be MyProgramName.exe ( after compiled )

Got it ???

8)

Edited December 14, 2007 by Valuater

ReaImDown · December 16, 2007

anyone got a server I can leech off of? lol

Confuzzled · December 16, 2007

anyone got a server I can leech off of? lol

Sorry - nope!

ReaImDown · December 18, 2007

There are "A LOT" of free ones out there.. just start searching and you will find some that will work
8)

Global $smtpserver = "YOUR_SERVER"
Global $sendusername = "YOUR_SERVER_USER_NAME"
Global $sendpassword = "YOUR_SERVER_USERS_PASSWORD"

is that a webserver? if so, I own www.get-fucked.net, would that work?

N4rk0 · January 27, 2008

When user register and pay product , should i receive an e-mail with notification ? I tried , but i (developer ) didn't received any notification , only user received is activation code.... is this my fault or xprotect doesn't have this feature?

N4rk0 · January 27, 2008

I tried using the same e-mail for seller and buyer .... if i try with different mails all work good

Great script!

Sign In

XProTec.au3 = automated Protect and get Paid

Recommended Posts

autocomplex

Top Posters In This Topic

Top Posters In This Topic

Popular Posts

Valuater

Valuater

alexutu2013

Posted Images

Valuater

Steve1040

Valuater

Steve1040

SmOke_N

chazzmani

Valuater

chazzmani

Valuater

SmOke_N

chazzmani

Valuater

Valuater

Valuater

ReaImDown

Confuzzled

ReaImDown

N4rk0

N4rk0

Create an account or sign in to comment

Create an account

Sign in

Recently Browsing 0 members

Browse

AutoIt Resources

Release

Beta

XProTec.au3 = automated Protect and get *Paid*

Recommended Posts

Top Posters In This Topic

Top Posters In This Topic

Popular Posts

Valuater

Valuater

alexutu2013

Posted Images

Create an account or sign in to comment

Create an account

Sign in

Recently Browsing 0 members

XProTec.au3 = automated Protect and get Paid