suche DES (Data Encryption Standard) source für pascal/Delphi

[RSA]

Ich glaube, daß die php funktion crypt() das verwendet, um einen Hash zu erzeugen. (seed => die ersten 2 Buchstaben)

nun: kann mir irgend jemand einen source code verschaffen..
Am besten in pascal ...

habe google meines Erachtens ausgereizt.
da find ich nur Komponenten, DLLs, LIBs und exes.

Ich brauche aber den source Code.
es muß doch noch sowas simples wie DES.pas geben ..

wo sind die ganzen TurboPascal download archive hingekommen?

Danke!

[Scavi]

Wenn dir ein Basic-sourcecode nix ausmacht, kannste hier (http://home.planet.nl/~napel/des.htm) mal nachgucken.