Also ich versuche mit meinem Tool Buchstaben und Zeichen zu anderen umzuformen es kommt aber immer sofort zum Abbruch.
Dazu habe ich eine Eingabe und Ausgabe Zeile und einen Button. Das Programm soll später noch ein wenig verändert werden und ein paar Funktionen dazu kommen nur soll ersteinmal der Kern funktionieren.
Sobald ich eine eingabe mache egal wie lange und dann den Button drücke kommt die Nachricht Zugriffsverletzung.....
Im richtigen Programm stehen natürlich andere Zeichen und keine 0 aber wo wäre die Verschlüsselung wenn ich die hier richtig reinschreiben würde. Ich brauch auch keine Erklärung dazu das die Vershclüsselung extrem simpel ist das ist gewollt und reicht vorerst.
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var a,b:string;
i,n:integer;
begin
a:=Edit1.Text;
n:=length(a);
if radiobutton1.Checked then begin
for i := 1 to n do
if a[i]='a' then b[i]:='0'
else begin
if a[i]='b'then b[i]:='0'
else begin
if a[i]='c'then b[i]:='0'
else begin
if a[i]='d'then b[i]:='0'
else begin
if a[i]='e'then b[i]:='0'
else begin
if a[i]='f'then b[i]:='0'
else begin
if a[i]='g'then b[i]:='0'
else begin
if a[i]='h'then b[i]:='0'
else begin
if a[i]='i'then b[i]:='0'
else begin
if a[i]='j'then b[i]:='0'
else begin
if a[i]='k'then b[i]:='0'
else begin
if a[i]='l'then b[i]:='0'
else begin
if a[i]='m'then b[i]:='0'
else begin
if a[i]='n'then b[i]:=''
else begin
if a[i]='o'then b[i]:='0'
else begin
if a[i]='p'then b[i]:='0'
else begin
if a[i]='q'then b[i]:='0'
else begin
if a[i]='r'then b[i]:='0'
else begin
if a[i]='s'then b[i]:='0'
else begin
if a[i]='t'then b[i]:='0'
else begin
if a[i]='u'then b[i]:='0'
else begin
if a[i]='v'then b[i]:='0'
else begin
if a[i]='w'then b[i]:='0'
else begin
if a[i]='x'then b[i]:='0'
else begin
if a[i]='y'then b[i]:='0'
else begin
if a[i]='z'then b[i]:='0'
else begin
if a[i]='0' then b[i]:='0'
else begin
if a[i]='1' then b[i]:='0'
else begin
if a[i]='2' then b[i]:='0'
else begin
if a[i]='3' then b[i]:='0'
else begin
if a[i]='4' then b[i]:='0'
else begin
if a[i]='5' then b[i]:='0'
else begin
if a[i]='6' then b[i]:='0'
else begin
if a[i]='7' then b[i]:=''
else begin
if a[i]='8' then b[i]:='0'
else begin
if a[i]='9' then b[i]:='0'
else begin
if a[i]='!' then b[i]:='0'
else begin
if a[i]='"' then b[i]:='0'
else begin
if a[i]='§' then b[i]:='0'
else begin
if a[i]='$' then b[i]:='0'
else begin
if a[i]='%' then b[i]:='0'
else begin
if a[i]='&' then b[i]:='0'
else begin
if a[i]='/' then b[i]:='0'
else begin
if a[i]='(' then b[i]:='0'
else begin
if a[i]=')' then b[i]:='0'
else begin
if a[i]='=' then b[i]:='0'
else begin
if a[i]='?' then b[i]:='0'
else begin
if a[i]='+' then b[i]:='0'
else begin
if a[i]='*' then b[i]:='0'
else begin
if a[i]='-' then b[i]:='0'
else begin
if a[i]='\' then b[i]:='0'
else begin
if a[i]='ö'then b[i]:='0'
else begin
if a[i]='ä'then b[i]:='0'
else begin
if a[i]='ü'then b[i]:='0'
end;end;end;end;end;end;end;end;end;end;end;end;end;end;end;end;end;end;end;end;
end;end;end;end;end;end;end;end;end;end;end;end;end;end;end;end;end;end;end;end;
end;end;end;end;end;end;end;end;end;end;end;end;end;end
else
showmessage('Bitte Akzeptieren sie die AGB');
edit2.Text:=b;
end;
end.