Sign in to follow this  
Followers 0
JellyFish666

Serial Maker

7 posts in this topic

#1 ·  Posted (edited)

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


[u]My OpenSource Projects:[/u]- [BEEP] proMusiX- Search autorun.inf

Share this post


Link to post
Share on other sites

#3 ·  Posted (edited)

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

Thank you ;-)


[center]I LOVE ALGERIA .... ;-)[/center]

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