[Jacob]

Not sur eif many of you remember my first real autoit program "Handy Characters" but it was released and I had a lot of pride in it.

It's a discontinued project and V2 is half ass finished. So I figured why not release the source for V1 to HC.


WARNING!: CODE IS VERY SLOPPY AND I WAS A SHITTY PROGRAMMER IN THESE DAYS.

Code:

#NoTrayIcon ;no icon in the task tray #Region ;**** Directives created by AutoIt3Wrapper_GUI **** #AutoIt3Wrapper_UseUpx=n #AutoIt3Wrapper_Res_Comment=HC #AutoIt3Wrapper_Res_Description=Handy Characters #AutoIt3Wrapper_Res_Fileversion=1.0.0 #AutoIt3Wrapper_Res_LegalCopyright=HackCommunity.com #AutoIt3Wrapper_Res_Language=1033 #AutoIt3Wrapper_Run_Obfuscator=y #Obfuscator_Parameters=/cs 1 /cn 1 #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI **** #cs ---------------------------------------------------------------------------- AutoIt Version: 3.3.6.1 Author: Jacob Wesbite: www.HackCommunity.com #include <GDIPlus.au3> #include <WindowsConstants.au3> #include <GUIConstantsEx.au3> global $webpic = 'http://i.imgur.com/XHT1Z.jpg' global $pathpic = @TempDir & "\hcicon3.5x.jpg" If Not FileExists ( $pathpic ) Then InetGet ( $webpic, $pathpic, 1 ) global $Pic1 = GUICtrlCreatePic(@TempDir & "\hcicon3.5x.jpg", 8, 8, 236, 52, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS)) Script Function: Will do either of the following to your inputted text: Count amount of characters Convert to caps Convert to lowercase Convert to ASCII Remove all spaces String to Hex Hex to String RC4 String Encryption and Decryption Reverse Text CopyX Unlimited ---------------------------------------------------------------------------- #ce #cs ;http://i.imgur.com/4Csw4.jpg ; startup splash here SplashTextOn('','Starting up Handy Characters',270,75,560,370,37,12) sleep(400) SplashTextOn('','Starting up Handy Characters . ',270,75,560,370,37,12) sleep(400) SplashTextOn('','Starting up Handy Characters . .',270,75,560,370,37,12) sleep(400) SplashTextOn('','Starting up Handy Characters . . .',270,75,560,370,37,12) If not FileExists(@TempDir &"\hcicon2x.jpg") Then InetGet("http://nyanstuff.site88.net/hcicon2x.jpg", @TempDir &"\hcicon2x.jpg") ;download banner from my database sleep(200) SplashTextOn('','Starting up Handy Characters . . . .',270,75,560,370,37,12) sleep(400) SplashTextOn('','Starting up Handy Characters . . . . .',270,75,560,370,37,12) sleep(650) SplashOff() sleep(1300) #ce ;open IE #include <IE.au3> ;used for string reverse UDF #Include <String.au3> ;GUI #include <ButtonConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #include <GDIPlus.au3> $Form1_1 = GUICreate("Handy Characters 1.0", 411, 277, 202, 190) Global $Pic1 = GUICtrlCreatePic(@TempDir &"\hcicon2x.jpg", 1, -1, 409, 50) $file = GUICtrlCreateMenu("File") $close = GUICtrlCreateMenuItem("Close", $file) $about = GUICtrlCreateMenu("About") $aboutc = GUICtrlCreateMenuItem("About Handy Characters", $about) $help = GUICtrlCreateMenu("Help") $how2use = GUICtrlCreateMenuItem("How to use", $help) $feedback = GUICtrlCreateMenu("Feedback") $forumfb = GUICtrlCreateMenuItem("Forum Feedback", $feedback) GUISetBkColor(0x000000) $visithc = GUICtrlCreateButton("Visit HackCommunity: Exploring Beyond Limits", 0, 48, 410, 25) $countbutton = GUICtrlCreateButton("Count Characters", 48, 88, 113, 25) $asciibutton = GUICtrlCreateButton("To ASCII", 224, 184, 113, 25) $capsbutton = GUICtrlCreateButton("To Caps", 48, 152, 113, 25) $lowcasebutton = GUICtrlCreateButton("To LowerCase", 48, 120, 113, 25) $spacebutton = GUICtrlCreateButton("Remove Spaces", 48, 184, 113, 25) $s2h = GUICtrlCreateButton("String to Hex", 224, 88, 113, 25) $h2s = GUICtrlCreateButton("Hex to String", 224, 120, 113, 25) $rc4 = GUICtrlCreateButton("RC4 String En/De-cryption", 224, 152, 135, 25) $copyx = GUICtrlCreateButton("Copy X Times", 48, 216, 113, 25) $rev = GUICtrlCreateButton("Reverse Text", 224, 216, 113, 25) GUISetState(@SW_SHOW) #cs ;;;;;;;;;;this is the out of use GUI with the ASCII to letter conversion/ next update ;;;;;;;;;; chr button needs remodeled, as well as most of GUI #include <ButtonConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #Region ### START Koda GUI section ### Form= $Form1_1 = GUICreate("Handy Characters", 412, 278, 319, 434) $file = GUICtrlCreateMenu("&File") $close = GUICtrlCreateMenuItem("Close", $file) $about = GUICtrlCreateMenu("&About") $aboutc = GUICtrlCreateMenuItem("About Handy Characters", $about) $help = GUICtrlCreateMenu("&Help") $how2use = GUICtrlCreateMenuItem("How to use", $help) $feedback = GUICtrlCreateMenu("F&eedback") $forumfb = GUICtrlCreateMenuItem("Forum Feedback", $feedback) GUISetBkColor(0x000000) $picture = GUICtrlCreatePic("C:\Documents and Settings\Admin\Desktop\hcicon3.5x.jpg", 1, 0, 409, 49) $visithc = GUICtrlCreateButton("Visit HackCommunity: Exploring Beyond Limits", 0, 48, 410, 25) $countbutton = GUICtrlCreateButton("Count Characters", 48, 88, 113, 25) $asciibutton = GUICtrlCreateButton("To ASCII", 224, 184, 113, 25) $capsbutton = GUICtrlCreateButton("To Caps", 48, 152, 113, 25) $lowcasebutton = GUICtrlCreateButton("To LowerCase", 48, 120, 113, 25) $spacebutton = GUICtrlCreateButton("Remove Spaces", 48, 184, 113, 25) $s2h = GUICtrlCreateButton("String to Hex", 224, 88, 113, 25) $h2s = GUICtrlCreateButton("Hex to String", 224, 120, 113, 25) $rc4 = GUICtrlCreateButton("RC4 String En/De-cryption", 224, 152, 135, 25) $copyx = GUICtrlCreateButton("Copy X Times", 48, 216, 113, 25) $rev = GUICtrlCreateButton("Reverse Text", 224, 216, 113, 25) chr = GUICtrlCreateButton("Chr", 368, 80, 33, 73) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### #ce ;gui controls ;Thank you, 1234DarkMaster. I used your method of sending text to a file that you used in your au3 keylogger While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $copyx MsgBox(0,'','Some people get a little confused on what this function is used for. This allows you copy any text any amount of times that you wish. Just delcare both in the inputboxes') Local $ibox = inputBox('CopyX Text','Please type/paste the text you are coyping: ') Local $RepeatX = inputBox('CopyX Number','How many times would you like to copy? ') Local $a = _StringRepeat($ibox &@CRLF, $RepeatX) Local $revfileopen = FileOpen(@DesktopDir &"\CopyX.txt", 1) ;replaced respective global variable FileWrite ( $revfileopen, '' & $a) MsgBox(48,'','The Copied Text is now stored in "CopyX.txt" on your desktop') Case $rev MsgBox(0,'','If you need to make reverse text forward, just reverse it once.') Local $ibox = inputBox('Reverse Text','Please type/paste the text you are reversing: ') Local $a = _StringReverse($ibox) Local $revfileopen = FileOpen(@DesktopDir & '\Reverse.txt', 1) ;replaced respective global variable FileWrite ( $revfileopen, '' & $a &@CRLF) MsgBox(48,'','The Reversed Text is now stored in "Reverse.txt" on your desktop') Case $rc4 msgbox(64,'Update!','Coming Next Update' &@CRLF &'(No more than a week from V1.0 release)') #cs Local $ENCorDEC = inputBox('RC4 Text Encryption/Decryption',"Are you Encrypting or Decrypting?" & @CRLF &'Type "1" for Encryption' & @CRLF &'Type "0" for Decryption') MsgBox(0,'Are you sure?','You typed ' &$ENCorDEC&',' &' is this the cryption method you want?' &@CRLF &@CRLF &'Remember!' &@CRLF &'1 is for Encryption' &@CRLF &'0 is for Decryption') Local $iboxEncPass = inputBox('RC4 Text Encryption','Please type/paste Encryption Key: ') Local $iboxEnc = inputBox('RC4 Text Encryption','Please type/paste the text you are En/De-crypting: ') Local $a = _StringEncrypt($ENCorDEC, $iboxEnc, $iboxEncPass) Local $RC4Efileopen = FileOpen(@DesktopDir &'RC4.txt', 1) ;replaced respective global variable FileWrite ( $RC4efileopen, '' & $a &@CRLF) MsgBox(48,'','The RC4 Crypted Data is now stored in ' &'RC4.txt' & ' on your desktop') #ce Case $h2s Local $ibox = inputBox('Hex to String','Please type/paste the Hex you are converting to String(Text): ') Local $a = _HexToString($ibox) Local $h2sfileopen = FileOpen(@DesktopDir & '\hex2string.txt', 1) ;replaced respective global variable FileWrite ( $h2sfileopen, '' & $a &@CRLF) MsgBox(48,'','The Converted Hex Data is now stored in "hex2string.txt" on your desktop') Case $s2h Local $ibox = inputBox('String to Hex','Please type/paste the text converting to Hex: ') Local $a = _StringToHex($ibox) Local $s2hfileopen = FileOpen(@DesktopDir & '\string2hex.txt', 1) ;replaced respective global variable FileWrite ( $s2hfileopen, '' & $a &@CRLF) MsgBox(48,'','The Converted text is now stored in "string2hex.txt" on your desktop') Case $visithc _IECreate ("www.hackcommunity.com",0,1,1,1) Case $spacebutton Local $ibox = inputBox('Remove Spacing','Please type/paste the text you are UnSpacing: ') Local $a = StringStripWS('' &$ibox, 8) Local $spacesfileopen = FileOpen(@DesktopDir & '\RemovedSpaces.txt', 1) ;replaced respective global variable FileWrite ( $spacesfileopen, '' & $a &@CRLF) MsgBox(48,'','The UnSpaced text is now stored in "RemovedSpaces.txt" on your desktop') Case $lowcasebutton Local $ibox = inputBox('Letter to Lowercase','Please type/paste the text you are LowerCasing: ') Local $a = StringLower('' &$iboX) Local $lowcasefileopen = FileOpen(@DesktopDir & '\LowerCase.txt', 1);replaced respective global variable FileWrite ( $lowcasefileopen, '' & $a &@CRLF) MsgBox(48,'','The lowercase text is now stored in "LowerCase.txt" on your desktop') Case $capsbutton Local $ibox = inputBox('Letter to Caps','Please type/paste the text you are Capitalizing: ') Local $a = StringUpper('' &$ibox) Local $capsfileopen = FileOpen(@DesktopDir & '\Capitals.txt', 1);replaced respective global variable FileWrite ( $capsfileopen, '' & $a &@CRLF) MsgBox(48,'','The capitalized text is now stored in "capitals.txt" on your desktop') ;;;;;;;;;;;Unused function for ASCII to String conversion. Next Update. #cs Case $chr local $chr = $chr msgbox(0,'Update','Coming next update. Got too lazy to actually type up the 9 lines of code for this bit...') Local $ibox = inputBox('ASCII Conversion','Please type/paste the text you are converting from ASCII: ') Local $a = Chr('' &$ibox) Local $chrfileopen = FileOpen(@desktopdir & '\Chr.txt', 1);replaced respective global variable FileWrite ( $chrfileopen, '' & $a &@CRLF) MsgBox(48,'','The converted text is now stored in "ASCII.txt" on your desktop') #ce Case $asciibutton msgbox(64,'Update!','Coming Next Update along with a reverse converter' &@CRLF &'(No more than a week from V1.0 release)') #cs MsgBox(0,'ASCII','This function only converts one character at a time' &@CRLF &'So if you type a word only the first letter will be converted') Local $ibox = inputBox('ASCII Conversion','Please type/paste the text you are converting to ASCII: ') Local $a = Asc('' &$ibox) Local $asciifileopen = FileOpen(@desktopdir & '\ASCII.txt', 1);replaced respective global variable FileWrite ( $asciifileopen, '' & $a &@CRLF) MsgBox(48,'','The converted text is now stored in "ASCII.txt" on your desktop') #ce Case $countbutton $Form1 = GUICreate("How Many Characters?", 329, 186, 246, 311) $edit = GUICtrlCreateEdit("", 8, 40, 305, 105, -1, BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE)) GUICtrlSetData(-1, "") $Label1 = GUICtrlCreateLabel("Paste the text here that you would like to count", 8, 16, 303, 24) GUICtrlSetFont(-1, 9, 800, 4, "MS Sans Serif") $Button1 = GUICtrlCreateButton("Count", 8, 152, 305, 25) GUISetState(@SW_SHOW) While 1 $nnMsg = GUIGetMsg() Switch $nnMsg Case $Button1 Global $read = GUICtrlRead($edit) Global $data = StringLen($read) MsgBox(0,'','' &$data) Case $GUI_EVENT_CLOSE Exit EndSwitch WEnd ;Case $forumfb ;ShellExecute("http://www.hackcommunity.com/Thread-RELEASE-HandyCharacters-New-Encrypt-your-data-with-RC4-hex-it-and-more") Case $how2use MsgBox(32,'How to Use', 'To use Handy Characters choose the operation you would like to perform' &@CRLF &'Follow the Pop-Ups CLOSELY' &@CRLF &'This is very "Noob-Friendly"') Case $aboutc MsgBox(64,'About Handy Characters','Version 1.0' &@CRLF &'Made by Jacob' &@CRLF &'www.HackCommunity.com' &@CRLF &'Thank you, 1234DarkMaster for starting me with au3') Case $close Exit Case $about MsgBox(0,'About Handy Characters','') Case $GUI_EVENT_CLOSE Exit EndSwitch WEnd