Jump to content
Sign in to follow this  
JellyFish666

Serial Maker

Recommended Posts

This a unfinished project and needs to be a lot harder and since I don't have no use for this no more I thought I might share it as a scrap.

I haven't finished the reverse function or added a way to add it into your programs although that shouldn't be hard at all.

#include <String.au3>
#include <GUIConstants.au3>
Global $Key , $Strength , $CryptKey
GUICreate("Key Gen...", 200, 75)
$Name = GUICtrlCreateInput("Name", 0, 0, 200, 20)
$Email = GUICtrlCreateInput("Email@hotmail.com", 0, 25, 200, 20)
$Gen = GUICtrlCreateButton("Gen Key", 0, 50, 75, 25, 0)
$Rev = GUICtrlCreateButton("Reverse Key", 80 , 50, 75, 25, 0)
GUISetState(@SW_SHOW)

While 1
    $Msg = GUIGetMsg()
    Switch $Msg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Gen
            If GUICtrlRead($Name) = "" Or GUICtrlRead($Email) = "" Then 
                MsgBox(0 , "Error." , "your name and email are required.")
            ElseIf StringIsDigit(GUICtrlRead($Name)) Then 
                MsgBox(0 , "Error." , "no numbers allowed in your name.")
            ElseIf Not StringInStr(GUICtrlRead($Email) , "@" , 1) Then
                MsgBox(0 , "Error." , "your email is incorrect it should look something like this" & @CRLF & "" & @CRLF & "test@hotmail.com")
            Else
                GUICtrlSetState($Name , $GUI_DISABLE)
                GUICtrlSetState($Email , $GUI_DISABLE)
                GUICtrlSetState($Gen , $GUI_DISABLE)
                GUICtrlSetData($Name ,StringLower(GUICtrlRead($Name)))
                GUICtrlSetData($Email ,StringLower(GUICtrlRead($Email)))
                _Gen(GUICtrlRead($Name) , GUICtrlRead($Email))
                GUICtrlSetState($Name , $GUI_ENABLE)
                GUICtrlSetState($Email , $GUI_ENABLE)
                GUICtrlSetState($Gen , $GUI_ENABLE)
                MsgBox(0 , "" , "This is your key" & @CRLF & @CRLF & $CryptKey)
            EndIf
        ;Case $Rev 
        ;   If GUICtrlRead($Name) = "" Or GUICtrlRead($Email) = "" Then 
        ;       MsgBox(0 , "Error." , "your name and email are required.")
        ;   ElseIf StringIsDigit(GUICtrlRead($Name)) Then 
        ;       MsgBox(0 , "Error." , "no numbers allowed in your name.")
        ;   ElseIf Not StringInStr(GUICtrlRead($Email) , "@hotmail.com" , 1) Then
        ;       MsgBox(0 , "Error." , "your email is incorrect it should look something like this" & @CRLF & "" & @CRLF & "test@hotmail.com")
        ;   Else
        ;       GUICtrlSetState($Name , $GUI_ENABLE)
        ;       GUICtrlSetState($Email , $GUI_ENABLE)
        ;       GUICtrlSetState($Gen , $GUI_ENABLE)
        ;       GUICtrlSetData($Name ,StringLower(GUICtrlRead($Name)))
        ;       GUICtrlSetData($Email ,StringLower(GUICtrlRead($Email)))
        ;       _Rev(GUICtrlRead($Name) , GUICtrlRead($Email))
        ;       GUICtrlSetState($Name , $GUI_ENABLE)
        ;       GUICtrlSetState($Email , $GUI_ENABLE)
        ;       GUICtrlSetState($Gen , $GUI_ENABLE)
        ;       MsgBox(0 , "" , "This is your key" & @CRLF & @CRLF & $CryptKey) 
        ;       EndIf
    EndSwitch
WEnd

Func _Gen($Key , $Strength)
    $Reverse = _StringReverse($Key)
    $Hex = _StringToHex($Reverse)
    $Bin = StringToBinary($Hex)
    $CryptKey = _StringEncrypt(1 , $Bin , $Strength , 1)
    Return $CryptKey
EndFunc

;Func _Rev($Key , $Strength)
;;;
;;;;
;EndFunc
Edited by JellyFish666

Share this post


Link to post
Share on other sites

Er... well how do you know that the key is allways generated by using

_Gen(GUICtrlRead($Name) , GUICtrlRead($Email)) -> NAME + EMAIL?

I don't know any game where that would work...

game? (were did you get that from)

the key and email are always generated because I told it so.

it is to add a serial to your programs so that people need to register your program you made.

Edited by JellyFish666

Share this post


Link to post
Share on other sites

Thanks .

To Support Al Type E-mail not Solely @hotmail.com

Line 21 :

ElseIf Not StringInStr(GUICtrlRead($Email) , "@hotmail.com" , 1) ThenoÝ÷ Øíz´®¦+µ«­¢+Ù±Í%9½ÐMÑÉ¥¹%¹MÑÈ¡U%
ÑɱI ÀÌØíµ¥°¤°ÅÕ½ÐíÅÕ½Ðì°Ä¤Q¡¸

compendium :

Deleted hotmail.com From Line 21 until Support All Types E-mail

Share this post


Link to post
Share on other sites

I just put @hotmail for a test and since I only use hotmail but the code can be changed for your needs :D

I hope it will help people make a better one and I might finish this project along with many others I got, I am not good at focusing at one task because many idea's pop in my head.

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  

×
×
  • Create New...