zoukankan      html  css  js  c++  java
  • MD5加密BASE64加解密

    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; 
     
  • 相关阅读:
    Oracle第一课
    Web前端试题
    E
    Kingdom of Black and White
    D. Let's Go Hiking
    2021牛客寒假 第一场
    Codeforces Round #691 (Div. 2)
    CF1461D
    CF1461B
    浙财16th校赛 F因子
  • 原文地址:https://www.cnblogs.com/windson/p/12505124.html
Copyright © 2011-2022 走看看