Jump to content

The Original 1337


Guest Py7|-|[]/\/
 Share

Recommended Posts

  • Replies 59
  • Created
  • Last Reply

Top Posters In This Topic

Top Posters In This Topic

Guest Py7|-|[]/\/

Cool CyberSlug, now not everyone will have to deal with the new world language of 1337 sk337!

Thanks this-is-me, I'm not good with GUI at all so I will tell Mephy about that, thanks for all your help.

Link to comment
Share on other sites

Guest Py7|-|[]/\/

#include <GUIConstants.au3>
AutoItSetOption("TrayIconDebug", 1)

Global $style1
Global $IniFile
Global $GUIWidth
Global $GUIHeight

$winwidth = @DesktopWidth - 7
$winheight = 184
$IniFile = StringTrimRight(@ScriptFullPath, 3) & "ini"

; First window before translated.
$win1 = GuiCreate("Mephy/Python's 1337 translator", $winwidth, $winheight, 1, 1)
   GuiSetBkColor( 0x000000 )
   GuiSetFont(20, 20, 0, "Comic Sans MS")
   GuiCtrlCreateLabel("Enter the text you want converted below:", 1, 1, $winwidth, 43)
   GuiCtrlSetColor( -1,0xFF0000 )
   $english = GuiCtrlCreateInput("", 1, 44, $winwidth - 250, 43)
   GuiCtrlSetColor( $english,0xFF0000 )
   $convert = GuiCtrlCreateButton("Translate Text", 1345, 44, 215, 43)
   GUICtrlSetState( $convert, $GUI_DEFBUTTON)
   $progressbar = GuiCtrlCreateProgress(1/4 * $winwidth, 107, 1/2 * $winwidth, 1/4 * $winheight)
   GuiCtrlSetColor(-1, 0x000000)
   $wait = .001
   $s = 0
   
;Sedond window after translate button pressed.
$win2 = GuiCreate("Mephy/Python's 1337 translator", $winwidth, $winheight, 1, 1)
   GuiSetBkColor( 0x000000)
   GuiSetFont(20, 20, 0, "Comic Sans MS")
   GuiCtrlCreateLabel("Your translated Text is:", 1, 1, $winwidth , 43)
   GuiCtrlSetColor( -1,0xFF0000 )
   $1337 = GuiCtrlCreateInput("", 1, 44, $winwidth - 250, 43)
   GuiCtrlSetColor( $1337,0xFF0000 )
   GuiCtrlSetState($1337, $GUI_DISABLE)
   $clipboard = GuiCtrlCreateButton("Add To Clipboard", 1350, 44, 215, 45)
   GUICtrlSetState( $clipboard, $GUI_DEFBUTTON)

GUISwitch($win1)
GuiSetState(@SW_SHOW)

While 1
   $msg = GUIGetMsg()
   Select
   Case $msg = $GUI_EVENT_CLOSE
      Exit
   Case $msg = $convert
      For $i = $s To 100
         $m = GUIGetMsg ()
      If  $s=0 Then
         GUICtrlSetData ($progressbar,$i)
         Sleep($wait)
      EndIf
   Next
   $translated = Advanced(GUIRead($english))
      GuiCtrlSetData($1337, $translated, 1)
      GuiDelete()
      GuiSwitch($win2)
      GuiSetState(@SW_SHOW)
   Case $msg = $clipboard
      ClipPut(GUIRead($1337))
      GuiCtrlSetState( $convert, $GUI_DEFBUTTON)
   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

This is version 1.4 of my 1337 translator. Updated with my new GUI setup.

P.S. This is Py7|-|[]/\/'s brother. Just trying to help him out a lil with his scripts :)

Link to comment
Share on other sites

As a side note... 8 should be ate (anything that sounds that way) not eat. I understand you need it to be eat for gr8, but it wont work I needs to be something else because l8r is ate :) sorry dont mean to throw a kink in there :)

This is pretty cool. Yea you definitely need a standard. What you can do is give them the ability to select a text file and translate it into another file. Any kind of text file can be converted.

You actually should use the GUI to create the option for them to either just translate some phrases, and also the text file thing. I dont know much about the GUI, but I know there has to be a way you can output the phrases into something like a text box or memo box that they can copy and paste out of. You can even give them a button to press to copy it to the clipboard.

Hope those help,

JS

AutoIt Links

File-String Hash Plugin Updated! 04-02-2008 Plugins have been discontinued. I just found out.

ComputerGetInfo UDF's Updated! 11-23-2006

External Links

Vortex Revolutions Engineer / Inventor (Web, Desktop, and Mobile Applications, Hardware Gizmos, Consulting, and more)

Link to comment
Share on other sites

No problems. I have made a change earlier to my own script to do ate and eat in my own script, but haven't updated the code here. Will do now. I also wanted it as simple as possible, so I voted for clipget. I am hoping to do something else later that will blow it all away, but I won't tell you what.

