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));
这么写也不行,写入注册表的是明文密码,这总能证明这句话执行了吧。谢谢你啊,我找到问题了,刚才应该是后面的语句重复造成又重复写了一次未加密数据。