Guest Py7|-|[]/\/ Posted November 18, 2004 Share Posted November 18, 2004 (edited) expandcollapse popup; Setup some useful options that you may want to turn on - see the helpfile for details. ; Expand all types of variables inside strings ;Opt("ExpandEnvStrings", 1) ;Opt("ExpandVarStrings", 1) ; Require that variables are declared (Dim) before use (helps to eliminate silly mistakes) ;Opt("MustDeclareVars", 1) ; ---------------------------------------------------------------------------- ; Script Start - Add your code below here ; ---------------------------------------------------------------------------- ;Translates normal writing in 1337 writing that will make you the envy of the 1337 ub3r h4x0rs d00d! ;Created by the Reaper. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;Normal Translation #include <GUIConstants.au3> $winwidth = @DesktopWidth - 30 $winheight = 100 GuiCreate("Mephy/Python's 1337 translator", $winwidth, $winheight, 1, 1) GuiCtrlCreateLabel("Enter the text you want converted below:", 1, 1, $winwidth, 20) GuiCtrlCreateLabel("Your translated Text is:", 1, 41, $winwidth , 20) $english = GuiCtrlCreateInput("", 1, 21, $winwidth - 92, 20) $1337 = GuiCtrlCreateInput("", 1, 61, $winwidth - 92, 20) GuiCtrlSetState($1337, $GUI_DISABLE) $convert = GuiCtrlCreateButton("Translate Text", $winwidth - 90, 21, 90, 20) $clipboard = GuiCtrlCreateButton("Add To Clipboard", $winwidth - 90, 61, 90, 20) GuiSetState() While 1 $msg = GUIGetMsg() Select Case $msg = $GUI_EVENT_CLOSE Exit Case $msg = $convert $translated = TranslateFunc(GUIRead($english)) GuiCtrlSetData($1337, $translated, 1) Case $msg = $clipboard ClipPut(GUIRead($1337)) EndSelect Wend Func TranslateFunc($text) $a = StringReplace($text, "a", "4", 0, 0);translates your writing $b = StringReplace($a, "b", "|3", 0, 0) $c = StringReplace($b, "c", "(", 0, 0) $d = StringReplace($c, "d", "|)", 0, 0) $e = StringReplace($d, "e", "3", 0, 0) $f = StringReplace($e, "f", "f", 0, 0) $g = StringReplace($f, "g", "g", 0, 0) $h = StringReplace($g, "h", "|-|", 0, 0) $i = StringReplace($h, "i", "1", 0, 0) $j = StringReplace($i, "j", "j", 0, 0) $k = StringReplace($j, "k", "k", 0, 0) $l = StringReplace($k, "l", "|", 0, 0) $m = StringReplace($l, "m", "/\/\", 0, 0) $n = StringReplace($m, "n", "/\/", 0, 0) $o = StringReplace($n, "o", "[]", 0, 0) $p = StringReplace($o, "p", "p", 0, 0) $q = StringReplace($p, "q", "q", 0, 0) $r = StringReplace($q, "r", "r", 0, 0) $s = StringReplace($r, "s", "s", 0, 0) $t = StringReplace($s, "t", "7", 0, 0) $u = StringReplace($t, "u", "u", 0, 0) $v = StringReplace($u, "v", "\/", 0, 0) $w = StringReplace($v, "w", "\/\/", 0, 0) $x = StringReplace($w, "x", "><", 0, 0) $y = StringReplace($x, "y", "y", 0, 0) $z = StringReplace($y, "z", "z", 0, 0) Return $z EndFunc ;End Translation ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; New verison with GUI's thanks to my man MEPHY!!! Works only with Unstable version. Enjoy! Edited November 18, 2004 by Py7|-|[]/\/ Link to comment Share on other sites More sharing options...
killaz219 Posted November 18, 2004 Share Posted November 18, 2004 (edited) Heh pretty cool.....Here is my edited version.P.S. sorry for late edit i was having this-is-me help me out with a little problem in my scriptEdit: Updated with this-is-me's idea of "eat" for "8"Edit: my file moved here http://www.autoitscript.com/forum/index.php?showtopic=6136 Edited November 18, 2004 by killaz219 Link to comment Share on other sites More sharing options...
layer Posted November 18, 2004 Share Posted November 18, 2004 Rofl, a nice script for all the nubs, i like it though. FootbaG Link to comment Share on other sites More sharing options...
Guest Py7|-|[]/\/ Posted November 18, 2004 Share Posted November 18, 2004 Ok, well not to sound "mean" or anything. But that was editing it and calling it your 1337 translator, although by edit you mean to modify another's code without calling it your own. I'll be updating mine with GUI's etc and some other cool new features soon. Link to comment Share on other sites More sharing options...
killaz219 Posted November 18, 2004 Share Posted November 18, 2004 Ok, well not to sound "mean" or anything. But that was editing it and calling it your 1337 translator, although by edit you mean to modify another's code without calling it your own. I'll be updating mine with GUI's etc and some other cool new features soon.<{POST_SNAPBACK}>Sorry, by that i ment to write modified my killaz219, will edit soon :"> Link to comment Share on other sites More sharing options...
Guest Py7|-|[]/\/ Posted November 18, 2004 Share Posted November 18, 2004 (edited) Here is a second version for your enjoyment. The comments should tell you enough about it. expandcollapse popup; Setup some useful options that you may want to turn on - see the helpfile for details. ; Expand all types of variables inside strings ;Opt("ExpandEnvStrings", 1) ;Opt("ExpandVarStrings", 1) ; Require that variables are declared (Dim) before use (helps to eliminate silly mistakes) ;Opt("MustDeclareVars", 1) ; ---------------------------------------------------------------------------- ; Script Start - Add your code below here ; ---------------------------------------------------------------------------- ;A more advanced version of the original 1337 translator. This version is case sensitive and therefore can be used for more ;specific purposes. ;Created by the Reaper. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;Lowercase #include <GUIConstants.au3> $winwidth = @DesktopWidth - 30 $winheight = 100 GuiCreate("Mephy/Python's 1337 translator", $winwidth, $winheight, 1, 1) GuiCtrlCreateLabel("Enter the text you want converted below:", 1, 1, $winwidth, 20) GuiCtrlCreateLabel("Your translated Text is:", 1, 41, $winwidth , 20) $english = GuiCtrlCreateInput("", 1, 21, $winwidth - 92, 20) $1337 = GuiCtrlCreateInput("", 1, 61, $winwidth - 92, 20) GuiCtrlSetState($1337, $GUI_DISABLE) $convert = GuiCtrlCreateButton("Translate Text", $winwidth - 90, 21, 90, 20) $clipboard = GuiCtrlCreateButton("Add To Clipboard", $winwidth - 90, 61, 90, 20) GuiSetState() While 1 $msg = GUIGetMsg() Select Case $msg = $GUI_EVENT_CLOSE Exit Case $msg = $convert $translated = Advanced(GUIRead($english)) GuiCtrlSetData($1337, $translated, 1) Case $msg = $clipboard ClipPut(GUIRead($1337)) EndSelect Wend Func Advanced($text) $lowera = StringReplace($text, "a", "4", 0, 1);Replaces lowercase letters $lowerb = StringReplace($lowera, "b", "b", 0, 1) $lowerc = StringReplace($lowerb, "c", "(", 0, 1) $lowerd = StringReplace($lowerc, "d", "d", 0, 1) $lowere = StringReplace($lowerd, "e", "3", 0, 1) $lowerf = StringReplace($lowere, "f", "f", 0, 1) $lowerg = StringReplace($lowerf, "g", "g", 0, 1) $lowerh = StringReplace($lowerg, "h", "h", 0, 1) $loweri = StringReplace($lowerh, "i", "i", 0, 1) $lowerj = StringReplace($loweri, "j", "j", 0, 1) $lowerk = StringReplace($lowerj, "k", "k", 0, 1) $lowerl = StringReplace($lowerk, "l", "|", 0, 1) $lowerm = StringReplace($lowerl, "m", "m", 0, 1) $lowern = StringReplace($lowerm, "n", "n", 0, 1) $lowero = StringReplace($lowern, "o", "0", 0, 1) $lowerp = StringReplace($lowero, "p", "p", 0, 1) $lowerq = StringReplace($lowerp, "q", "q", 0, 1) $lowerr = StringReplace($lowerq, "r", "r", 0, 1) $lowers = StringReplace($lowerr, "s", "s", 0, 1) $lowert = StringReplace($lowers, "t", "t", 0, 1) $loweru = StringReplace($lowert, "u", "u", 0, 1) $lowerv = StringReplace($loweru, "v", "v", 0, 1) $lowerw = StringReplace($lowerv, "w", "w", 0, 1) $lowerx = StringReplace($lowerw, "x", "x", 0, 1) $lowery = StringReplace($lowerx, "y", "y", 0, 1) $lowerz = StringReplace($lowery, "z", "z", 0, 1) ;End of LowerCase ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;Capital Letters $higha = StringReplace($lowerz, "A", "4", 0, 1);Replaces capital letters $highb = StringReplace($higha, "B", "|3", 0, 1) $highc = StringReplace($highb, "C", "(", 0, 1) $highd = StringReplace($highc, "D", "|)", 0, 1) $highe = StringReplace($highd, "E", "3", 0, 1) $highf = StringReplace($highe, "F", "F", 0, 1) $highg = StringReplace($highf, "G", "G", 0, 1) $highh = StringReplace($highg, "H", "|-|", 0, 1) $highi = StringReplace($highh, "I", "1", 0, 1) $highj = StringReplace($highi, "J", "J", 0, 1) $highk = StringReplace($highj, "K", "|<", 0, 1) $highl = StringReplace($highk, "L", "|", 0, 1) $highm = StringReplace($highl, "M", "/\/\", 0, 1) $highn = StringReplace($highm, "N", "/\/", 0, 1) $higho = StringReplace($highn, "O", "()", 0, 1) $highp = StringReplace($higho, "P", "P", 0, 1) $highq = StringReplace($highp, "Q", "Q", 0, 1) $highr = StringReplace($highq, "R", "R", 0, 1) $highs = StringReplace($highr, "S", "5", 0, 1) $hight = StringReplace($highs, "T", "7", 0, 1) $highu = StringReplace($hight, "U", "U", 0, 1) $highv = StringReplace($highu, "V", "\/", 0, 1) $highw = StringReplace($highv, "W", "\/\/", 0, 1) $highx = StringReplace($highw, "X", "><", 0, 1) $highy = StringReplace($highx, "Y", "Y", 0, 1) $highz = StringReplace($highy, "Z", "Z", 0, 1) Return $highz EndFunc ;End Capital Letters ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Edited November 18, 2004 by Py7|-|[]/\/ Link to comment Share on other sites More sharing options...
killaz219 Posted November 18, 2004 Share Posted November 18, 2004 (edited) /\/,Nov 17 2004, 09:23 PM]Here is a second version for your enjoyment. The comments should tell you enough about it.Better, I'll update my (modified) version when i finish what im currently working on. Then I may add gui to mine too. Goodwork Py7|-|[]/\/P.S. I dont think much people will use these, because they're really just learning tools for stringreplace Edit: Edited code made $text = InputBox("1337 translator", "Reaper/Mephy's 1337 Translator (Modified by Killaz219)." & @lf & @lf & "Please type in what you would like to translate into 1337 speak") If @error = 1 Then Exit EndIf $text = StringReplace($text, "a", "4", 0, 0) $text = StringReplace($text, "cker", "xx0r", 0, 0) $text = StringReplace($text, "!", "!1!!11!", 0, 0) $text = StringReplace($text, "e", "3", 0, 0) $text = StringReplace($text, "l", "1", 0, 0) $text = StringReplace($text, "t", "7", 0, 0) $text = StringReplace($text, "s", "$", 0, 0) $text = StringReplace($text, "i", "!", 0, 0) $text = StringReplace($text, "g", "9", 0, 0) $text = StringReplace($text, "o", "0", 0, 0) $text = StringReplace($text, "ck", "xx", 0, 0) $text = StringReplace($text, "d", "|)", 0, 0) $text = StringReplace($text, "b", "|3", 0, 0) $text = StringReplace($text, "w", "w", 0, 1) $text = StringReplace($text, "v", "v", 0, 1) $text = StringReplace($text, "m", "m", 0, 1) $text = StringReplace($text, "n", "n", 0, 1) $text = StringReplace($text, "h", "h", 0, 1) $text = StringReplace($text, "W", "\/\/", 0, 1) $text = StringReplace($text, "V", "\/", 0, 1) $text = StringReplace($text, "M", "/\/\", 0, 1) $text = StringReplace($text, "N", "/\/", 0, 1) $text = StringReplace($text, "H", "|-|", 0, 1) $text = StringReplace($text, "X", "><", 0, 1) $text = StringReplace($text, "O", "()", 0, 1) $text = StringReplace($text, "K", "|<", 0, 1) MsgBox(0, "Here is your translated text.", $text) Edited November 18, 2004 by killaz219 Link to comment Share on other sites More sharing options...
Guest Py7|-|[]/\/ Posted November 18, 2004 Share Posted November 18, 2004 (edited) Yes, but I am writing a book right now. In the end I will copy all of the words and transform it into 1337 writing. That was my main purpose for it. Sadly, MsgBox, as I just learned won't let the user copy + paste the 1337 code, so how do I displate the finished product in a copy + pastable form? Edited November 18, 2004 by Py7|-|[]/\/ Link to comment Share on other sites More sharing options...
layer Posted November 18, 2004 Share Posted November 18, 2004 Well with this I will make an encrypter =) Probably tomorrow because I'm sick and I'll probably be staying home so I can make it, although i owe the credits to python for giving me the idea =D FootbaG Link to comment Share on other sites More sharing options...
Guest Py7|-|[]/\/ Posted November 18, 2004 Share Posted November 18, 2004 c00l d00d, r0(|< 0/\/ Link to comment Share on other sites More sharing options...
layer Posted November 18, 2004 Share Posted November 18, 2004 /\/\3g4 1337 }-{u}-{? FootbaG Link to comment Share on other sites More sharing options...
Guest Py7|-|[]/\/ Posted November 18, 2004 Share Posted November 18, 2004 1 s7ri\/3 t0 b3 4s 1337 4s i (4/\/ b3 Link to comment Share on other sites More sharing options...
this-is-me Posted November 18, 2004 Share Posted November 18, 2004 (edited) $text = clipget() $replace = StringSplit("4,8,8,x0,4,b,c,d,3,ph,9,h,!,j,k,1,m,n,0,p,q,r,5,7,u,v,w,x,y,z", ",") $find = StringSplit("for,ate,eat,cke,a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z", ",") for $i = 1 to $find[0] $text = StringReplace($text, $find[$i], $replace[$i]) Next ClipPut($text) 4n07h3r 0n3 907 c4u9h7 70d4y, !7'5 411 0v3r 7h3 p4p3r5. "733n493r 4rr3573d !n c0mpu73r cr!m3 5c4nd41", "h4x0r 4rr3573d 4ph73r b4nk 74mp3r!n9"... d4mn k!d5. 7h3y'r3 411 41!k3. bu7 d!d y0u, !n y0ur 7hr33-p!3c3 p5ych0109y 4nd 1950'5 73chn0br4!n, 3v3r 74k3 4 100k b3h!nd 7h3 3y35 0ph 7h3 h4x0r? d!d y0u 3v3r w0nd3r wh47 m4d3 h!m 7!ck, wh47 4c35 5h4p3d h!m, wh47 m4y h4v3 m01d3d h!m? ! 4m 4 h4x0r, 3n73r my w0r1d... m!n3 !5 4 w0r1d 7h47 b39!n5 w!7h 5ch001... !'m 5m4r73r 7h4n m057 0ph 7h3 07h3r k!d5, 7h!5 cr4p 7h3y 734ch u5 b0r35 m3... d4mn und3r4ch!3v3r. 7h3y'r3 411 41!k3. !'m !n jun!0r h!9h 0r h!9h 5ch001. !'v3 1!573n3d 70 734ch3r5 3xp14!n 4 7h3 ph!ph733n7h 7!m3 h0w 70 r3duc3 4 phr4c7!0n. ! und3r574nd !7. "n0, m5. 5m!7h, ! d!dn'7 5h0w my w0rk. ! d!d !7 !n my h34d..." d4mn k!d. pr0b4b1y c0p!3d !7. 7h3y'r3 411 41!k3. ! m4d3 4 d!5c0v3ry 70d4y. ! ph0und 4 c0mpu73r. w4!7 4 53c0nd, 7h!5 !5 c001. !7 d035 wh47 ! w4n7 !7 70. !ph !7 m4k35 4 m!574k3, !7'5 b3c4u53 ! 5cr3w3d !7 up. n07 b3c4u53 !7 d035n'7 1!k3 m3... 0r ph3315 7hr38n3d by m3.. 0r 7h!nk5 !'m 4 5m4r7 455.. 0r d035n'7 1!k3 734ch!n9 4nd 5h0u1dn'7 b3 h3r3... d4mn k!d. 411 h3 d035 !5 p14y 94m35. 7h3y'r3 411 41!k3. 4nd 7h3n !7 h4pp3n3d... 4 d00r 0p3n3d 70 4 w0r1d... ru5h!n9 7hr0u9h 7h3 ph0n3 1!n3 1!k3 h3r0!n 7hr0u9h 4n 4dd!c7'5 v3!n5, 4n 313c7r0n!c pu153 !5 53n7 0u7, 4 r3phu93 phr0m 7h3 d4y-70-d4y !nc0mp373nc!35 !5 50u9h7... 4 b04rd !5 ph0und. "7h!5 !5 !7... 7h!5 !5 wh3r3 ! b310n9..." ! kn0w 3v3ry0n3 h3r3... 3v3n !ph !'v3 n3v3r m37 7h3m, n3v3r 741k3d 70 7h3m, m4y n3v3r h34r phr0m 7h3m 494!n... ! kn0w y0u 411... d4mn k!d. 7y!n9 up 7h3 ph0n3 1!n3 494!n. 7h3y'r3 411 41!k3... y0u b37 y0ur 455 w3'r3 411 41!k3... w3'v3 b33n 5p00n-ph3d b4by ph00d 47 5ch001 wh3n w3 hun93r3d 4 5734k... 7h3 b!75 0ph m8 7h47 y0u d!d 137 51!p 7hr0u9h w3r3 pr3-ch3w3d 4nd 745731355. w3'v3 b33n d0m!n8d by 54d!575, 0r !9n0r3d by 7h3 4p47h37!c. 7h3 ph3w 7h47 h4d 50m37h!n9 70 734ch ph0und u5 w!11!n9 pup!15, bu7 7h053 ph3w 4r3 1!k3 dr0p5 0ph w8r !n 7h3 d353r7. 7h!5 !5 0ur w0r1d n0w... 7h3 w0r1d 0ph 7h3 313c7r0n 4nd 7h3 5w!7ch, 7h3 b34u7y 0ph 7h3 b4ud. w3 m4k3 u53 0ph 4 53rv!c3 41r34dy 3x!57!n9 w!7h0u7 p4y!n9 4 wh47 c0u1d b3 d!r7-ch34p !ph !7 w45n'7 run by pr0ph!733r!n9 91u770n5, 4nd y0u c411 u5 cr!m!n415. w3 3xp10r3... 4nd y0u c411 u5 cr!m!n415. w3 533k 4ph73r kn0w13d93... 4nd y0u c411 u5 cr!m!n415. w3 3x!57 w!7h0u7 5k!n c010r, w!7h0u7 n47!0n41!7y, w!7h0u7 r31!9!0u5 b!45... 4nd y0u c411 u5 cr!m!n415. y0u bu!1d 470m!c b0mb5, y0u w493 w4r5, y0u murd3r, ch8, 4nd 1!3 70 u5 4nd 7ry 70 m4k3 u5 b31!3v3 !7'5 4 0ur 0wn 900d, y37 w3'r3 7h3 cr!m!n415. y35, ! 4m 4 cr!m!n41. my cr!m3 !5 7h47 0ph cur!05!7y. my cr!m3 !5 7h47 0ph jud9!n9 p30p13 by wh47 7h3y 54y 4nd 7h!nk, n07 wh47 7h3y 100k 1!k3. my cr!m3 !5 7h47 0ph 0u75m4r7!n9 y0u, 50m37h!n9 7h47 y0u w!11 n3v3r 49!v3 m3 4. ! 4m 4 h4x0r, 4nd 7h!5 !5 my m4n!ph3570. y0u m4y 570p 7h!5 !nd!v!du41, bu7 y0u c4n'7 570p u5 411... 4ph73r 411, w3'r3 411 41!k3. Edited November 18, 2004 by this-is-me Who else would I be? Link to comment Share on other sites More sharing options...
Guest Py7|-|[]/\/ Posted November 18, 2004 Share Posted November 18, 2004 (edited) I know, the kodeslayer is one of my very close inspirations. His original writings in his original 1337 code can be found on NewOrder. Edited November 18, 2004 by Py7|-|[]/\/ Link to comment Share on other sites More sharing options...
this-is-me Posted November 18, 2004 Share Posted November 18, 2004 Anyone have a full list of single-character to single-character conversions like the a to 4, etc? Who else would I be? Link to comment Share on other sites More sharing options...
Guest Py7|-|[]/\/ Posted November 18, 2004 Share Posted November 18, 2004 I can send you them if you want. Also, new GUI versions of both versions (advanced and normal 1337 translator) are available, scroll up. Link to comment Share on other sites More sharing options...
this-is-me Posted November 18, 2004 Share Posted November 18, 2004 Yes, please. I have made a set of changes to the original, like f for ph, cke for x0 (correct h4x0r english instead of xx0), and eat for 8 so you can say gr8. Who else would I be? Link to comment Share on other sites More sharing options...
Guest Py7|-|[]/\/ Posted November 18, 2004 Share Posted November 18, 2004 @this-is-me: could you possibly try out the new (normal version GUI translator)? I have discovered that it will only accept a certain amout of text to translate and this makes me sad. Could you possibly help me think of a way to make it hold more? Link to comment Share on other sites More sharing options...
this-is-me Posted November 18, 2004 Share Posted November 18, 2004 y0u 5h0u1d u53 4n 3d!7 !n5734d 0ph 4n !npu7. Who else would I be? Link to comment Share on other sites More sharing options...
Guest Py7|-|[]/\/ Posted November 18, 2004 Share Posted November 18, 2004 (edited) 3|4|3[]r473 p|34s3... (elaborate please) Edited November 18, 2004 by Py7|-|[]/\/ 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