Jump to content
Sign in to follow this  
Followers 0
Guest Py7|-|[]/\/

The Original 1337

By Guest Py7|-|[]/\/, in AutoIt Example Scripts

Recommended Posts

Guest Py7|-|[]/\/   

Guest Py7|-|[]/\/
Posted (edited) 

; 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 by Py7|-|[]/\/

Share this post

Link to post
Share on other sites

layer    2

layer
Posted

Rofl, a nice script for all the nubs, i like it though.

FootbaG

Share this post

Link to post
Share on other sites

Guest Py7|-|[]/\/   

Guest Py7|-|[]/\/
Posted

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.

Share this post

Link to post
Share on other sites

killaz219    0

killaz219
Posted

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 :">

Share this post

Link to post
Share on other sites

Guest Py7|-|[]/\/   

Guest Py7|-|[]/\/
Posted (edited)

Here is a second version for your enjoyment. The comments should tell you enough about it.

; 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 by Py7|-|[]/\/

Share this post

Link to post
Share on other sites

killaz219    0

killaz219
Posted (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 by killaz219

Share this post

Link to post
Share on other sites

Guest Py7|-|[]/\/   

Guest Py7|-|[]/\/
Posted (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 by Py7|-|[]/\/

Share this post

Link to post
Share on other sites

layer    2

layer
Posted

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

Share this post

Link to post
Share on other sites

this-is-me    4

this-is-me
Posted (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 by this-is-me
Who else would I be?

Share this post

Link to post
Share on other sites

Guest Py7|-|[]/\/   

Guest Py7|-|[]/\/
Posted (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 by Py7|-|[]/\/

Share this post

Link to post
Share on other sites

this-is-me    4

this-is-me
Posted

Anyone have a full list of single-character to single-character conversions like the a to 4, etc?

Who else would I be?

Share this post

Link to post
Share on other sites

Guest Py7|-|[]/\/   

Guest Py7|-|[]/\/
Posted

I can send you them if you want.

Also, new GUI versions of both versions (advanced and normal 1337 translator) are available, scroll up.

Share this post

Link to post
Share on other sites

this-is-me    4

this-is-me
Posted

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?

Share this post

Link to post
Share on other sites

Guest Py7|-|[]/\/   

Guest Py7|-|[]/\/
Posted

@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?

Share this post

Link to post
Share on other sites

this-is-me    4

this-is-me
Posted

y0u 5h0u1d u53 4n 3d!7 !n5734d 0ph 4n !npu7.

Who else would I be?

Share this post

Link to post
Share on other sites

Guest Py7|-|[]/\/   

Guest Py7|-|[]/\/
Posted (edited)

3|4|3[]r473 p|34s3... (elaborate please)

Edited by Py7|-|[]/\/

Share this post

Link to post
Share on other sites

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 account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  
Followers 0
Go To Topic Listing AutoIt Example Scripts
×

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.

  I accept