You are not connected. Please login or register

View previous topic View next topic Go down  Message [Page 1 of 1]

1 [Release] Open Source - RC4 String Encrypter on Wed Sep 01, 2010 12:52 am

Guest


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

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

Top


Contributor
Loading
K, fixed it. You needed code. Y__Y

Guest


Guest
Loading
K mastah.

OwenWilson

avatar
Master
Loading
i like it
+repd for u
Smile

Sponsored content


Loading

View previous topic View next topic Back to top  Message [Page 1 of 1]

Related topics

Permissions in this forum:
You cannot reply to topics in this forum