1 [Release] Open Source - RC4 String Encrypter Wed Sep 01, 2010 12:52 am
Guest
Guest
Well, just was bored so made something in autoit for those of you who even had the slightest idea that oVirus @ Zerozaku's String Encrypter was beast.
So I released something better than my partner.
Run the text below with autoit syntax.
+rep if you'd like but not required.
So I released something better than my partner.
Run the text below with autoit syntax.
+rep if you'd like but not required.
- Code:
; --------- Includes -------- ;
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <String.au3>
; --------- Pre-Declared Variables -------- ;
DIM $ENCRYPTLOG,$STATUS,$STRING,$FORM1,$DECRYPTINPUT,$ENCRYPTIT,$SELABEL,$FILE ; Could declare them locally inside the client(), to avoid less bugs. >=o
; --------- Hotkeys -------- ;
HOTKEYSET("{ESC}","CLOSE")
HOTKEYSET("{ENTER}","ENCRYPT")
; --------- GUI -------- ;
CLIENT()
FUNC CLIENT()
AUTOITSETOPTION("GUIOnEventMode",1)
$FORM1=GUICREATE("RC1 String Encrypter",524,390,236,121)
$FILE=GUICTRLCREATEMENU("File")
$RELOADCLIENT=GUICTRLCREATEMENUITEM("Reload Client",$FILE)
GUICTRLCREATEMENUITEM("",$FILE)
$COPYALL=GUICTRLCREATEMENUITEM("Copy All",$FILE)
$DECRYPTIT=GUICTRLCREATEMENUITEM("String Decrypter",$FILE)
GUICTRLSETSTATE(-1,$GUI_DEFBUTTON)
$CLEARLOG=GUICTRLCREATEMENUITEM("Clear Encrypt Log",$FILE)
GUICTRLCREATEMENUITEM("",$FILE)
$INFO=GUICTRLCREATEMENU("Info")
GUICTRLCREATEMENUITEM("",$INFO)
$CREDIT=GUICTRLCREATEMENUITEM("Credit",$INFO)
GUICTRLSETSTATE(-1,$GUI_DEFBUTTON)
GUICTRLCREATEMENUITEM("",$INFO)
$STRING=GUICTRLCREATEINPUT("",64,344,369,21,-1,BITOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE))
$SELABEL=GUICTRLCREATELABEL("String:",8,344,52,24)
GUICTRLSETFONT(-1,12,400,0,"MS Sans Serif")
$ENCRYPTLOG=GUICTRLCREATEEDIT("",8,32,513,305,BITOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_READONLY,$ES_WANTRETURN),BITOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE))
GUICTRLSETBKCOLOR(-1,0xFFFFFF)
$ENCRYPTIT=GUICTRLCREATEBUTTON("Encrypt It",440,344,83,25,$BS_FLAT,BITOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE))
$STATUS=GUICTRLCREATELABEL("",32,8,492,24)
GUICTRLSETFONT(-1,12,400,0,"MS Sans Serif")
GUISETSTATE()
GUISETONEVENT($GUI_EVENT_CLOSE,"CLOSE")
GUICTRLSETONEVENT($ENCRYPTIT,"ENCRYPT")
GUICTRLSETONEVENT($RELOADCLIENT,"RELOAD")
GUICTRLSETONEVENT($COPYALL,"COPYALL")
GUICTRLSETONEVENT($DECRYPTIT,"DECRYPT")
GUICTRLSETONEVENT($CLEARLOG,"CLEAR")
GUICTRLSETONEVENT($CREDIT,"CREDIT")
GUICTRLSETONEVENT($CREDIT,"CREDIT")
ENDFUNC
; --------- Functionality -------- ;
WHILE 1 ; Might use the While + WEnd loop on next client :c to give me a better perceptive about on what I can do with it.
SLEEP(100)
WEND
FUNC CLOSE()
EXIT
ENDFUNC
FUNC ENCRYPT()
IF GUICTRLREAD($STRING)==("") THEN
MSGBOX(16,"","No string found to encrypt, please check the input below for characters.")
ELSE
GUICTRLSETDATA($ENCRYPTLOG,"")
GUICTRLSETDATA($STATUS,"Now encrypting all strings, please wait...")
WAIT()
SLEEP(2500)
GUICTRLSETDATA($ENCRYPTLOG,_STRINGENCRYPT(1,GUICTRLREAD($STRING),'randomtext','1')) ; Level 1 Encryption.
GUICTRLSETDATA($STATUS,"Done!")
WAITOFF()
SLEEP(1500)
GUICTRLSETDATA($STATUS,"")
GUICTRLSETDATA($STRING,"")
ENDIF
ENDFUNC
FUNC RELOAD()
GUIDELETE($FORM1)
SLEEP(2000)
CLIENT()
ENDFUNC
FUNC COPYALL()
IF GUICTRLREAD($ENCRYPTLOG)==("")THEN
MSGBOX(16,"","No strings found in the Encryption Log.")
ELSE
INPUTBOX("Encrypted/Decrypted String","Encrypted/Decrypted String Below."&@CRLF&@CRLF&"Note: Ctrl+C = Copy",GUICTRLREAD($ENCRYPTLOG))
ENDIF
ENDFUNC
FUNC DECRYPT()
$DECRYPTINPUT=INPUTBOX("String Decrypter","Enter the string you would like to decrypt below.")
IF @ERROR THEN
ELSE
GUICTRLSETDATA($ENCRYPTLOG,"")
GUICTRLSETDATA($STATUS,"Now decrypting all strings, please wait...")
WAIT()
SLEEP(2500)
GUICTRLSETDATA($ENCRYPTLOG,_STRINGENCRYPT(0,$DECRYPTINPUT,'randomtext','1')) ; Level 1 Decryption.
GUICTRLSETDATA($STATUS,"Done!")
WAITOFF()
SLEEP(1500)
GUICTRLSETDATA($STATUS,"")
ENDIF
ENDFUNC
FUNC WAIT()
GUISETCURSOR(15)
GUICTRLSETCURSOR($ENCRYPTLOG,15)
GUICTRLSETCURSOR($ENCRYPTIT,15)
GUICTRLSETCURSOR($STATUS,15)
GUICTRLSETCURSOR($SELABEL,15)
GUICTRLSETCURSOR($STRING,15)
ENDFUNC
FUNC WAITOFF()
GUISETCURSOR(2)
GUICTRLSETCURSOR($ENCRYPTLOG,2)
GUICTRLSETCURSOR($ENCRYPTIT,2)
GUICTRLSETCURSOR($STATUS,2)
GUICTRLSETCURSOR($SELABEL,2)
GUICTRLSETCURSOR($STRING,2)
ENDFUNC
FUNC CLEAR()
IF GUICTRLREAD($ENCRYPTLOG)==("")THEN
MSGBOX(16,"","No strings found in the Encryption Log.")
ELSE
GUICTRLSETDATA($STATUS,"Now clearing the Encryption Log, please wait...")
WAIT()
SLEEP(2500)
GUICTRLSETDATA($ENCRYPTLOG,"")
GUICTRLSETDATA($STATUS,"Done!")
WAITOFF()
SLEEP(1500)
GUICTRLSETDATA($STATUS,"")
ENDIF
ENDFUNC
FUNC CREDIT()
MSGBOX(0,"","Credits to the creator(s) of the String.au3 include, and the _StringEncrypt UDF, and Papa/Papa-Kun for making.")
ENDFUNC
; --------- Comments & Notes -------- ;
; Needs lots more improving. :<
; Just made this for a test of skills.
; This could have been done much better.
; Next client will be used with function params.
; Version: Beta.
; Status: Incomplete.
; Credits: Papa for making the client overall, and the creator(s) of the String.au3 Include and the _StringEncrypt UDF.
; About: Level 1 String Encrypter + Level 1 String Decrypter.
; --------- Client End -------- ;
Last edited by Trollin` on Wed Sep 01, 2010 1:12 am; edited 1 time in total