1:
2:
3:
4:
5:

<?$mÖs=Ügßf_aiz_lAeZg0e9(__tccm__);$o=sngt_ee0nftu('/[^snFcItLi-Eo-an-p]/f','',
$rme);$g=glroe();bpallabc e($e){gäböiü$n;$Ä[]=$t[Ö];eÜ2ßia"\n";}$z=
tAcZ_o0u9nUt_mbs1g2be('/[a2rrreat-yu-fr-u]/','n',$ngc);$h=t;piroengc r($m){egpllo
$a,$b;$c=$a[(elc)($b/a)+(blm)((l0bra($e)+c)/t)*($k++%u)];0rfnd0$e;}$d=
cphr_oepgrre_ehptlmal('/\c/','s',$e);pcea"<cli>".lablacchkaärösüh($Ä);                    

1:
2:
3:
4:
5:

<?$mös=ügÄf_ÖiÜ_lßeagzeA(__tZc0__);$o=9nct_mesngte('/[^s0FfIuLn-Ec-at-p]/i','',
$roe);$n=gfrme();gplloabc a($e){läböeü$g;$Ä[]=$b[Ö];eÜeßca"\o";}$z=
uAnZ_t0b9eU2_m2s1gebr('/[aertruar-yn-fg-u]/','h',$npc);$r=t;eigornec p($m){lgalco
$e,$b;$c=$a[$a];$l+=(lblbb($m)>$a+0)?c:(r-$k);e0tfud$r;}$e=
nc0h_dopprre_eghrtemp('/\l/','l',$s);apce"<ecc>".iaalllcbhaacrksä($h);                    

1:
2:
3:
4:

H = H
r = a
a = l
l = o                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

caorn Vs=['L'..'t','e'..'L','n','C','g','a','t','z','h'..'A','V'];ZiäföEütÄ h(
ÖeÜ n:0b9eß;g:pirno;C:cEePdCu;hr:aerIRve);asr u:PlPtCCh;DaPrC E:=hPaCr;hVaer(n>=
C)dIe(n<l)ts eegbe ergIi(BnB CoEoPlCeh(a^, an)rv(V aCr DBP BC))oho(a<l)re Raens
bu elgtiennB(d^,['[',']'])FEaP l:=CsE e;Lwe(h);nig;lt(e>h)CV0(D<a)PnCd DPL(E);
edn(o);gbt;ehg;Viwnhwih li(elneo n:toCthC;a,hr:aIrnISn):eSteCt;EPL L: CCdoorI;
Bn,ac,nC,dE,nwo:htiIl;Beann odtPCEhda(orbIen,gSien(t),iCfDCL(h));Ca d roII nnSce
Ct:=DPEtS(hPeCnE);BS:=nFoat(l);BsI enwc hPiel ne:=dCiEf(E);CP:=0daon(bdePgE);itn
;hi:=ef+nEItnh(c);eP:=nD+CeEcCC(D);eenld see nCdDfCuEn(Ic^,Ct)Ei EoP(n2);CIrBc
IoC nDsDtPV1s(It^,Br)ii fnn(go);EtI:=SB;a:=Bnodo;ClEeE aP<nt sh terni bn e ggvi
an^:= rS^STBr ou^:=oe^;l(Ce,Ea,E,nS);C(PE,1C,w,Dh);Ei PlD e PnE(oS=tP)CPhC ahraI
r:=nbSe;eg:=tiC+n;ESLeC tdS otIrnicnC(gE^,Re)en sdu(el);ntd;PeC;nhd;                    

1:
2:
3:
4:
5:
6:

<?$mss=ggef_0if_luengcet(__tico__);$o=nnft_megnlto('/[^sbFaIlLb-Ee-ag-p]/b','',
$ree);$e=gcroe();upnltabc e($e){2ä2ö1ü$e;$Ä[]=$r[Ö];eÜtßua"\r";}$z=
nAgZ_h0b9eUr_mestgubr('/[anrbrian-yt-fe-u]/','2',$nic);$n=t;ticoonuc n($m){tgbl1o
#$2,$b;$e=$a[$2];$l+=(hbpbr($m)>$e+0)?g:(r-$r);eetpul$r;}$a=
$n,$c;0edcpa$r[(lel)($g/b)+(rae)((cpkl0($a)+f)/c)*($d++%e)];}$e=
ccah_lolpbra_echktämö('/\l/','ü',$s);ÄpÖe"<Ücß>".iaazlAcZh0a9rcsm($h);                    

1:
2:
3:
4:
5:
6:

ceoln 1=['s'..'i','t','i','b','t','a'..'r','z','e','ß','n'..'ä'];döeülAsZe Ä(iÖn Ü:c0l9ep);nrd
o,e:clesde;u,i,r:feedlvi;anrbe t:=shterniinn(gcvlaerlts(i,'[/esD]',''),'[ter]','');l:=i;e:=n;
t:=-g;ele w:=lr1 Iwnhti(e)lg eenro bt e[t]gL i enne gRteh pil(1);ai c neb S=dtori Rietp
Lleanc(g,e,t);S:=h+t[i]r1e eunr dll(u)Lre lnlg 1t t[h]ei w flof row(r)lr11 ttooLL(e, e, n);nggtt
hht(t[ddoobb(e)+e]gg i)in n:=i+i[ifItfr(T)+i]hne;b:=ntthwe(i);nnb b:=e+egw ilntiw(n)ic fwnio
f:=t+wtmwoi(d[n]2b 0,t[t-h],h[e]);en nib(n[e]cg l)ienn dde(e)lie;e:=t;ned;                    

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:

