![[HaBo]](/styles/default/logoklein.png){kind=small}
so hab mein leet prog erweitert so das es nun auch leet in buchstaben umwandelt. allerdings wird an jedem buchstaben ausser m(denke mal das es mit der extra abfrage zusammenhängt) alle zahlen rangehangen (1234567890 ^^).
hab den text jetzt auch mal nen bissel kommentiert
.
hab den text jetzt auch mal nen bissel kommentiert
.
Code:
procedure TForm1.Button2Click(Sender: TObject);
var word_ein : String;
word_aus : String;
leet_ein : array [0..68] of String;
leet_aus : array [0..68] of String;
x : Integer;
y : Integer;
z : Integer;
a : Integer;
word_ersatz : String;
begin
leet_ein[0]:=' ';
leet_ein[1]:='a';
leet_ein[2]:='b';
leet_ein[3]:='c';
leet_ein[4]:='d';
leet_ein[5]:='e';
leet_ein[6]:='f';
leet_ein[7]:='g';
leet_ein[8]:='h';
leet_ein[9]:='i';
leet_ein[10]:='j';
leet_ein[11]:='k';
leet_ein[12]:='l';
leet_ein[13]:='m';
leet_ein[14]:='n';
leet_ein[15]:='o';
leet_ein[16]:='p';
leet_ein[17]:='q';
leet_ein[18]:='r';
leet_ein[19]:='s';
leet_ein[20]:='t';
leet_ein[21]:='u';
leet_ein[22]:='v';
leet_ein[23]:='w';
leet_ein[24]:='x';
leet_ein[25]:='y';
leet_ein[26]:='z';
leet_ein[27]:=' ';
leet_ein[28]:='^';
leet_ein[29]:='?';
leet_ein[30]:='!';
leet_ein[31]:='"';
leet_ein[32]:='§';
leet_ein[33]:='$';
leet_ein[34]:='%';
leet_ein[35]:='&';
leet_ein[36]:='(';
leet_ein[37]:='ß';
leet_ein[38]:='`';
leet_ein[39]:='?';
leet_ein[40]:='*';
leet_ein[41]:='+';
leet_ein[42]:='~';
leet_ein[43]:='ü';
leet_ein[44]:='Ü';
leet_ein[45]:='ö';
leet_ein[46]:='Ö';
leet_ein[47]:='ä';
leet_ein[48]:='Ä';
leet_ein[49]:=',';
leet_ein[50]:=';';
leet_ein[51]:='{';
leet_ein[52]:='}';
leet_ein[53]:='.';
leet_ein[54]:=':';
leet_ein[55]:='-';
leet_ein[56]:='_';
leet_ein[57]:='''';
leet_ein[58]:='#';
leet_ein[59]:='1';
leet_ein[60]:='2';
leet_ein[61]:='3';
leet_ein[62]:='4';
leet_ein[63]:='5';
leet_ein[64]:='6';
leet_ein[65]:='7';
leet_ein[66]:='8';
leet_ein[67]:='9';
leet_ein[68]:='0';
leet_aus[0]:=' ';
leet_aus[1]:='@';
leet_aus[2]:='|3';
leet_aus[3]:='(';
leet_aus[4]:='[)';
leet_aus[5]:='3';
leet_aus[6]:='|=';
leet_aus[7]:='6';
leet_aus[8]:='|-|';
leet_aus[9]:='1';
leet_aus[10]:='_|';
leet_aus[11]:='|<';
leet_aus[12]:='|_';
leet_aus[13]:='/\/\';
leet_aus[14]:='/\/';
leet_aus[15]:='0';
leet_aus[16]:='|*';
leet_aus[17]:='(,)';
leet_aus[18]:='|2';
leet_aus[19]:='5';
leet_aus[20]:='+';
leet_aus[21]:='|_|';
leet_aus[22]:='\/';
leet_aus[23]:='\x/';
leet_aus[24]:='><';
leet_aus[25]:='`/';
leet_aus[26]:='~/_';
leet_aus[27]:=' ';
leet_aus[28]:='^';
leet_aus[29]:='?';
leet_aus[30]:='!';
leet_aus[31]:='"';
leet_aus[32]:='§';
leet_aus[33]:='$';
leet_aus[34]:='%';
leet_aus[35]:='&';
leet_aus[36]:='(';
leet_aus[37]:='ß';
leet_aus[38]:='`';
leet_aus[39]:='?';
leet_aus[40]:='*';
leet_aus[41]:='+';
leet_aus[42]:='~';
leet_aus[43]:='ü';
leet_aus[44]:='Ü';
leet_aus[45]:='ö';
leet_aus[46]:='Ö';
leet_aus[47]:='ä';
leet_aus[48]:='Ä';
leet_aus[49]:=',';
leet_aus[50]:=';';
leet_aus[51]:='{';
leet_aus[52]:='}';
leet_aus[53]:='.';
leet_aus[54]:=':';
leet_aus[55]:='-';
leet_aus[56]:='_';
leet_aus[57]:='''';
leet_aus[58]:='#';
leet_ein[59]:='1';
leet_ein[60]:='2';
leet_ein[61]:='3';
leet_ein[62]:='4';
leet_ein[63]:='5';
leet_ein[64]:='6';
leet_ein[65]:='7';
leet_ein[66]:='8';
leet_ein[67]:='9';
leet_ein[68]:='0';
word_ein:=edit2.text;
word_ersatz:='';
word_aus:='';
a:=1;
//beginn der abgleich schleffe
for x:=1 to Length(word_ein) do
begin
//zeichenkette zum abgleich mit einem weiteren zeichen füllen
word_ersatz:=word_ersatz+word_ein[x];
for y:=0 to 68 do
begin
//gucken ob zeichen/zeichenkette mit einem leet zeichen/zeichenkette übereinstimmt
if(word_ersatz=leet_aus[y]) then
begin
//z ist da damit beim m nicht auch noch ein n rangehangen wird
z:=1;
a:=y;
//testen ob zeichen /\/ (n) wegen /\/\ (m)
if(word_ersatz=leet_aus[14]) then
begin
//noch ein zeichen ranhängen
word_ersatz:=word_ersatz+word_ein[x+1];
//testen ob aus dem /\/ nun ein /\/\ geworden ist
if(word_ersatz=leet_aus[13]) then
begin
//wenn ja. "m" an das ergebnissword ranhängen
word_aus:=word_aus+leet_ein[13];
z:=0;
end;
end;
//testen ob ein buchstabe rangehangen werden soll
if(z=1) then
begin
//buchstabe ranhängen und die zeichenkette zum abgleich leeren
word_aus:=word_aus+leet_ein[a];
word_ersatz:='';
z:=0;
end;
end;
end;
end;
edit1.text:=word_aus;
end;