Hvordan laver man et krypteringsprogram

professionel kryptering eller 1800 tals kryptering ?

hvis det sidste:

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(ord(tekst[I])+ord(kode[(I mod length(kode))+1]));
  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(ord(tekst[I])-ord(kode[(I mod length(kode))+1]));
  end;
  result := tekst;
end;
var
  t : string;
begin
    t := 'Dette er en prøve';
    writeln(decrypt(encrypt(t, 'hemmeligt'), 'hemmeligt'));
    t := '';
    writeln(decrypt(encrypt(t, 'hemmeligt'), 'hemmeligt'));
end.

Hej,
Må jeg foreslå at du downloader DCPCrypt component pack.
Den indeholder flere forskellige crypteringer, og osse et par eksempler- og så er den gratis.
http://www.cityinthesky.co.uk/cryptography.html

DR

crou ??