本文整理自网络,侵删。
MD5需要引入system.Hash,BASE64需要引入System.NetEncoding,这两个单元应该只有高版本的DELPHI IDE才有(貌似XE5以上版本才有)。如果是D7的话,找第三方的库。procedure TForm19.Button8Click(Sender: TObject); //md5加密begin Edit3.Clear; Edit3.Text := THashMD5.GetHashString(Edit2.Text);end;
procedure TForm19.Button9Click(Sender: TObject); // base64加密var base64: TBase64Encoding;begin base64 := TBase64Encoding.Create; Edit5.Clear; Edit5.Text := base64.Encode(Edit4.Text); base64.Free;end;
procedure TForm19.Button10Click(Sender: TObject); // base64解密var base64: TBase64Encoding;begin base64 := TBase64Encoding.Create; Edit7.Clear; Edit7.Text := base64.Decode(Edit6.Text); base64.Free;end;
相关阅读 >>
更多相关阅读请进入《Delphi》频道 >>