Who else would I be?
Link to comment
Share on other sites

Also a reverse translation would be nice. It wouldnt cover all 1337 speak, but it might convert enough of something to make it readable.

JS

AutoIt Links

File-String Hash Plugin Updated! 04-02-2008 Plugins have been discontinued. I just found out.

ComputerGetInfo UDF's Updated! 11-23-2006

External Links

Vortex Revolutions Engineer / Inventor (Web, Desktop, and Mobile Applications, Hardware Gizmos, Consulting, and more)

Link to comment
Share on other sites

The point (if there really is one) is ego. Those who feel they are worthy to speak and read this type of language (if you call it a language) puff themselves up with pride knowing that they can mangle characters to make them almost unreadable by "normal" people, thus making them (in their minds) Elite, or above average. This however, can be easily seen through by looking at the person (Python) who began this nonsense anyway.

For me, however, it is a little different. I have always had an interest in the way a character is laid out on a page. I studied as a young person to skillfully be able to read upside-down text, backwards text, upside down and backwards text, etc. as fast as I can reading normal text. This for me is another venture into the fascinating world of printed characters.

Who else would I be?
Link to comment
Share on other sites

Guest Py7|-|[]/\/

Interesting description. I like it for a few reasons. First, it looks better to me than normal writing; and provides more of a challenge. (I can pretty much read 1337 the same speed as normal writing now after years of practice). Also, because it is great to flame people with especially on AIM or some hacking forum. Also, it scares people who have no idea what #'s and symbols are doing in a word. Lastly, I prefer to think of myself as the "ASCII master" because I pretty much am. =)

Wity Mephy, and my brother's help I am adding in a ton of new features into a totally new GUI version of this. It should also have a de-translator for your enjoyment. I am NOT going to replace "ate" with 8 because I personally feel like that is sloppy 1337 spelling. I prefer to write out the entire word and then to "1337ize" it for reading. I suppose that I am pretty picky about my 1337.

And the name of my standard letters, characters, and symbols, as I have come to call it in this specific arrangement is: Reaper's Stardard Character Alphabet of 1337.

7h3 R34p3r |0v3s t0 writ3 in 3|it3 4nd y0u sh0u|d t00!

Link to comment
Share on other sites

Guest Py7|-|[]/\/

New version 1.6 is here!!! Enjoy.

; ----------------------------------------------------------------------------
;
; AutoIt Version: 3.0
; Language:       English
; Platform:       Win9x / NT
; Author:         A.N.Other <myemail@nowhere.com>
;
; Script Function:
;    Template AutoIt script.
;
; ----------------------------------------------------------------------------

; 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
; ----------------------------------------------------------------------------
;GUICtrlCreate... ("Text", left-right, top-bottom, howlong, howthick)
;black = 0x000000, green = 0x00FF00, red = 0xFF0000

#include <GUIConstants.au3>
AutoItSetOption("TrayIconDebug", 1)

Global $style1
Global $IniFile
Global $GUIWidth
Global $GUIHeight

$winwidth = @DesktopWidth - 7
$winheight = 234
$IniFile = StringTrimRight(@ScriptFullPath, 3) & "ini"

; First window before translated.
$win1 = GuiCreate("Mephy/Python's 1337 translator", $winwidth, $winheight, 1, 1)
   GuiSetBkColor( 0x000000 )
   GuiSetFont(20, 20, 0, "Comic Sans MS")
   GuiCtrlCreateLabel("Enter normal text you wish to translate to 1337:", 1, 1, $winwidth, 43)
   GuiCtrlSetColor( -1,0xFF0000 )
   $englishtext = GUICtrlCreateInput("", 1, 44, $winwidth - 250, 43)
   GuiCtrlSetColor( $englishtext,0xFF0000 )
   $convert = GUICtrlCreateButton("Translate", $winwidth - 250, 44, 215, 43)
   GUICtrlSetState( $convert, $GUI_DEFBUTTON)
   GuiCtrlCreateLabel("Enter 1337 text you wish to translate to normal:", 1, 87, $winwidth, 43)
   GuiCtrlSetColor( -1,0xFF0000 )
   $1337text = GUICtrlCreateInput("", 1, 130, $winwidth - 250, 43)
   $deconvert = GUICtrlCreateButton("Detranslate", $winwidth - 250, 130, 215, 43)
   $progressbar = GuiCtrlCreateProgress(1/4 * $winwidth, 183, 1/2 * $winwidth, 46)
   GuiCtrlSetColor(-1, 0x000000)
   $wait = .001
   $s = 0
   
