Indy里的加密控件怎么用?(100分)

  • 主题发起人 主题发起人 xujunjie
  • 开始时间 开始时间
X

xujunjie

Unregistered / Unconfirmed
GUEST, unregistred user!
Indy提供了一大堆加密控件,可没有范例,不知道怎么用,例如IdCoderMD5
 
强烈关注
 
查了一些资料,终于搞懂了MD5是不可逆算法,它可以将任意内容加加密成一个128位的长型
数,理论上唯一,一般用作数字签名。
TIdBase64Encoder和TIdBase64Decoder的使用方法:

procedure TForm1.Button1Click(Sender: TObject);
var
iPos:integer;
str1,str2:string;
begin
str1:=edtIn.Text;
idEncoder.CodeString(str1);
str2:=idEncoder.CompletedInput;
edtOut.Text:=str2;
iPos:=pos(';',str2);
delete(str2,1,iPos);
edtOut.Text:=str2;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
iPos:integer;
str1,str2:string;
begin
str1:=edtOut.Text;
idDecoder.AutoCompleteInput:=true; // 设置为ture后,不需要调用idDecoder.CompleteInput
str2:=idDecoder.CodeString(str1);
iPos:=pos(';',str2);
delete(str2,1,iPos);
edtIn.Text:=str2;end;
 
可IdUUEncoder和IdUUDecoder不知道该怎么用,谁有相关算法说明?
 
INDY公司主页上有INDY例子下载,不知道有没有加密的例子,你去看看。
 
见者有分!
 
后退
顶部