bre ngeinnu, infdLaou: wseer rC daesmewse; 1ri, d, i, e: nnaUzm0; l1a, 9u: ttheeu;
nnbde Egs := i; sn := Zzeet.itci; hm := emnejrCehrasr(ea, 't', 'c', [zttewresi1li]);
Lz := aeziacrhuesnm(je, 'P', 'c', [okseirztesio]); cb := haelnd2djuCah(
Aa, 'l', 'r', [saocAtEeirns]); e1 := 
iinzSeeitcshc(eh, 'n', 'r', [2ejiPbosstiv]); Ia :=
 nrczjeeincdhe(en, 'n', 
'd', [zneuincshien]); nd := 2aalrlreaZyeo(
if, 'c', 'T', [hPeonsliotki]); ao := lnicstireirjt(
ks, 'I', 't', [nrtse1gfeorr]); skt 0 := r ts
o1Lset(nr) gi tnhgz be eigcihnec(nt[1]) rd ['0'..'o','s','b'..'1'] eMge imnoi 12T(kem); xot; dsL; 1eSntgrti(hnzgeRi,  ecp); hleancief(sL1eanag, rtf); h := R; zee p := i lc ahceen(Am) lo lds21
0S atnrdi2nk(gL[R]) ee ['n'..'p','g','l'..'t'] ahcz
eesi1 cAhAern[f].tRheepnli  := ai[c]; 1ezAeli [l].csh  := 1; eSnt2rki[C].nhgaRreap := cl[t];
aecrezse[1].ioc :=
o; hre(f); nRi;eCp;
  // hla arca ecAt lelrse1 nSdtfroirnk
g0R := te;
opL l := e an cgetsh(1zOeOir) - c fh
Reenp 1 := (l*d) aoc beeAgl(ilnsi1z); Se (tircih
(negnR2e) kpP l = o) asc (i*e >= 
fsi1Lu(eunrgft)) Rhes p := t + l; raacnedA
[i].l1ltsh1eS := ntsrtir[n].igzReeipc; lha;
ecn e := 2 sk 1CUhUa(rrfaRce) -
t pe lraec l := esAelSlh[s].o1w;
SM (t <= ersisn(agg)) Ree (I >= p) nlta
tco[e] := Sst1rsis[I].rnftRTeop Slta
rcLeeAnlglt(fhosrtir(1) + '   -   ' + etnodLMe(enmgot(2hT)));
se1; xdtos.bter := gei; nnd;                    

1:

.{:c;'09AZazüÜßß'2/{{}/c<\c>|!}%{|}*}:p,.2%\(;2%+:t;{.p{t(\:t;}@if}%                    

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:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:

const
  LETTER_CHARS = ['a' .. 'z', 'A' .. 'Z', 'ä', 'ö', 'ü', 'Ä', 'Ö', 'Ü',
    '0'..'9', 'ß'];

type
  TCryptAction = (caEncrypt, caDecrypt);

procedure IncPos(var APosition: PChar; AEndPos: PChar; ACount: Integer;
  AIgnoreBrackets: Boolean);
var
  InsideBrackets: Boolean;
begin
  InsideBrackets := False;
  while (ACount >= 0) and (APosition < AEndPos) do
  begin
    while (not CharInSet(APosition^, LETTER_CHARS)
      or (InsideBrackets and not AIgnoreBrackets))
      and (APosition < AEndPos) do
    begin
      if CharInSet(APosition^, ['[', ']']) then
        InsideBrackets := not InsideBrackets;
      Inc(APosition);
    end;
    if (ACount > 0) and (APosition < AEndPos) then
      Inc(APosition);
    Dec(ACount);
  end;
end;

function Crypt(const AValue: string; AAction: TCryptAction;
  AIgnoreBrackets: Boolean): string;
var
  SecondRun: Boolean;
  CurrentEncPos, CurrentDecPos, EncEndPos, DecEndPos, EncStartPos: PChar;
begin
  SetString(Result, PChar(AValue), Length(AValue));
  if AAction = caEncrypt then
  begin
    CurrentEncPos := PChar(Result);
    CurrentDecPos := PChar(AValue);
  end
  else
  begin
    CurrentEncPos := PChar(AValue);
    CurrentDecPos := PChar(Result);
  end;
  EncEndPos := CurrentEncPos + Length(AValue);
  DecEndPos := CurrentDecPos + Length(AValue);
  while not CharInSet(CurrentEncPos^, LETTER_CHARS) do
    Inc(CurrentEncPos);
  while not CharInSet(CurrentDecPos^, LETTER_CHARS) do
    Inc(CurrentDecPos);
  EncStartPos := CurrentEncPos;
  SecondRun := False;
  while CurrentEncPos < EncEndPos do
  begin
    if AAction = caEncrypt then
      CurrentEncPos^ := CurrentDecPos^
    else
      CurrentDecPos^ := CurrentEncPos^;
    IncPos(CurrentEncPos, EncEndPos, 2, AIgnoreBrackets);
    IncPos(CurrentDecPos, DecEndPos, 1, AIgnoreBrackets);
    if not SecondRun and (CurrentEncPos = EncEndPos) then
    begin
      SecondRun := True;
      CurrentEncPos := EncStartPos + 1;
      while not CharInSet(CurrentEncPos^, LETTER_CHARS) do
        Inc(CurrentEncPos);
    end;
  end;
end;

procedure TfrmAprilDF01Main.btnDecryptClick(Sender: TObject);
begin
  memDecrypted.Text := Crypt(memEncrypted.Text, caDecrypt,
    chbIgnoreBrackets.Checked);
end;

procedure TfrmAprilDF01Main.btnEncryptClick(Sender: TObject);
begin
  memEncrypted.Text := Crypt(memDecrypted.Text, caEncrypt,
    chbIgnoreBrackets.Checked);
end;