MasterX Posted July 1, 2008 Share Posted July 1, 2008 (edited) XProTec doesn´t work for me, so i made my own protect script Get paid for your program You have to create a settings.ini file and make the user download it with your program. And you have to set up the variables. Implement this into your program. expandcollapse popup$Pname = "U-Bot" ;Your programm name $Trial = "0";Trial Time $Cost = "05.00";Your Cost $Paypal = "paypal.de"; Your Paypal Pay site, create a paypal paybutton www.paypal.com/de/cgi-bin/webscr?cmd=_web-tools $license= "1";1 for monthly fee ,2 for only one payment. $time = "30"; time for monthly fee $limit= "1"; pc limit 1 one pc 0 not limited If $limit = 1 Then If FileExists(@ScriptDir & "\settings.ini") = 0 Then MsgBox(0,$Pname,"Error, settings not found") Else If IniRead("settings.ini","1","2","") = "1" Then If DriveGetSerial(@HomeDrive) = IniRead("settings.ini","1","1","") Then Else MsgBox(0,$Pname,"You didn´t buy the program") Exit EndIf Else IniWrite("settings.ini","1","2","1") IniWrite("settings.ini","1","1",DriveGetSerial(@HomeDrive)) EndIf EndIf EndIf $EndD = RegRead("HKEY_Current_User\Software\Microsoft\Windows\Current Version\Settings\Master\Settings", "1") If $EndD = Not "" Then If $EndD >= @YDAY Then Local $PR1 = "Trial Period = " & $Trial & " Days " & @CRLF & @CRLF & "Register Fee = $" & $Cost Local $PR2 = " " & @CRLF & @CRLF & "Would you like to Register Now? " & @CRLF & @CRLF Local $PR3 = "*Ok* to Register Now!" & @CRLF & "*Cancel* to Quit Registration." & @CRLF $mbox = MsgBox(1, $Pname, $PR1 & $PR2 & $PR3) If $mbox = 1 Then If FileExists(@HomeDrive & "\Programme\Internet Explorer\iexplore.exe") Then run(@HomeDrive & "\Programme\Internet Explorer\iexplore.exe") WinActivate("") Sleep(1000) MouseMove(@DesktopWidth/2,@DesktopHeight/7,0) Sleep(100) MouseClick("") Sleep(100) Send($Paypal) Sleep(100) Send("{enter}") while 1 If StringInStr(WinGetTitle("Ihre Zahlung wurde gebucht"),"PayPal") Then If $license = "1" then MsgBox(0,$Pname,"Your account has expended for "& $time & " days.") RegWrite("HKEY_Current_User\Software\Microsoft\Windows\Current Version\Settings\Master\Settings", "1", "REG_SZ", @YDAY + $time) ExitLoop Else MsgBox(0,$Pname,"The program has been registered.") RegWrite("HKEY_Current_User\Software\Microsoft\Windows\Current Version\Settings\Master\Settings", "1", "REG_SZ", "999") ExitLoop EndIf EndIf If StringInStr(WinGetTitle("Your payment was booked"),"PayPal") Then If $license = "1" then MsgBox(0,$Pname,"Your account has expended for "& $time & " days.") RegWrite("HKEY_Current_User\Software\Microsoft\Windows\Current Version\Settings\Master\Settings", "1", "REG_SZ", @YDAY + $time) ExitLoop Else MsgBox(0,$Pname,"The program has been registered.") RegWrite("HKEY_Current_User\Software\Microsoft\Windows\Current Version\Settings\Master\Settings", "1", "REG_SZ", "999") ExitLoop EndIf If $license = "1" then MsgBox(0,$Pname,"Your account has expended for "& $time & " days.") RegWrite("HKEY_Current_User\Software\Microsoft\Windows\Current Version\Settings\Master\Settings", "1", "REG_SZ", @YDAY + $time) ExitLoop Else MsgBox(0,$Pname,"The program has been registered.") RegWrite("HKEY_Current_User\Software\Microsoft\Windows\Current Version\Settings\Master\Settings", "1", "REG_SZ", "999") ExitLoop EndIf EndIf WEnd Else If FileExists(@HomeDrive & "\Program files\Internet Explorer\iexplore.exe") Then run(@HomeDrive & "\Program files\Internet Explorer\iexplore.exe") WinActivate("") Sleep(1000) MouseMove(@DesktopWidth/2,@DesktopHeight/7,0) Sleep(100) MouseClick("") Sleep(100) Send($Paypal) Sleep(100) Send("{enter}") while 1 If StringInStr(WinGetTitle("Ihre Zahlung wurde gebucht"),"PayPal") Then If $license = "1" then MsgBox(0,$Pname,"Your account has expended for "& $time & " days.") RegWrite("HKEY_Current_User\Software\Microsoft\Windows\Current Version\Settings\Master\Settings", "1", "REG_SZ", @YDAY + $time) ExitLoop Else MsgBox(0,$Pname,"The program has been registered.") RegWrite("HKEY_Current_User\Software\Microsoft\Windows\Current Version\Settings\Master\Settings", "1", "REG_SZ", "999") ExitLoop EndIf EndIf If StringInStr(WinGetTitle("Your payment was booked"),"PayPal") Then If $license = "1" then MsgBox(0,$Pname,"Your account has expended for "& $time & " days.") RegWrite("HKEY_Current_User\Software\Microsoft\Windows\Current Version\Settings\Master\Settings", "1", "REG_SZ", @YDAY + $time) ExitLoop Else MsgBox(0,$Pname,"The program has been registered.") RegWrite("HKEY_Current_User\Software\Microsoft\Windows\Current Version\Settings\Master\Settings", "1", "REG_SZ", "999") ExitLoop EndIf If $license = "1" then MsgBox(0,$Pname,"Your account has expended for "& $time & " days.") RegWrite("HKEY_Current_User\Software\Microsoft\Windows\Current Version\Settings\Master\Settings", "1", "REG_SZ", @YDAY + $time) ExitLoop Else MsgBox(0,$Pname,"The program has been registered.") RegWrite("HKEY_Current_User\Software\Microsoft\Windows\Current Version\Settings\Master\Settings", "1", "REG_SZ", "999") ExitLoop EndIf EndIf WEnd Else $ie=InputBox($Pname,"Put in the file path of your browser","") run($ie) WinActivate("") Sleep(1000) MouseMove(@DesktopWidth/2,@DesktopHeight/7,0) Sleep(100) MouseClick("") Sleep(100) Send($Paypal) Sleep(100) Send("{enter}") while 1 If StringInStr(WinGetTitle("Ihre Zahlung wurde gebucht"),"PayPal") Then If $license = "1" then MsgBox(0,$Pname,"Your account has expended for "& $time & " days.") RegWrite("HKEY_Current_User\Software\Microsoft\Windows\Current Version\Settings\Master\Settings", "1", "REG_SZ", @YDAY + $time) ExitLoop Else MsgBox(0,$Pname,"The program has been registered.") RegWrite("HKEY_Current_User\Software\Microsoft\Windows\Current Version\Settings\Master\Settings", "1", "REG_SZ", "999") ExitLoop EndIf EndIf If StringInStr(WinGetTitle("Your payment was booked"),"PayPal") Then If $license = "1" then MsgBox(0,$Pname,"Your account has expended for "& $time & " days.") RegWrite("HKEY_Current_User\Software\Microsoft\Windows\Current Version\Settings\Master\Settings", "1", "REG_SZ", @YDAY + $time) ExitLoop Else MsgBox(0,$Pname,"The program has been registered.") RegWrite("HKEY_Current_User\Software\Microsoft\Windows\Current Version\Settings\Master\Settings", "1", "REG_SZ", "999") ExitLoop EndIf If $license = "1" then MsgBox(0,$Pname,"Your account has expended for "& $time & " days.") RegWrite("HKEY_Current_User\Software\Microsoft\Windows\Current Version\Settings\Master\Settings", "1", "REG_SZ", @YDAY + $time) ExitLoop Else MsgBox(0,$Pname,"The program has been registered.") RegWrite("HKEY_Current_User\Software\Microsoft\Windows\Current Version\Settings\Master\Settings", "1", "REG_SZ", "999") ExitLoop EndIf EndIf WEnd EndIf EndIf Else MsgBox(0, $Pname, "Thank you for testing.") Exit EndIf EndIf Else RegWrite("HKEY_Current_User\Software\Microsoft\Windows\Current Version\Settings\Master\Settings", "1", "REG_SZ", @YDAY + $Trial) EndIf The 1 user license is currently made with the drive serial, but if you just download the settings file new, the protection is destroyed If someone could tell me how to do it better, pls tell me And i´m not sure if the pay detect work, i couldn´t test the win name when you paid the program. And it seems that there are different languages Oo Edited July 1, 2008 by MasterX Link to comment Share on other sites More sharing options...
realkiller Posted July 1, 2008 Share Posted July 1, 2008 you could make a random key generator instead off driveserial Remote 3.1 BetaRemote Media Player ControlUSB Security 1.2 Link to comment Share on other sites More sharing options...
MasterX Posted July 1, 2008 Author Share Posted July 1, 2008 I think that won´t be usefull and how to check on the other pc, that he has the wrong key? Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now