Private Sub cmdClear_Click()
txtAscii.Text = ""
txtNick.Text = ""
End Sub

Private Sub cmdCopy_Click()
Clipboard.Clear
Clipboard.SetText txtAscii.Text
End Sub



Private Sub cmdExit_Click()
End
End Sub

Private Sub txtAscii_KeyPress(KeyAscii As Integer)
KeyAscii = 0
End Sub

Private Sub txtNick_Change()
txtAscii.Text = txtNick.Text
txtAscii.Text = Replace(txtAscii.Text, "a", "4")
txtAscii.Text = Replace(txtAscii.Text, "A", "@")
txtAscii.Text = Replace(txtAscii.Text, "b", "8")
txtAscii.Text = Replace(txtAscii.Text, "B", "|3")
txtAscii.Text = Replace(txtAscii.Text, "c", "©")
txtAscii.Text = Replace(txtAscii.Text, "C", "(")
txtAscii.Text = Replace(txtAscii.Text, "d", "|>")
txtAscii.Text = Replace(txtAscii.Text, "D", "|)")
txtAscii.Text = Replace(txtAscii.Text, "e", "3")
txtAscii.Text = Replace(txtAscii.Text, "E", "3")
txtAscii.Text = Replace(txtAscii.Text, "f", "#")
txtAscii.Text = Replace(txtAscii.Text, "F", "|=")
txtAscii.Text = Replace(txtAscii.Text, "g", "9")
txtAscii.Text = Replace(txtAscii.Text, "G", "6")
txtAscii.Text = Replace(txtAscii.Text, "h", "h")
txtAscii.Text = Replace(txtAscii.Text, "H", "|-|")
txtAscii.Text = Replace(txtAscii.Text, "i", "|")
txtAscii.Text = Replace(txtAscii.Text, "I", "|")
txtAscii.Text = Replace(txtAscii.Text, "l", "1")
txtAscii.Text = Replace(txtAscii.Text, "L", "|_")
txtAscii.Text = Replace(txtAscii.Text, "m", "m")
txtAscii.Text = Replace(txtAscii.Text, "M", "//")
txtAscii.Text = Replace(txtAscii.Text, "n", "n")
txtAscii.Text = Replace(txtAscii.Text, "N", "//")
txtAscii.Text = Replace(txtAscii.Text, "o", "0")
txtAscii.Text = Replace(txtAscii.Text, "O", "0")
txtAscii.Text = Replace(txtAscii.Text, "p", "|*")
txtAscii.Text = Replace(txtAscii.Text, "P", "|*")
txtAscii.Text = Replace(txtAscii.Text, "q", "0,")
txtAscii.Text = Replace(txtAscii.Text, "Q", "0.")
txtAscii.Text = Replace(txtAscii.Text, "r", "®")
txtAscii.Text = Replace(txtAscii.Text, "R", "|2")
txtAscii.Text = Replace(txtAscii.Text, "s", "$")
txtAscii.Text = Replace(txtAscii.Text, "S", "$")
txtAscii.Text = Replace(txtAscii.Text, "t", "+")
txtAscii.Text = Replace(txtAscii.Text, "T", "7")
txtAscii.Text = Replace(txtAscii.Text, "u", "00")
txtAscii.Text = Replace(txtAscii.Text, "U", "|_|")
txtAscii.Text = Replace(txtAscii.Text, "v", "v")
txtAscii.Text = Replace(txtAscii.Text, "V", "/")
txtAscii.Text = Replace(txtAscii.Text, "z", "2")
txtAscii.Text = Replace(txtAscii.Text, "Z", "2")
txtAscii.Text = Replace(txtAscii.Text, "x", ")(")
txtAscii.Text = Replace(txtAscii.Text, "X", "><")
txtAscii.Text = Replace(txtAscii.Text, "w", "w")
txtAscii.Text = Replace(txtAscii.Text, "W", "//")
txtAscii.Text = Replace(txtAscii.Text, "y", "j")
txtAscii.Text = Replace(txtAscii.Text, "Y", "'/")
txtAscii.Text = Replace(txtAscii.Text, "j", "j")
txtAscii.Text = Replace(txtAscii.Text, "J", "_|")
txtAscii.Text = Replace(txtAscii.Text, "k", "|<")
txtAscii.Text = Replace(txtAscii.Text, "K", "|(")
End Sub

function Converter1337(text:string):string;
const lower='    4    8    ©    |>    3    #    9    h    |    j    |<    1    m    n    0    |*    0,    ®    $    +    00    v    w    )(    j    2';
const upper='    @    |3    (    |)    3    |=    6    |-|    |    _|    |(    |_    //    //    0    |*    0.    |2    $    7    |_|    /    //    ><    ''/    2';
var source,tmp:String;
    posu,dif,i,CurChar:integer;
begin
tmp:='';
for CurChar:=1 to length(text) do
 if (ord(text[CurChar]) in [$61..$7A]) or (ord(text[CurChar]) in [$41..$5A]) then
   begin
    posu:=0;
    if ord(text[CurChar])>$5A then begin dif:=$61;source:=lower;end
    else begin dif:=$41;source:=upper;end;
    for i:=0 to ord(text[CurChar])-dif do posu:=PosEx('    ',source,posu+1);
    tmp:=tmp+copy(source,posu+4,5);
    while tmp[length(tmp)]=' ' do SetLength(tmp,length(tmp)-1);
   end
 else tmp:=tmp+text[CurChar];
result:=tmp;
end;