AlmarM Posted November 21, 2007 Posted November 21, 2007 (edited) Was bored and made this: expandcollapse popup#include <GUIConstants.au3> $GUI = GUICreate("1337 Text Translator", 200, 90, -1, -1) $Input = GUICtrlCreateInput("", 10, 60, 180, 20) $Button = GUICtrlCreateButton("1337 My Text", 10, 30, 180, 25) $Label = GUICtrlCreateLabel("", 10, 10, 180, 20) GUISetState(@SW_SHOW) While 1 $nMsg = GUIGetMsg() Select Case $nMsg = $GUI_EVENT_CLOSE Exit Case $nMsg = $Button $string = GUICtrlRead($Input) $string = StringReplace($string, "s", "$") $string = StringReplace($string, "a", "4") $string = StringReplace($string, "o", "0") $string = StringReplace($string, "i", "!") $string = StringReplace($string, "e", "3") $string = StringReplace($string, "l", "|_") $string = StringReplace($string, "p", "|>") $string = StringReplace($string, "t", "7") $string = StringReplace($string, ".", ",") $string = StringReplace($string, "b", "/3") $string = StringReplace($string, "c", "(") $string = StringReplace($string, "d", "[)") $string = StringReplace($string, "h", "]-[") $string = StringReplace($string, "k", "|<") $string = StringReplace($string, "m", "|v|") $string = StringReplace($string, "n", "/\/") $string = StringReplace($string, "q", "()_") $string = StringReplace($string, "r", "/2") $string = StringReplace($string, "v", "\/") $string = StringReplace($string, "w", "\/\/") $string = StringReplace($string, "x", "><") $string = StringReplace($string, "y", "`/") $string = StringReplace($string, "z", "7_") MsgBox(0, "1337 Text", $string) EndSelect WEnd Edited February 2, 2008 by AlmarM Minesweeper A minesweeper game created in autoit, source available. _Mouse_UDF An UDF for registering functions to mouse events, made in pure autoit. 2D Hitbox Editor A 2D hitbox editor for quick creation of 2D sphere and rectangle hitboxes.
JustinReno Posted November 21, 2007 Posted November 21, 2007 You could also retranslate it: #include <GUIConstants.au3> $GUI = GUICreate("1337 Text Translator", 200, 90, -1, -1) $Input = GUICtrlCreateInput("", 10, 60, 180, 20) $Button = GUICtrlCreateButton("Redo Text", 10, 30, 180, 25) $Label = GUICtrlCreateLabel("", 10, 10, 180, 20) GUISetState(@SW_SHOW) While 1 $nMsg = GUIGetMsg() Select Case $nMsg = $GUI_EVENT_CLOSE Exit Case $nMsg = $Button $string = GUICtrlRead($Input) $string = StringReplace($string, "$", "s") $string = StringReplace($string, "4", "a") $string = StringReplace($string, "0", "o") $string = StringReplace($string, "!", "i") $string = StringReplace($string, "3", "e") $string = StringReplace($string, "|_", "l") $string = StringReplace($string, "[]D", "p") $string = StringReplace($string, "7", "t") $string = StringReplace($string, ",", ".") $string = StringReplace($string, "$", "S") $string = StringReplace($string, "4", "A") $string = StringReplace($string, "0", "O") $string = StringReplace($string, "!", "i") $string = StringReplace($string, "3", "e") $string = StringReplace($string, "|_", "l") $string = StringReplace($string, "[]D", "p") $string = StringReplace($string, "7", "t") GUICtrlSetData($Label, $string) EndSelect WEnd
GEOSoft Posted November 21, 2007 Posted November 21, 2007 (edited) You could also retranslate it: #include <GUIConstants.au3> $GUI = GUICreate("1337 Text Translator", 200, 90, -1, -1) $Input = GUICtrlCreateInput("", 10, 60, 180, 20) $Button = GUICtrlCreateButton("Redo Text", 10, 30, 180, 25) $Label = GUICtrlCreateLabel("", 10, 10, 180, 20) GUISetState(@SW_SHOW) While 1 $nMsg = GUIGetMsg() Select Case $nMsg = $GUI_EVENT_CLOSE Exit Case $nMsg = $Button $string = GUICtrlRead($Input) $string = StringReplace($string, "$", "s") $string = StringReplace($string, "4", "a") $string = StringReplace($string, "0", "o") $string = StringReplace($string, "!", "i") $string = StringReplace($string, "3", "e") $string = StringReplace($string, "|_", "l") $string = StringReplace($string, "[]D", "p") $string = StringReplace($string, "7", "t") $string = StringReplace($string, ",", ".") $string = StringReplace($string, "$", "S") $string = StringReplace($string, "4", "A") $string = StringReplace($string, "0", "O") $string = StringReplace($string, "!", "i") $string = StringReplace($string, "3", "e") $string = StringReplace($string, "|_", "l") $string = StringReplace($string, "[]D", "p") $string = StringReplace($string, "7", "t") GUICtrlSetData($Label, $string) EndSelect WEndPut all of the text and 1337 characters into 2D array then 1 script would do it all. Edit: You could also cut it down by removing the duplicate replacement strings. Edited November 21, 2007 by GEOSoft George Question about decompiling code? Read the decompiling FAQ and don't bother posting the question in the forums.Be sure to read and follow the forum rules. -AKA the AutoIt Reading and Comprehension Skills test.*** The PCRE (Regular Expression) ToolKit for AutoIT - (Updated Oct 20, 2011 ver:3.0.1.13) - Please update your current version before filing any bug reports. The installer now includes both 32 and 64 bit versions. No change in version number. Visit my Blog .. currently not active but it will soon be resplendent with news and views. Also please remove any links you may have to my website. it is soon to be closed and replaced with something else. "Old age and treachery will always overcome youth and skill!"
Tomb Posted November 22, 2007 Posted November 22, 2007 (edited) i made this a long time ago.it was my first gui based program.http://www.blizzsector.net/hacks-dupes/425...-1337-text.htmli am now searching for my source code on my pc Edited November 22, 2007 by Tomb616
kev51773 Posted November 23, 2007 Posted November 23, 2007 You could also retranslate it:Actually, you couldn't. It works in one direction because your only turning letters into symbols/numbers. If there were already any symbols/numbers in the string, they're left unchanged.In the reverse you'd end up with a mess.
JustinReno Posted November 23, 2007 Posted November 23, 2007 Actually, you couldn't. It works in one direction because your only turning letters into symbols/numbers. If there were already any symbols/numbers in the string, they're left unchanged.In the reverse you'd end up with a mess.Did you look at my code?It changes the symbals/#s back into letters.
McGod Posted November 23, 2007 Posted November 23, 2007 It would create a mess, look @ it this way Original: The total is $4.50 L33T: 7h3 7074|_ !$ $4,50 Convert back would be: the total is sa.50 [indent][center][u]Formerly Chip[/u][/center]~UDFs~[/indent][u]IRC.au3 - Allows you to connect to IRC ServersINetCon.au3 - Connects/Disconnects/Check Status of InternetHardware Key - Creates a unique hardware hashScriptComm - Allows you to communicate between scripts using WM_COPYDATA[/u][indent]~Programs~[/indent][indent]SimonAu3ForumsIRC Bot~Web Site~Web Autoit Example[/indent][indent][b][/b][/indent][u][/u]
Terrified Posted November 23, 2007 Posted November 23, 2007 really nice man im trying to do something simmilar to your script too ;P
jvanegmond Posted November 24, 2007 Posted November 24, 2007 I often use this to annoy people: $Hotkey = "i,o,a,s,e" ; l3tt3r$ d13 0mg3z3t m033t3n word3n $l33t = "1,0,4,$,3" ; d3 n44r om t3 z3tt3n l3tt3r$ Global Const $aHotkey = StringSplit($Hotkey,",") Global Const $al33t = StringSplit($l33t,",") For $x = 1 to $aHotkey[0] HotKeySet($aHotkey[$x],"l33tfunc") Next While 1 Sleep(1000) WEnd Func l33tfunc() For $x = 1 to $aHotkey[0] If $aHotkey[$x] = @HotKeyPressed Then Send($al33t[$x]) Next EndFunc Comments are dutch. github.com/jvanegmond
AlmarM Posted February 2, 2008 Author Posted February 2, 2008 I updated my script afther a long time ago expandcollapse popup#include <GUIConstants.au3> $GUI = GUICreate("1337 Text Translator", 200, 90, -1, -1) $Input = GUICtrlCreateInput("", 10, 60, 180, 20) $Button = GUICtrlCreateButton("1337 My Text", 10, 30, 180, 25) $Label = GUICtrlCreateLabel("", 10, 10, 180, 20) GUISetState(@SW_SHOW) While 1 $nMsg = GUIGetMsg() Select Case $nMsg = $GUI_EVENT_CLOSE Exit Case $nMsg = $Button $string = GUICtrlRead($Input) $string = StringReplace($string, "s", "$") $string = StringReplace($string, "a", "4") $string = StringReplace($string, "o", "0") $string = StringReplace($string, "i", "!") $string = StringReplace($string, "e", "3") $string = StringReplace($string, "l", "|_") $string = StringReplace($string, "p", "|>") $string = StringReplace($string, "t", "7") $string = StringReplace($string, ".", ",") $string = StringReplace($string, "b", "/3") $string = StringReplace($string, "c", "(") $string = StringReplace($string, "d", "[)") $string = StringReplace($string, "h", "]-[") $string = StringReplace($string, "k", "|<") $string = StringReplace($string, "m", "|v|") $string = StringReplace($string, "n", "/\/") $string = StringReplace($string, "q", "()_") $string = StringReplace($string, "r", "/2") $string = StringReplace($string, "v", "\/") $string = StringReplace($string, "w", "\/\/") $string = StringReplace($string, "x", "><") $string = StringReplace($string, "y", "`/") $string = StringReplace($string, "z", "7_") MsgBox(0, "1337 Text", $string) EndSelect WEnd Minesweeper A minesweeper game created in autoit, source available. _Mouse_UDF An UDF for registering functions to mouse events, made in pure autoit. 2D Hitbox Editor A 2D hitbox editor for quick creation of 2D sphere and rectangle hitboxes.
lsakizada Posted February 3, 2008 Posted February 3, 2008 What is usefull for? Be Green Now or Never (BGNN)!
NELyon Posted February 3, 2008 Posted February 3, 2008 What is usefull for?It's useful for... just about nothing It's fun to mess with though, and have people try to read the original text
James Posted February 3, 2008 Posted February 3, 2008 (edited) Manadar, 1 4m 3v3n m0r3 l337! $Hotkey = "i,o,a,s,e,b,t,I,O,S,E,B,T"; l3tt3r$ d13 0mg3z3t m033t3n word3n $l33t = "1,0,4,$,3,8,7,1,0,$,3,8,7"; d3 n44r om t3 z3tt3n l3tt3r$ Global Const $aHotkey = StringSplit($Hotkey,",") Global Const $al33t = StringSplit($l33t,",") For $x = 1 to $aHotkey[0] HotKeySet($aHotkey[$x],"l33tfunc") Next While 1 Sleep(1000) WEnd Func l33tfunc() For $x = 1 to $aHotkey[0] If $aHotkey[$x] = @HotKeyPressed Then Send($al33t[$x]) Next EndFunc Edited February 3, 2008 by JamesB Blog - Seriously epic web hosting - Twitter - GitHub - Cachet HQ
Mattraks Posted February 5, 2008 Posted February 5, 2008 I made it better, not having it in a popup. expandcollapse popup#include <GUIConstants.au3> $GUI = GUICreate("1337 Text Translator", 200, 90, -1, -1) $Input = GUICtrlCreateInput("", 10, 60, 180, 20) $Button = GUICtrlCreateButton("1337 My Text", 10, 30, 180, 25) $Label = GUICtrlCreateLabel("", 10, 10, 180, 20) GUISetState(@SW_SHOW) While 1 $nMsg = GUIGetMsg() Select Case $nMsg = $GUI_EVENT_CLOSE Exit Case $nMsg = $Button $string = GUICtrlRead($Input) $string = StringReplace($string, "s", "$") $string = StringReplace($string, "a", "4") $string = StringReplace($string, "o", "0") $string = StringReplace($string, "i", "!") $string = StringReplace($string, "e", "3") $string = StringReplace($string, "l", "|_") $string = StringReplace($string, "p", "|>") $string = StringReplace($string, "t", "7") $string = StringReplace($string, ".", ",") $string = StringReplace($string, "b", "/3") $string = StringReplace($string, "c", "(") $string = StringReplace($string, "d", "[)") $string = StringReplace($string, "h", "]-[") $string = StringReplace($string, "k", "|<") $string = StringReplace($string, "m", "|v|") $string = StringReplace($string, "n", "/\/") $string = StringReplace($string, "q", "()_") $string = StringReplace($string, "r", "/2") $string = StringReplace($string, "v", "\/") $string = StringReplace($string, "w", "\/\/") $string = StringReplace($string, "x", "><") $string = StringReplace($string, "y", "`/") $string = StringReplace($string, "z", "7_") GUICtrlSetData($Input, $string) EndSelect WEnd
jvanegmond Posted February 7, 2008 Posted February 7, 2008 Manadar, 1 4m 3v3n m0r3 l337! $Hotkey = "i,o,a,s,e,b,t,I,O,S,E,B,T"; l3tt3r$ d13 0mg3z3t m033t3n word3n $l33t = "1,0,4,$,3,8,7,1,0,$,3,8,7"; d3 n44r om t3 z3tt3n l3tt3r$ Global Const $aHotkey = StringSplit($Hotkey,",") Global Const $al33t = StringSplit($l33t,",") For $x = 1 to $aHotkey[0] HotKeySet($aHotkey[$x],"l33tfunc") Next While 1 Sleep(1000) WEnd Func l33tfunc() For $x = 1 to $aHotkey[0] If $aHotkey[$x] = @HotKeyPressed Then Send($al33t[$x]) Next EndFuncYeah, I made it so you can add your own stuff easily. github.com/jvanegmond
Richard Robertson Posted February 7, 2008 Posted February 7, 2008 But what happens if you need to type something like Dim and it gets turned into D1m? Maybe a pause hot key too.
AlmarM Posted February 8, 2008 Author Posted February 8, 2008 Why would u turn on this script, if ur scripting urself ? Minesweeper A minesweeper game created in autoit, source available. _Mouse_UDF An UDF for registering functions to mouse events, made in pure autoit. 2D Hitbox Editor A 2D hitbox editor for quick creation of 2D sphere and rectangle hitboxes.
FreeFry Posted February 12, 2008 Posted February 12, 2008 Mine's the leetestestest expandcollapse popupDim $Hotkeys[13][2] = [["i", "1"],["o", "0"],["a", "4"],["s", "$"],["e", "3"],["b", "8"],["t", "7"],["I", "1"],["O", "0"],["S", "$"],["E", "3"],["B", "8"],["T", "7"]], $Paused = False HotKeySet("{pause}", "_Pause") _Bind(1) While 1 Sleep(1000) WEnd Func l33tfunc() For $x = 0 to UBound($Hotkeys)-1 If $Hotkeys[$x][0] == @HotKeyPressed Then Send($Hotkeys[$x][1]) Next EndFunc Func _Bind($i_State) If $i_State Then For $x = 0 to UBound($Hotkeys)-1 HotKeySet($Hotkeys[$x][0],"l33tfunc") Next Else For $x = 0 to UBound($Hotkeys)-1 HotKeySet($Hotkeys[$x][0]) Next EndIf EndFunc Func _Pause() $Paused = $Paused If $Paused Then _Bind(1) ToolTip("Leet speak enabled!") Else _Bind(0) ToolTip("Leet speak disabled!") EndIf EndFunc Also fixed the bug where it would send twice the char(because of binding large and small letters, caused by not having the "leetfunc" not being case sensetive) Might not be as easy to add keys, but hey who cares anyway lol
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now