+- Sinisterly (https://sinister.ly)
+-- Forum: Coding (https://sinister.ly/Forum-Coding)
+--- Forum: Coding (https://sinister.ly/Forum-Coding--71)
+--- Thread: [Autoit]Handy Characters v1 - SOURCE (/Thread-Autoit-Handy-Characters-v1-SOURCE)
[Autoit]Handy Characters v1 - SOURCE - Jacob - 04-10-2012
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