Serial Maker

[JellyFish666]

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.

expandcollapse popup

#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 April 26, 2008 by JellyFish666

[AutoProgramming]

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...

[JellyFish666]

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 April 25, 2008 by JellyFish666

[microsoft]

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

[AutoProgramming]

Ah right, i didnt read the post correctly, sry -.-

[JellyFish666]

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

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.

[GHOSTSKIKDA]

Thank you ;-)