Delphi Source String Crypt 0.1

//====================================================================
const
ecb=1522339682;
ank: array [0..52] of byte =
($5C,$2D,$B6,$31,$08,$38,$EF,$85,$D4,$11,$50,$66,$36,$24,$DB,$68,
$F6,$6C,$40,$9B,$04,$12,$39,$DA,$B9,$F1,$F9,$F6,$C6,$67,$90,$DE,
$05,$B4,$20,$3B,$16,$DC,$CC,$29,$AD,$CF,$F3,$C2,$7E,$66,$AF,$87,
$E1,$CA,$5B,$97,$02);
//====================================================================
function wid(yft,msq:Integer):string;
var uvp,lzx:integer;
begin
Result :='';lzx:=ecb; for uvp:=yft to msq+yft-1 do begin
Result:=Result+char(Byte(ank[uvp]) xor (lzx shr 8));
lzx:=(ank[uvp]+lzx)*(yft+msq)+msq;
end;
end;
//====================================================================