;Sedond window after translate button pressed.
$win2 = GuiCreate("Mephy/Python's 1337 translator", $winwidth, $winheight, 1, 1)
   GuiSetBkColor( 0x000000)
   GuiSetFont(20, 20, 0, "Comic Sans MS")
   GuiCtrlCreateLabel("Your translated text is:", 1, 1, $winwidth , 43)
   GuiCtrlSetColor( -1,0xFF0000 )
   $1337 = GUICtrlCreateInput("", 1, 44, $winwidth - 250, 43)
   GuiCtrlSetColor( $1337,0xFF0000 )
   GuiCtrlSetState($1337, $GUI_DISABLE)
   $clipboard = GUICtrlCreateButton("Add To Clipboard", $winwidth - 250, 44, 215, 43)
   GUICtrlSetState( $clipboard, $GUI_DEFBUTTON)
   GuiCtrlCreateLabel("Your detranslated text is:", 1, 87, $winwidth, 43)
   GuiCtrlSetColor( -1,0xFF0000 )
   $normal = GUICtrlCreateInput("", 1, 130, $winwidth - 250, 43)
   GuiCtrlSetColor( -1,0xFF0000 )
   GuiCtrlSetState( $normal, $GUI_DISABLE)
   $clipboard2 = GUICtrlCreateButton("Add to Clipboard", $winwidth - 250, 130, 215, 43)
   $restart = GUICtrlCreateButton("Restart", $winwidth - 250, 181, 215, 45)

GUISwitch($win1)
GuiSetState(@SW_SHOW)

While 1
   $msg = GUIGetMsg()
   Select
   Case $msg = $GUI_EVENT_CLOSE
      Exit
   Case $msg = $convert
      For $i = $s To 100
         $m = GUIGetMsg ()
      If  $s=0 Then
         GUICtrlSetData ($progressbar,$i)
         Sleep($wait)
      EndIf
   Next
   $translated = Advanced(GUIRead($englishtext))
      GuiCtrlSetData($1337, $translated, 1)
      GuiSetState(@SW_HIDE)
      GuiSwitch($win2)
      GuiSetState(@SW_SHOW)
   Case $msg = $clipboard
      ClipPut(GUIRead($1337))
      GuiCtrlSetState( $convert, $GUI_DEFBUTTON)
   Case $msg = $clipboard2
      ClipPut(GUIRead($normal))
   Case $msg = $restart
      GuiSetState(@SW_HIDE)
      GuiSwitch($win1)
      GuiSetState(@SW_RESTORE)
   Case $msg = $deconvert
      For $i = $s To 100
         $m = GUIGetMsg ()
      If  $s=0 Then
         GUICtrlSetData ($progressbar,$i)
         Sleep($wait)
      EndIf
      Next
      $detranslated = DetranslateFunc(GUIRead($1337text))
      GuiCtrlSetData($normal, $detranslated, 1)
      GuiSetState(@SW_HIDE)
      GuiSwitch($win2)
      GuiSetState(@SW_SHOW)
      EndSelect
Wend
Func Advanced($text)
   $lowera = StringReplace($text, "a", "@", 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

Func DetranslateFunc($text)
   $replaceb = StringReplace($text, "|3", "B", 0, 1);replaces strings
   $replaceo = StringReplace($replaceb, "()", "O", 0, 1)
   $replacea = StringReplace($replaceo, "4", "A", 0, 1)
   $replaced = StringReplace($replacea, "|)", "D", 0, 1)
   $replaceh = StringReplace($replaced, "|-|", "H", 0, 1)
   $replacei = StringReplace($replaceh, "1", "I", 0, 1)
   $replacek = StringReplace($replacei, "|<", "K", 0, 1)
   $replacew = StringReplace($replacek, "\/\/", "W", 0, 1)
   $replacem = StringReplace($replacew, "/\/\", "M", 0, 1)
   $replacen = StringReplace($replacem, "/\/", "N", 0, 1)
   $replacec = StringReplace($replacen, "[", "C", 0, 1)
   $replaces = StringReplace($replacec, "5", "S", 0, 1)
   $replacet = StringReplace($replaces, "7", "T", 0, 1)
   $replacev = StringReplace($replacet, "\/", "V", 0, 1)
   $replacex = StringReplace($replacev, "><", "X", 0, 1)

;End Capital Letters

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;Begin Lowercase

   $rplca = StringReplace($replacex, "@", "a", 0, 1)
   $rplcc = StringReplace($rplca, "(", "c", 0, 1)
   $rplce = StringReplace($rplcc, "3", "e", 0, 1)
   $rplcl = StringReplace($rplce, "|", "l", 0, 1)
   $rplco = StringReplace($rplcl, "0", "o", 0, 1)
   Return $rplco
EndFunc

;End Capital Letters

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Known Issues?

-Detranslator will consider "le" and "LE" as "B" when translated. This is due to a string replaing problem. I will fix it in next version.

-Won't hold an infinite amount of data for translation. This too will be updated in next version.

What's added in this version?

-Cool new GUI made by Marek!

-Detranslator!

-Colors!

-Enjoy!

-Reaper

AdvancedTranslate.au3

Edited by Py7|-|[]/\/
Link to comment
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
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...