[English] Vignere Cipher (All letters, numbers and signs), Pascal

[English] Vignere Cipher (All letters, numbers and signs)

program VignereCipher;
const
    Starttext='Informatic is fun (1+2=3), right?';
    Keyword='KEY';
var
    i,ASCIICode,numb,Push:integer;
    Endtext:string;
begin
    Endtext:='';
    numb:=1;
    for i:=1 to length(Starttext) do
        begin
            ASCIICode:=ord(Starttext[i]);
            Push:=ord(Keyword[numb])-65;
            if (ASCIICode)<=ord('Z') then
                if (ASCIICode = ord(' ')) XOR ((ASCIICode <= 64) AND (ASCIICode >= 40)) then
                    begin
                        Endtext:=Endtext+chr(ASCIICode);
                        numb:=numb-1;
                    end
                else
                    begin
                        if (ASCIICode+Push)>ord('Z') then Endtext:=Endtext+chr(ASCIICode+Push-26)
                        else Endtext:=Endtext+chr(ASCIICode+Push);
                    end
            else
                begin
                    if (ASCIICode+Push)>ord('z') then Endtext:=Endtext+chr(ASCIICode+Push-26)
                    else Endtext:=Endtext+chr(ASCIICode+Push);
                end;
            numb:=numb+1;
            if numb>length(Keyword) then numb:=1;
        end;
    write(Endtext);
end.


run \| edit \| history \| help	1

Please log in to post a comment.

stackse - search stackoverflow differently