Sign in to follow this  
Followers 0
MasterX

MasterProtect

3 posts in this topic

#1 ·  Posted (edited)

XProTec doesn´t work for me, so i made my own protect script

Get paid for your program :P

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.

$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 :P

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 by MasterX

Share this post


Link to post
Share on other sites



I think that won´t be usefull and how to check on the other pc, that he has the wrong key?

Share this post


Link to post
Share on other sites

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 account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0