JellyFish666 Posted April 24, 2008 Share Posted April 24, 2008 (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. 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 Link to comment Share on other sites More sharing options...
AutoProgramming Posted April 25, 2008 Share Posted April 25, 2008 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 Link to comment Share on other sites More sharing options...
JellyFish666 Posted April 25, 2008 Author Share Posted April 25, 2008 (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 April 25, 2008 by JellyFish666 Link to comment Share on other sites More sharing options...
microsoft Posted April 25, 2008 Share Posted April 25, 2008 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 Link to comment Share on other sites More sharing options...
AutoProgramming Posted April 25, 2008 Share Posted April 25, 2008 Ah right, i didnt read the post correctly, sry -.- [u]My OpenSource Projects:[/u]- [BEEP] proMusiX- Search autorun.inf Link to comment Share on other sites More sharing options...
JellyFish666 Posted April 26, 2008 Author Share Posted April 26, 2008 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. Link to comment Share on other sites More sharing options...
GHOSTSKIKDA Posted April 26, 2008 Share Posted April 26, 2008 Thank you ;-) [center]I LOVE ALGERIA .... ;-)[/center] 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