AlmarM Posted November 21, 2007 Share 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. Link to comment Share on other sites More sharing options...
JustinReno Posted November 21, 2007 Share 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 Link to comment Share on other sites More sharing options...
Kaneluv Posted November 21, 2007 Share Posted November 21, 2007 Ha, nice work. I found this amusing. Link to comment Share on other sites More sharing options...
GEOSoft Posted November 21, 2007 Share 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!" Link to comment Share on other sites More sharing options...
JustinReno Posted November 21, 2007 Share Posted November 21, 2007 I'm not good with arrays. Link to comment Share on other sites More sharing options...
Tomb Posted November 22, 2007 Share 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 Link to comment Share on other sites More sharing options...
kev51773 Posted November 23, 2007 Share 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. Link to comment Share on other sites More sharing options...
JustinReno Posted November 23, 2007 Share 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. Link to comment Share on other sites More sharing options...
McGod Posted November 23, 2007 Share 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] Link to comment Share on other sites More sharing options...
Terrified Posted November 23, 2007 Share Posted November 23, 2007 really nice man im trying to do something simmilar to your script too ;P Link to comment Share on other sites More sharing options...
jvanegmond Posted November 24, 2007 Share 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 Link to comment Share on other sites More sharing options...
AlmarM Posted February 2, 2008 Author Share 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. Link to comment Share on other sites More sharing options...
lsakizada Posted February 3, 2008 Share Posted February 3, 2008 What is usefull for? Be Green Now or Never (BGNN)! Link to comment Share on other sites More sharing options...
NELyon Posted February 3, 2008 Share 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 Link to comment Share on other sites More sharing options...
James Posted February 3, 2008 Share 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 Link to comment Share on other sites More sharing options...
Mattraks Posted February 5, 2008 Share 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 Link to comment Share on other sites More sharing options...
jvanegmond Posted February 7, 2008 Share 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 Link to comment Share on other sites More sharing options...
Richard Robertson Posted February 7, 2008 Share 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. Link to comment Share on other sites More sharing options...
AlmarM Posted February 8, 2008 Author Share 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. Link to comment Share on other sites More sharing options...
FreeFry Posted February 12, 2008 Share 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 Link to comment Share on other sites More sharing options...
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