Jump to content

Recommended Posts

Posted (edited)

For some reason, a lot of people are attracted to leet speak generators. I found a list of how to translate normal speak into leet speak, and decided to build a script for it. I'm currently looking for someone to write a decrypter!

!|= §¤//.3¤//& '//¤v||) 8& \/\/¦#1|//& 7() |)&[Y|^]~[3[z -|-{=}&z& //.£$§@9&5 (_)z|//9 4// @v-|-()!+ z¢2||^+, 1#&// |^1£@§3 |>3 //.Y 9(_)3$-|- @//|) 4[)|) +{=}& z()#|_|-|-!¤// 8^¢}< -|-0 7[-]¦z 1¤|"!<. ! //&<3P\ (n)/\//13o| -|-0 +/-\|<3 7]~[15 -|-|-|47 |#@2 6£(@(_)53 ! ]~[/-\\/£ //.02& !//.|>()P\14//1 z7(_)|#|# -|-¤ o|() +}{@// '//P\¦13 -|-|-|!z [)|_|//.8 |3&-|- &&//3241¤2.

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <EditConstants.au3>

Dim $translate[26][8] = [ _
["4","/\","@","/-\","^"],  _ 
["8","6","|3","|>"],  _ 
["[","¢","<","("],  _ 
["|)","o|","[)"],  _ 
["3","&","£"],  _ 
["|=","ph","|#"],  _ 
["9","6","&;","(_+"],  _ 
["#","[-]","{=}","<~>","|-|","]~[","}{"],  _ 
["1","!","|","¦"],  _ 
[",|","_|",";"],  _ 
["|<","|{","]{","}<"],  _ 
["1","|","|_","#"],  _ 
["//.","^^","|v|","[V]","{V}","|\/|","/\/\","(u)"],  _ 
["//","^/ ","|\|","/\/","[\]","]\[","<\>","{\}"],  _ 
["0","()","¤"],  _ 
["|^","|*","|o","|>","|""","|?"],  _ 
["9","(,)","<|","¶","0."],  _ 
["|2","2","P\","lz","[z"],  _ 
["5","$","z","§"],  _ 
["7","+","-|-","1"],  _ 
["(_)","|_|","v"],  _ 
["\/","<"],  _ 
["\/\/","'//","\^/","(n)","\V/"],  _ 
["><"],  _ 
["Y","'/","`/","V/","\-/","j","_v also ¥","%"],  _ 
["2","z","~\_","~/_"] ]

$Form1 = GUICreate("l33t-sp34k g3n3r4t0r", 333, 328, 193, 115)
$Label1 = GUICtrlCreateLabel("Normal Text:", 5, 10, 64, 17)
$Edit1 = GUICtrlCreateEdit("", 5, 30, 320, 89, $ES_WANTRETURN)
$Button1 = GUICtrlCreateButton("Tr4n$L4+E", 5, 130, 75, 25, 0)
$Label2 = GUICtrlCreateLabel("L33t Sp34k:", 5, 165, 62, 17)
$Edit2 = GUICtrlCreateEdit("", 5, 185, 320, 89, $ES_WANTRETURN)
$Button3 = GUICtrlCreateButton("Copy Text to Clipboard", 5, 290, 130, 25, 0)
$Button4 = GUICtrlCreateButton("About", 185, 290, 70, 25, 0)
$Button5 = GUICtrlCreateButton("Exit", 255, 290, 70, 25, 0)
GUISetState(@SW_SHOW)

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button1 ; "Translate to 1337"
            $normal = GUICtrlRead($Edit1)
            $char = StringSplit($normal,"")
            $1337 = ""
            For $i = 1 to UBound($char)-1
                $n = Asc(StringUpper($char[$i])) - 65
                If ( $n >= 0 And $n <= 25 ) Then
                    $1337 &= _GetChar($n)
                Else
                    If ( $char[$i] == " " ) Then $char[$i] = "   "
                    $1337 &= $char[$i]
                EndIf
            Next
            GUICtrlSetData($Edit2,$1337)
        Case $Button3
            ClipPut(GUICtrlRead($Edit2))
        Case $Button5
            Exit
    EndSwitch
WEnd

Func _GetChar($n)
    $bound = 0
    For $i = 0 to UBound($translate,2)-1
        If ( $translate[$n][$i] == "" ) Then
            $bound = $i
            ExitLoop
        EndIf
    Next
    
    return $translate[$n][Random(0,$bound-1,1)]
EndFunc
Edited by jvanegmond
Posted (edited)

\/£[zY //!<& (n)()P\}< //./\//@[)^|2.

|1`$ <£lzY phv////Y.

3o||-|-: //./-\}<3 +0 <4// +2@//5#^7& ph|2¤//. l33t-sp34k -|-() //¤lz//./\# +3><7.

Edited by Andreik
Posted

!|= §¤//.3¤//& '//¤v||) 8& \/\/¦#1|//& 7() |)&[Y|^]~[3[z -|-{=}&z& //.£$§@9&5 (_)z|//9 4// @v-|-()!+ z¢2||^+, 1#&// |^1£@§3 |>3 //.Y 9(_)3$-|- @//|) 4[)|) +{=}& z()#|_|-|-!¤// 8^¢}< -|-0 7[-]¦z 1¤|"!<. ! //&<3P\ (n)/\//13o| -|-0 +/-\|<3 7]~[15 -|-|-|47 |#@2 6£(@(_)53 ! ]~[/-\\/£ //.02& !//.|>()P\14//1 z7(_)|#|# -|-¤ o|() +}{@// '//P\¦13 -|-|-|!z [)|_|//.8 |3&-|- &&//3241¤2.

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <EditConstants.au3>

Dim $translate[26][8] = [ _
["4","/\","@","/-\","^"],  _ 
["8","6","|3","|>"],  _ 
["[","¢","<","("],  _ 
["|)","o|","[)"],  _ 
["3","&","£"],  _ 
["|=","ph","|#"],  _ 
["9","6","&;","(_+"],  _ 
["#","[-]","{=}","<~>","|-|","]~[","}{"],  _ 
["1","!","|","¦"],  _ 
[",|","_|",";"],  _ 
["|<","|{","]{","}<"],  _ 
["1","|","|_","#"],  _ 
["//.","^^","|v|","[V]","{V}","|\/|","/\/\","(u)"],  _ 
["//","^/ ","|\|","/\/","[\]","]\[","<\>","{\}"],  _ 
["0","()","¤"],  _ 
["|^","|*","|o","|>","|""","|?"],  _ 
["9","(,)","<|","¶","0."],  _ 
["|2","2","P\","lz","[z"],  _ 
["5","$","z","§"],  _ 
["7","+","-|-","1"],  _ 
["(_)","|_|","v"],  _ 
["\/","<"],  _ 
["\/\/","'//","\^/","(n)","\V/"],  _ 
["><"],  _ 
["Y","'/","`/","V/","\-/","j","_v also ¥","%"],  _ 
["2","z","~\_","~/_"] ]

$Form1 = GUICreate("l33t-sp34k g3n3r4t0r", 333, 328, 193, 115)
$Label1 = GUICtrlCreateLabel("Normal Text:", 5, 10, 64, 17)
$Edit1 = GUICtrlCreateEdit("", 5, 30, 320, 89, $ES_WANTRETURN)
$Button1 = GUICtrlCreateButton("Tr4n$L4+E", 5, 130, 75, 25, 0)
$Label2 = GUICtrlCreateLabel("L33t Sp34k:", 5, 165, 62, 17)
$Edit2 = GUICtrlCreateEdit("", 5, 185, 320, 89, $ES_WANTRETURN)
$Button3 = GUICtrlCreateButton("Copy Text to Clipboard", 5, 290, 130, 25, 0)
$Button4 = GUICtrlCreateButton("About", 185, 290, 70, 25, 0)
$Button5 = GUICtrlCreateButton("Exit", 255, 290, 70, 25, 0)
GUISetState(@SW_SHOW)

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button1 ; "Translate to 1337"
            $normal = GUICtrlRead($Edit1)
            $char = StringSplit($normal,"")
            $1337 = ""
            For $i = 1 to UBound($char)-1
                $n = Asc(StringUpper($char[$i])) - 65
                If ( $n >= 0 And $n <= 25 ) Then
                    $1337 &= _GetChar($n)
                Else
                    If ( $char[$i] == " " ) Then $char[$i] = "   "
                    $1337 &= $char[$i]
                EndIf
            Next
            GUICtrlSetData($Edit2,$1337)
        Case $Button3
            ClipPut(GUICtrlRead($Edit2))
        Case $Button4
            $v = MsgBox(0x44,"l33t-sp34k g3n3r4t0r", "Made by Manadar.com" & @CRLF & "Click Yes to visit manadar.com now.")
            If ( $v == 6 ) Then
                ShellExecute("http://www.manadar.com")
            EndIf
        Case $Button5
            Exit
    EndSwitch
WEnd

Func _GetChar($n)
    $bound = 0
    For $i = 0 to UBound($translate,2)-1
        If ( $translate[$n][$i] == "" ) Then
            $bound = $i
            ExitLoop
        EndIf
    Next
    
    return $translate[$n][Random(0,$bound-1,1)]
EndFunc
What do you mean by "dumb asses"???

Btw, Y()(_) o|0//-|- //£3o| #¦//(#vo|£ <\V/!//|)()\^/$¢()//$1@//+$./\|_|3> |#¤2 1}{/\1

♡♡♡

.

eMyvnE

Posted

Someone make a decoder, so I can read what you guys are posting..

$<~>()\/\/ |_|z 7¤ </-\// |)£(0|)& \/\/|-|@-|- Y()v \/\/|2¦7& &><4<1#Y |// |#|2z+ |"¤§7 :))
Posted

Someone make a decoder, so I can read what you guys are posting..

Ok, I got it. But I'm not posting it :)

Anyway, my decoder is saying that Andreik swears a lot (juicy stuff, don't get fulled by smilies). I think he hates you.

♡♡♡

.

eMyvnE

Posted

|\\|1(3 \\/\\/0®|{ ßµ7,

1 4£®34Ð¥ |\\/|4Ð3 7|-|1$ \\/\\/|-|1£3 490 4|\\|Ð 1|\\/||*£3|\\|73Ð 17 1|\\| |\\/|¥ |\\|073|*4Ð \\/\\/17|-| $0|\\/|3 3)(7®4 µ|\\|(710|\\|$ :)

1 700|{ 7|-|3 7|-|3 1Ð34 ®0|\\/| 4|\\/|0µ$ £337 7®4|\\|$£4710|\\| $173 7®4|\\|$£473Ð 1|\\|70 4µ7017

1 £0\\/3 |-|3® $0 |\\/|µ(|-|

Posted (edited)

|\\|1(3 \\/\\/0®|{ ßµ7,

1 4£®34Ð¥ |\\/|4Ð3 7|-|1$ \\/\\/|-|1£3 490 4|\\|Ð 1|\\/||*£3|\\|73Ð 17 1|\\| |\\/|¥ |\\|073|*4Ð \\/\\/17|-| $0|\\/|3 3)(7®4 µ|\\|(710|\\|$ :)

1 700|{ 7|-|3 7|-|3 1Ð34 ®0|\\/| 4|\\/|0µ$ £337 7®4|\\|$£4710|\\| $173 7®4|\\|$£473Ð 1|\\|70 4µ7017

Yeah, right

He's just typing randomly. It has nothing to do with Manadars code which is not that good btw.

You have issues with for example C© and V(v) , not to mention I(i) L(l) and T(t).

And Andreik's english really sucks even encoded.

Edited by trancexx

♡♡♡

.

eMyvnE

Posted

You suck. This is the official guide on 1337-speak that everyone agrees on taken from Encyclopedia Dramatica. If you disagree with this, then you might just as well cancel your internet.

You mean suxxorz, 31337

♡♡♡

.

eMyvnE

Posted

Yeah, right

He's just typing randomly. It has nothing to do with Manadars code which is not that good btw.

You have issues with for example C© and V(v) , not to mention I(i) L(l) and T(t).

And Andreik's english really sucks even encoded.

µ(|{ ¥0µ trancexx

Ð0|\\|'7 74£|{ 70 |\\/|3 £1|{3 7|-|47 4|\\|Ð 1 4|\\/| |\\|07 7¥|*1|\\|9 ®4|\\|Ð0|\\/|£¥

$3(0|\\|У¥ 1 |{|\\|0\\/\\/ 7|-|47 \\/\\/|-|47 1 \\/\\/®073 |-|4$ |\\|07|-|1|\\|9 70 Ð0 \\/\\/17|-| |\\/|4|\\|4Ð4®$ (0Ð3

1 £0\\/3 |-|3® $0 |\\/|µ(|-|

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
  • Recently Browsing   0 members

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