Verschlüsselung

[anku]

so.. ich hoffe mal ich hab verstanden was du genau vorhast. hier wäre dann eine lösung:

Delphi-Quellcode:

var     i, j: integer;
        sBuffer: String;
        sGeheimText: String;
        sKlarText: String;

const
        ZeichenErsatz: array[65..90] of String[7] =(    'XZYJVPQ','XYJVPQZ', 'JXZYVPQ', 'XZYJQVP', 'XZJVPQY', 'XZYVJPQ', 'JVPQXZY', 'ZYJVXPQ',
                                                        'JVPXZYQ','XVZYJPQ', 'XZYQJVP', 'XZJVYPQ', 'XZYJPVQ', 'XZYJVQV', 'XYJZVPQ', 'XYJVZPQ',
                                                        'YJVPQXZ','QXZYJVP', 'XZYPJVQ','ZYJVPQX', 'XZYVJPQ' , 'XZJYVPQ','XZYJVQP','ZYJXVPQ',
                                                        'XZYJPQV' ,'XZYVPQJ');
begin
        sGeheimText:= 'ZYJVXPQXZYJVPQXZJVYPQXZJVYPQXYJZVPQ';
        for i:=1 to length( sGeheimtext) div 7 do begin
                sBuffer:= copy( sGeheimText, 1, 7);
                delete( sGeheimText, 1, 7);
                for j:=65 to 90 do begin
                        if ZeichenErsatz[j]= sBuffer then
                                sKlarText:= sKlarText+ Chr(j);
                end;
        end;
        ShowMessage( sKlarText);

end;

also es sollte eigentlich klappen, nur werden da noch keine satzzeichen, blanks etc behandelt, sondern nur deine vorgegebenen zeichenfolgen.

mfg