1:
2:

password REG_BINARY 87,54,AF,21,89,55,31,80,4A,F5,C8,54,23,88,25,1A,CD
key REG_BINARY 08,2B,50,7E,EB,2F,06,1A,43,45,25,12,87,5F,6A,7B,2D                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:

{Wie aus der Randspalte ersichtlich ist, handelt es sich um Quelltext für FreePascal.}
{Smartlinking bedeutet nur, dass nicht jede Funktion in Programme gelinkt wird, die diese Unit einbinden.}
{Nur die benötigten. Mode ist ein notwendiger Syntax-Switch. Beide können ausgehebelt werden.}
{$SMARTLINK ON}
unit wscrypt;
{$MODE OBJFPC}
interface
  type Twscrypt = class
    procedure encrypt (clear:shortstring; var cipher:shortstring; var len:longword);
    procedure decrypt (cipher:shortstring; len : longword; var clear:shortstring);
  end;

implementation
  procedure Twscrypt.encrypt(clear: shortstring; var cipher:shortstring; var len:longword);
  var
    key : shortstring;
    i : longword;

begin
  randomize;
  for i := 1 to length(clear) do key[i] := chr(random(254) + 1);
  for i := 1 to length(clear) do cipher[i] := clear[i] xor key[i];
  len := length(cipher);
  cipher := cipher + key;
end;

procedure Twscrypt.decrypt(cipher : shortstring; len: longword; var clear:shortstring);
var
  key : shortstring;
  i : longword;

begin
  key := copy (cipher, len+1, length(cipher) - len);
  delete (cipher, len+1, length(cipher) - len);
  for i := 1 to length(cipher) do clear[i] := cipher[i] xor key[i];
end;
end.                    

1:
2:
3:
4:

Großbuchstaben: Alphabet groß vorwärts = Alphabet klein rückwärts (A = z, B = y, etc.)
Kleinbuchstaben: Alphabet klein Hälftenweise vorwärts = Alphabet groß Hälftenweise rückwärts (a = M, b = L, ... , n = Z, o = Y, etc.)
Zahlen: 0 - 9 = 9 - 0 ( 0 = 9, 1 = 8, etc.)
Sonderzeichen (also der Rest): inc(Zeichen)