jaenster Posted May 12, 2006 Share Posted May 12, 2006 New release : expandcollapse popup#include <guiconstants.au3> #include <String.au3> ;#include files for encryption and GUI constants ;~~ $WinMain = GuiCreate('Jaensters , Encryption tool , Use an other crypter', 400, 420) ; Creates window ;~~ $EditText = GuiCtrlCreateEdit('This is not an clone of Encryption tool in gui examples'&@CRLF&"My crypter pwns ya ^^",5,5,380,350) ; Creates main edit ;~~ $InputPass = GuiCtrlCreateInput('',5,360,100,20, 0x21) ; Creates the password box with blured/centered input ;~~ $EncryptButton = GuiCtrlCreateButton('Encrypt', 170, 360, 105, 35) $DecryptButton = GuiCtrlCreateButton('Decrypt', 285, 360, 105, 35) ; Encryption/Decryption buttons ;~~ GUICtrlCreateLabel('Password', 5, 385) GuiCtrlCreateLabel('No Lvl Needed',100,385) ; Simple text labels so you know what is what $HexCheck = GUICtrlCreateCheckbox("Hexed",0,400) $CryptCheck = GUICtrlCreateCheckbox("Crypt Version 2.0",60,400) global $crypt2 = 0 ;~~ GuiSetState() ; Shows window ;~~ while(1) sleep(10) $msg = GUIGetMsg() if $msg = $GUI_EVENT_CLOSE Then Exit endif if $msg = $EncryptButton Then if guictrlread($CryptCheck) = 1 Then $crypt2 = 1 Else $crypt2 = 0 endif if guictrlread($HexCheck) = 1 then Guictrlsetdata($EditText,_StringToHex(Crypt(1,Guictrlread($EditText),Guictrlread($InputPass)))) Else guictrlsetdata($EditText,Crypt(1,Guictrlread($EditText),Guictrlread($InputPass))) endif endif if $msg = $DecryptButton Then if guictrlread($CryptCheck) = 1 Then $crypt2 = 1 Else $crypt2 = 0 endif if guictrlread($HexCheck) = 1 then Guictrlsetdata($EditText,Crypt(0,_HexToString(Guictrlread($EditText)),Guictrlread($InputPass))) Else guictrlsetdata($EditText,Crypt(0,Guictrlread($EditText),Guictrlread($InputPass))) endif endif wend ;---------------------------------------------------- ;| CrytTool by jaenster ;|Input Crypt : $do , 0 = Decrypt , 1 = Crypt ;| : $t , The Text to crypt ;| : $pw , The password ;------------------------------------------------------ func crypt($Do,$t,$pw) if $do = 0 then;Decrypt return _crypttool(_crypttool2($t,$pw)) endif if $do = 1 then;Crypt return _crypttool2(_crypttool($t),$pw) endif endfunc ;This are the subfuncions of CrytIT func _crypttool($t) $Terug = "" $t = _ReturnOtherWish($t) for $i = 1 to stringlen($t) $Nummer = asc(stringmid($t,$i,1)) if $Nummer < 128 then $Terug = $Terug &chr(128+$nummer) EndIf if $nummer >= 128 then $Terug = $Terug &chr($Nummer-128) endif next return $terug endfunc func _crypttool2($t,$pw) $Terug = "" $Max = stringlen($pw) $c = 1 for $i = 1 to stringlen($t) if $crypt2 = 1 then $c = $c + 1.5 Else $c = $c + 1 endif if $c >= $max then $c = 1 endif $Terug = $Terug & chr(BitXOR(asc(stringmid($t,$i,1)),asc(stringmid($pw,round($c),1)))&" ") next return $Terug endfunc; ==> Crypt 2 func _ReturnOtherWish($t) $terug = "" for $i = StringLen($t) to 1 step -1 $terug = $terug & stringmid($t,$i,1) next return $Terug endfunc This version has a new crypt version in it.. Showoff : Old crypt : 95959781B7 New crypt : 919E8D97A9 Password = jaenster Both is with hex Note : Gui is not from my , its stolen from exampels , but take a look in crypt source -jaenster Link to comment Share on other sites More sharing options...
Daniel W. Posted May 12, 2006 Share Posted May 12, 2006 I have seen much Encryter and so on things but what are they for? --------------------------------------------------------------------------------------------------------------------------------Scripts : _Encrypt UDF_UniquePCCode UDF MS like calculatorInstall programm *UPDATED* --------------------------------------------------------------------------------------------------------------------------------[quote name='Helge' post='213117' date='Jul 26 2006, 10:22 AM']Have you ever tried surfing the internet with a milk-carton ?This is similar to what you're trying to do.[/quote] Link to comment Share on other sites More sharing options...
Simucal Posted May 12, 2006 Share Posted May 12, 2006 I have seen much Encryter and so on things but what are they for?Privacy. AutoIt Scripts:Aimbot: Proof of Concept - PixelSearching Aimbot with several search/autoshoot/lock-on techniques.Sliding Toolbar - Add a nice Sliding Toolbar to your next script. Click the link to see an animation of it in action!FontInfo UDF - Get list of system fonts, or search to see if a particular font is installed.Get Extended Property UDF - Retrieve a files extended properties (e.g., video/image dimensions, file version, bitrate of song/video, etc) Link to comment Share on other sites More sharing options...
Daniel W. Posted May 12, 2006 Share Posted May 12, 2006 Ahh i see ok then fine work --------------------------------------------------------------------------------------------------------------------------------Scripts : _Encrypt UDF_UniquePCCode UDF MS like calculatorInstall programm *UPDATED* --------------------------------------------------------------------------------------------------------------------------------[quote name='Helge' post='213117' date='Jul 26 2006, 10:22 AM']Have you ever tried surfing the internet with a milk-carton ?This is similar to what you're trying to do.[/quote] Link to comment Share on other sites More sharing options...
jaenster Posted May 12, 2006 Author Share Posted May 12, 2006 To crypt secret infomation , with a password -jaenster Link to comment Share on other sites More sharing options...
jaenster Posted May 16, 2006 Author Share Posted May 16, 2006 Bump -jaenster 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