polyalfabetisk kryptering

jeg lavede engang det her stykke kode:

program Crypt;

{$APPTYPE CONSOLE}

uses
  SysUtils;

function encrypt(tekst,kode:string):string;

var
  I: integer;

begin
  for I := 1 to length(tekst) do
  begin
    tekst[I] := chr(32+((ord(tekst[I])-32)+(ord(kode[(I mod length(kode))+1])-32)) mod 96);
  end;
  result := tekst;
end;

function decrypt(tekst,kode:string):string;

var
  I: integer;

begin
  for I := 1 to length(tekst) do
  begin
    tekst[I] := chr(32+(96 + (ord(tekst[I])-32)-(ord(kode[(I mod length(kode))+1])-32)) mod 96);
  end;
  result := tekst;
end;

var
  t : string;

begin
    t := 'Dette er en proeve';
    writeln(t);
    writeln(encrypt(t, 'hemmeligt'));
    writeln(decrypt(t, 'hemmeligt'));
    writeln(decrypt(encrypt(t, 'hemmeligt'), 'hemmeligt'));
    writeln(encrypt(decrypt(t, 'hemmeligt'), 'hemmeligt'));
end.

det virker..men ikke helt som jeg havde forestillet mig. kan du forklare hvad denne sætning præcist gør?
tekst[I] := chr(32+((ord(tekst[I])-32)+(ord(kode[(I mod length(kode))+1])-32)) mod 96);
jeg skal kun arbejde med store bogstaver (altså ASCII-værdier fra 65 til 90). Hvordan skriver jeg ovenstående linje om så det bliver opfyldt?

32 skal erstattes af 65

96 skal erstattes af 26

den skriver 'GVGNVT' med nøglen POLYAL med klarteksten SKINKE, og det passer ikke med det man kan regne sig frem til. Hvorfor er der f.eks to G'er og to V'er?

erstat

I mod length(kode)

med

(I-1) mod length(kode)

virker nu..mange tak, smid et svar så får du point

kommer her