Sign in to follow this  
Followers 0
jaenster

Crypttool By Jaenster

6 posts in this topic

New release :

#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

Share this post


Link to post
Share on other sites



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]

Share this post


Link to post
Share on other sites

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)

Share this post


Link to post
Share on other sites

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]

Share this post


Link to post
Share on other sites

To crypt secret infomation , with a password :)


-jaenster

Share this post


Link to post
Share on other sites

Bump :)


-jaenster

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