とりあえず作ってあげたよ >>66

function　 MyCipherStr(const s:String;decode:Boolean):string;
var i,n,siz:Integer;
const k='ひみつのアッコちゃん';
begin
RandSeed:=(ord(k[3])*$10000+ord(k[1])*$100+ord(k[2]));
Result:='';
siz:=Length(s);
if decode then siz:=siz div 2;
for i:=1 to siz do begin
if decode then　n:= StrToInt('$'+copy(s,i*2-1,2))
　　　　　 else　n:= ord(s[i]);
　n:= ( n xor ord(k[1+(i mod Length(k))]) xor random(256));
if decode then　Result:=Result+Char(n)
　　　　　 else　Result:=Result+IntToHex(n,2);
end;
end;

レジストリに書く文字列をstrとして
MyCipherStr(str,false)
　を書いて

レジストリから読む時は
str := MyCipherStr(ReadString(何とか),true);