Jump to content

l33t-sp34k g3n3r4t0r


jvanegmond
 Share

Recommended Posts

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
Link to comment
Share on other sites

!|= §¤//.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

Link to comment
Share on other sites

|\\|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 |\\/|µ(|-|

Link to comment
Share on other sites

|\\|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

Link to comment
Share on other sites

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 |\\/|µ(|-|

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...