DELPHI 想把EDIT里的文字内容简单加密后放入注册表

reg.WriteString('Pass', form1.Edit2.Text);

试过网上有几个function，可以加密直接输入的字符串，但是像这样从edit取的字符串无法加密。

还想求个function来进行加密后存入注册表

补充：对了，还得能从注册表解密再放进edit2

追问：function Enc(Str: string): string;

是Pchar吗？jiami := Enc(Form1.Edit2.Text);
          ShowMessage(jiami);
          reg.WriteString('Pass', jiami);

这样写过之后ShowMessage(jiami); 这句显示是，加密后数据，但回到注册表里看，就是未加密的数据了。能给我个现成能用的吗？我不会编程序，就会引用function。function newbase64un(const s:string):string;

没发上来jiami := newbase64(Form1.Edit2.Text);
          ShowMessage(jiami);
          reg.WriteString('Pass', jiami);

结果很失望，跟刚才一样，shomessage(jiami);这里可以显示加密结果

放入注册表就不是了

你这个跟我刚才用的相比应该是加密强度比我之前用的好reg.WriteString('Pass', newbase64(Form1.Edit2.Text));
这么写也不行，写入注册表的是明文密码，这总能证明这句话执行了吧。谢谢你啊，我找到问题了，刚才应该是后面的语句重复造成又重复写了一次未加密数据。

答案：你好好看看function的参数，可能是pchar类型的，直接用edit.text就不行了，要pchar（edit1.text）

上一个：会Delphi的，谁能写个精辟点的程序我看看 啊。。。不要很复杂。。。就是要精辟
下一个：delphi的 node：TTreenode; node := tvew1.Items.add(tvew1.topitem,Getstring('AllNet')); //'整个网络