主頁 > 後端開發 > 關于delphi的MD5演算法

關于delphi的MD5演算法

2020-09-26 08:29:28 後端開發

各位兄弟姐妹有沒有delphi的MD5演算法的denmo，小弟在專案中遇到棘手就是客戶那邊的要求用MD5加密，而且要用密鑰的，但是我網上找了很多資料都沒見到帶密鑰引數的演算法

uj5u.com熱心網友回復：

MD5 是破壞性加密，加密時是不存在密鑰的。自然也是不可逆的，

但是也有一種方法是人工添加密鑰混合進明文中實作，雖然也是不可逆的，但是多了所謂“密鑰”這一特性：

  比如： 明文是“ABCDEFG” ，密鑰是“ABC123”
  
  那么用MD5加密前把 明文+密鑰 “ABCDEFGABC123” 后再用 MD5加密。

uj5u.com熱心網友回復：

md5是不可逆演算法，沒有“密鑰”這一說法。

uj5u.com熱心網友回復：

MD5是Hash

uj5u.com熱心網友回復：

嚴謹的說md5不是加密演算法，而是摘要函式，根據給定的一串值得到一串與給定值唯一匹配的摘要串，且演算法是不可逆的。這個演算法是公開的，網上隨便搜搜都有。
更沒有密鑰一說。

uj5u.com熱心網友回復：

網上有實體呀，分太少了呀
幫你頂頂

uj5u.com熱心網友回復：

等待等分漲了，為你撰寫一個實體

uj5u.com熱心網友回復：

樓上的兄弟，我已經加分了，能寫個實體發給我嗎？等著急用。。。。

uj5u.com熱心網友回復：

路過的大蝦們請拔刀相助吧，已經加到最高分了

uj5u.com熱心網友回復：

unit Unit4;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons;
const
  MaxBufSize = 16384;
  MD5Version         = 102;
  CopyRight : String = 'MD5 Message-Digest (c) 97-98 F. Piette V1.02';
type
  TMD5Context = record
    State: array[0..3] of LongInt;
    Count: array[0..1] of LongInt;
    case Integer of
    0: (BufChar: array[0..63] of Byte);
    1: (BufLong: array[0..15] of LongInt);
  end;
  TMD5Digest = array[0..15] of Char;

  PMD5Buffer = ^TMD5Buffer;
  TMD5Buffer = array[0..(MaxBufSize - 1)] of Char;

  TForm4 = class(TForm)
    BitBtn1: TBitBtn;
    Edit1: TEdit;
    Edit2: TEdit;
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

  procedure MD5Init(var MD5Context: TMD5Context);
  procedure MD5Update(var MD5Context: TMD5Context;
                      const Data;
                      Len: Integer);
  procedure MD5Transform(var Buf: array of LongInt;
                         const Data: array of LongInt);
  procedure MD5UpdateBuffer(var MD5Context: TMD5Context;
                            Buffer: Pointer;
                            BufSize: Integer);
  procedure MD5Final(var Digest: TMD5Digest; var MD5Context: TMD5Context);

  function GetMD5(Buffer: Pointer; BufSize: Integer): string;
  function StrMD5(Buffer : String): string;

var
  Form4: TForm4;
implementation

{$R *.dfm}

{ MD5 initialization. Begins an MD5 operation, writing a new context.         }
procedure MD5Init(var MD5Context: TMD5Context);
begin
    FillChar(MD5Context, SizeOf(TMD5Context), #0);
    with MD5Context do begin
        { Load magic initialization constants. }
        State[0] := LongInt($67452301);
        State[1] := LongInt($EFCDAB89);
        State[2] := LongInt($98BADCFE);
        State[3] := LongInt($10325476);
    end
end;

{* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *}
{ MD5 block update operation. Continues an MD5 message-digest operation,      }
{ processing another message block, and updating the context.                 }
procedure MD5Update(
    var MD5Context: TMD5Context;            { Context                         }
    const Data;                             { Input block                     }
    Len: Integer);                          { Length of input block           }
type
    TByteArray = array[0..0] of Byte;
var
    Index: Word;
    T: LongInt;
begin
    with MD5Context do begin
        T := Count[0];
        Inc(Count[0], LongInt(Len) shl 3);
        if Count[0] < T then
            Inc(Count[1]);
        Inc(Count[1], Len shr 29);
        T := (T shr 3) and $3F;
        Index := 0;
        if T <> 0 then begin
            Index := T;
            T := 64 - T;
            if Len < T then begin
                Move(Data, BufChar[Index], Len);
                Exit;
            end;
            Move(Data, BufChar[Index], T);
            MD5Transform(State, BufLong);
            Dec(Len, T);
            Index := T;  { Wolfgang Klein, 05/06/99 }
        end;
        while Len >= 64 do begin
            Move(TByteArray(Data)[Index], BufChar, 64);
            MD5Transform(State, BufLong);
            Inc(Index, 64);
            Dec(Len, 64);
        end;
        Move(TByteArray(Data)[Index], BufChar, Len);
    end
end;

{* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *}
{ MD5 finalization. Ends an MD5 message-digest operation, writing the message }
{ digest and zeroizing the context.                                           }
procedure MD5Final(var Digest: TMD5Digest; var MD5Context: TMD5Context);
var
    Cnt : Word;
    P   : Byte;
begin
    with MD5Context do begin
        Cnt := (Count[0] shr 3) and $3F;
        P := Cnt;
        BufChar[P] := $80;
        Inc(P);
        Cnt := 64 - 1 - Cnt;
        if Cnt < 8 then begin
            FillChar(BufChar[P], Cnt, #0);
            MD5Transform(State, BufLong);
            FillChar(BufChar, 56, #0);
        end
        else
            FillChar(BufChar[P], Cnt - 8, #0);
        BufLong[14] := Count[0];
        BufLong[15] := Count[1];
        MD5Transform(State, BufLong);
        Move(State, Digest, 16)
    end;
    FillChar(MD5Context, SizeOf(TMD5Context), #0)
end;

{* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *}
{ MD5 basic transformation. Transforms state based on block.                  }
procedure MD5Transform(
    var Buf: array of LongInt;
    const Data: array of LongInt);
var
    A, B, C, D: LongInt;

    procedure Round1(var W: LongInt; X, Y, Z, Data: LongInt; S: Byte);
    begin
        Inc(W, (Z xor (X and (Y xor Z))) + Data);
        W := (W shl S) or (W shr (32 - S));
        Inc(W, X)
    end;

    procedure Round2(var W: LongInt; X, Y, Z, Data: LongInt; S: Byte);
    begin
        Inc(W, (Y xor (Z and (X xor Y))) + Data);
        W := (W shl S) or (W shr (32 - S));
        Inc(W, X)
    end;

    procedure Round3(var W: LongInt; X, Y, Z, Data: LongInt; S: Byte);
    begin
        Inc(W, (X xor Y xor Z) + Data);
        W := (W shl S) or (W shr (32 - S));
        Inc(W, X)
    end;

    procedure Round4(var W: LongInt; X, Y, Z, Data: LongInt; S: Byte);
    begin
        Inc(W, (Y xor (X or not Z)) + Data);
        W := (W shl S) or (W shr (32 - S));
        Inc(W, X)
    end;
begin
    A := Buf[0];
    B := Buf[1];
    C := Buf[2];
    D := Buf[3];

    Round1(A, B, C, D, Data[ 0] + LongInt($d76aa478),  7);
    Round1(D, A, B, C, Data[ 1] + LongInt($e8c7b756), 12);
    Round1(C, D, A, B, Data[ 2] + LongInt($242070db), 17);
    Round1(B, C, D, A, Data[ 3] + LongInt($c1bdceee), 22);
    Round1(A, B, C, D, Data[ 4] + LongInt($f57c0faf),  7);
    Round1(D, A, B, C, Data[ 5] + LongInt($4787c62a), 12);
    Round1(C, D, A, B, Data[ 6] + LongInt($a8304613), 17);
    Round1(B, C, D, A, Data[ 7] + LongInt($fd469501), 22);
    Round1(A, B, C, D, Data[ 8] + LongInt($698098d8),  7);
    Round1(D, A, B, C, Data[ 9] + LongInt($8b44f7af), 12);
    Round1(C, D, A, B, Data[10] + LongInt($ffff5bb1), 17);
    Round1(B, C, D, A, Data[11] + LongInt($895cd7be), 22);
    Round1(A, B, C, D, Data[12] + LongInt($6b901122),  7);
    Round1(D, A, B, C, Data[13] + LongInt($fd987193), 12);
    Round1(C, D, A, B, Data[14] + LongInt($a679438e), 17);
    Round1(B, C, D, A, Data[15] + LongInt($49b40821), 22);

    Round2(A, B, C, D, Data[ 1] + LongInt($f61e2562),  5);
    Round2(D, A, B, C, Data[ 6] + LongInt($c040b340),  9);
    Round2(C, D, A, B, Data[11] + LongInt($265e5a51), 14);
    Round2(B, C, D, A, Data[ 0] + LongInt($e9b6c7aa), 20);
    Round2(A, B, C, D, Data[ 5] + LongInt($d62f105d),  5);
    Round2(D, A, B, C, Data[10] + LongInt($02441453),  9);
    Round2(C, D, A, B, Data[15] + LongInt($d8a1e681), 14);
    Round2(B, C, D, A, Data[ 4] + LongInt($e7d3fbc8), 20);
    Round2(A, B, C, D, Data[ 9] + LongInt($21e1cde6),  5);
    Round2(D, A, B, C, Data[14] + LongInt($c33707d6),  9);
    Round2(C, D, A, B, Data[ 3] + LongInt($f4d50d87), 14);
    Round2(B, C, D, A, Data[ 8] + LongInt($455a14ed), 20);
    Round2(A, B, C, D, Data[13] + LongInt($a9e3e905),  5);
    Round2(D, A, B, C, Data[ 2] + LongInt($fcefa3f8),  9);
    Round2(C, D, A, B, Data[ 7] + LongInt($676f02d9), 14);
    Round2(B, C, D, A, Data[12] + LongInt($8d2a4c8a), 20);

    Round3(A, B, C, D, Data[ 5] + LongInt($fffa3942),  4);
    Round3(D, A, B, C, Data[ 8] + LongInt($8771f681), 11);
    Round3(C, D, A, B, Data[11] + LongInt($6d9d6122), 16);
    Round3(B, C, D, A, Data[14] + LongInt($fde5380c), 23);
    Round3(A, B, C, D, Data[ 1] + LongInt($a4beea44),  4);
    Round3(D, A, B, C, Data[ 4] + LongInt($4bdecfa9), 11);
    Round3(C, D, A, B, Data[ 7] + LongInt($f6bb4b60), 16);
    Round3(B, C, D, A, Data[10] + LongInt($bebfbc70), 23);
    Round3(A, B, C, D, Data[13] + LongInt($289b7ec6),  4);
    Round3(D, A, B, C, Data[ 0] + LongInt($eaa127fa), 11);
    Round3(C, D, A, B, Data[ 3] + LongInt($d4ef3085), 16);
    Round3(B, C, D, A, Data[ 6] + LongInt($04881d05), 23);
    Round3(A, B, C, D, Data[ 9] + LongInt($d9d4d039),  4);
    Round3(D, A, B, C, Data[12] + LongInt($e6db99e5), 11);
    Round3(C, D, A, B, Data[15] + LongInt($1fa27cf8), 16);
    Round3(B, C, D, A, Data[ 2] + LongInt($c4ac5665), 23);

    Round4(A, B, C, D, Data[ 0] + LongInt($f4292244),  6);
    Round4(D, A, B, C, Data[ 7] + LongInt($432aff97), 10);
    Round4(C, D, A, B, Data[14] + LongInt($ab9423a7), 15);
    Round4(B, C, D, A, Data[ 5] + LongInt($fc93a039), 21);
    Round4(A, B, C, D, Data[12] + LongInt($655b59c3),  6);
    Round4(D, A, B, C, Data[ 3] + LongInt($8f0ccc92), 10);
    Round4(C, D, A, B, Data[10] + LongInt($ffeff47d), 15);
    Round4(B, C, D, A, Data[ 1] + LongInt($85845dd1), 21);
    Round4(A, B, C, D, Data[ 8] + LongInt($6fa87e4f),  6);
    Round4(D, A, B, C, Data[15] + LongInt($fe2ce6e0), 10);
    Round4(C, D, A, B, Data[ 6] + LongInt($a3014314), 15);
    Round4(B, C, D, A, Data[13] + LongInt($4e0811a1), 21);
    Round4(A, B, C, D, Data[ 4] + LongInt($f7537e82),  6);
    Round4(D, A, B, C, Data[11] + LongInt($bd3af235), 10);
    Round4(C, D, A, B, Data[ 2] + LongInt($2ad7d2bb), 15);
    Round4(B, C, D, A, Data[ 9] + LongInt($eb86d391), 21);

    Inc(Buf[0], A);
    Inc(Buf[1], B);
    Inc(Buf[2], C);
    Inc(Buf[3], D);
end;

{* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *}

uj5u.com熱心網友回復：

unit Unit4;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons;

const
  MaxBufSize = 16384;
  MD5Version         = 102;
  CopyRight : String = 'MD5 Message-Digest (c) 97-98 F. Piette V1.02';

type
  TMD5Context = record
    State: array[0..3] of LongInt;
    Count: array[0..1] of LongInt;
    case Integer of
    0: (BufChar: array[0..63] of Byte);
    1: (BufLong: array[0..15] of LongInt);
  end;
  TMD5Digest = array[0..15] of Char;

  PMD5Buffer = ^TMD5Buffer;
  TMD5Buffer = array[0..(MaxBufSize - 1)] of Char;

  TForm4 = class(TForm)
    BitBtn1: TBitBtn;
    Edit1: TEdit;
    Edit2: TEdit;
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

  procedure MD5Init(var MD5Context: TMD5Context);
  procedure MD5Update(var MD5Context: TMD5Context;
                      const Data;
                      Len: Integer);
  procedure MD5Transform(var Buf: array of LongInt;
                         const Data: array of LongInt);
  procedure MD5UpdateBuffer(var MD5Context: TMD5Context;
                            Buffer: Pointer;
                            BufSize: Integer);
  procedure MD5Final(var Digest: TMD5Digest; var MD5Context: TMD5Context);

  function GetMD5(Buffer: Pointer; BufSize: Integer): string;
  function StrMD5(Buffer : String): string;

var
  Form4: TForm4;



implementation

{$R *.dfm}

{ MD5 initialization. Begins an MD5 operation, writing a new context.         }
procedure MD5Init(var MD5Context: TMD5Context);
begin
    FillChar(MD5Context, SizeOf(TMD5Context), #0);
    with MD5Context do begin
        { Load magic initialization constants. }
        State[0] := LongInt($67452301);
        State[1] := LongInt($EFCDAB89);
        State[2] := LongInt($98BADCFE);
        State[3] := LongInt($10325476);
    end
end;

{* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *}
{ MD5 block update operation. Continues an MD5 message-digest operation,      }
{ processing another message block, and updating the context.                 }
procedure MD5Update(
    var MD5Context: TMD5Context;            { Context                         }
    const Data;                             { Input block                     }
    Len: Integer);                          { Length of input block           }
type
    TByteArray = array[0..0] of Byte;
var
    Index: Word;
    T: LongInt;
begin
    with MD5Context do begin
        T := Count[0];
        Inc(Count[0], LongInt(Len) shl 3);
        if Count[0] < T then
            Inc(Count[1]);
        Inc(Count[1], Len shr 29);
        T := (T shr 3) and $3F;
        Index := 0;
        if T <> 0 then begin
            Index := T;
            T := 64 - T;
            if Len < T then begin
                Move(Data, BufChar[Index], Len);
                Exit;
            end;
            Move(Data, BufChar[Index], T);
            MD5Transform(State, BufLong);
            Dec(Len, T);
            Index := T;  { Wolfgang Klein, 05/06/99 }
        end;
        while Len >= 64 do begin
            Move(TByteArray(Data)[Index], BufChar, 64);
            MD5Transform(State, BufLong);
            Inc(Index, 64);
            Dec(Len, 64);
        end;
        Move(TByteArray(Data)[Index], BufChar, Len);
    end
end;

uj5u.com熱心網友回復：

{* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *}
procedure MD5UpdateBuffer(
    var MD5Context: TMD5Context;
    Buffer: Pointer;
    BufSize: Integer);
var
    BufTmp : PMD5Buffer;
    BufPtr : PChar;
    Bytes  : Word;
begin
    New(BufTmp);
    BufPtr := Buffer;
    try
        repeat
            if BufSize > MaxBufSize then
                Bytes := MaxBufSize
            else
                Bytes := BufSize;
            Move(BufPtr^, BufTmp^, Bytes);
            Inc(BufPtr, Bytes);
            Dec(BufSize, Bytes);
            if Bytes > 0 then
                MD5Update(MD5Context, BufTmp^, Bytes);
        until Bytes < MaxBufSize;
    finally
        Dispose(BufTmp);
    end;
end;

{* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *}
function GetMD5(Buffer: Pointer; BufSize: Integer): string;
var
    I          : Integer;
    MD5Digest  : TMD5Digest;
    MD5Context : TMD5Context;
begin
    for I := 0 to 15 do
        Byte(MD5Digest[I]) := I + 1;
    MD5Init(MD5Context);
    MD5UpdateBuffer(MD5Context, Buffer, BufSize);
    MD5Final(MD5Digest, MD5Context);
    Result := '';
    for I := 0 to 15 do
        Result := Result + IntToHex(Byte(MD5Digest[I]), 2);
end;

{* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *}
function StrMD5(Buffer : String): string;
begin
    Result := GetMD5(@Buffer[1], Length(Buffer));
end;


procedure TForm4.BitBtn1Click(Sender: TObject);
var
  vKey : string;
begin
  vKey := '123456';
  Edit2.Text :=StrMd5(Edit1.Text +vKey);
end;

end.

uj5u.com熱心網友回復：

要說密鑰這東西的話去找AES之類的加密吧

uj5u.com熱心網友回復：

MD5是不可逆的，木有密鑰，一般是防止資訊篡改。
所謂的“密鑰”，可能是在某地方加上雙方約定好的字串而已。

uj5u.com熱心網友回復：

參考 7 樓  的回復:
樓上的兄弟，我已經加分了，能寫個實體發給我嗎？等著急用。。。。


關注一下我的QQ，我傳個實體給你

uj5u.com熱心網友回復：

樓上的兄弟：你的ＱＱ多少啊，上面的的兄弟先謝了，你們說的代碼都試過了，加密后都沒得到跟客戶一樣的密文，
舉個例子：明文：1051006212012050200063281110510062120120502000632801105100621201205020006327911051006212012050200063278210510062120120502000632771
密鑰：Picc37mu63ht38mw
客戶那邊MD5加密后得到密文是：4577c0b6b3364fb097ecd16293f157d6
不知道他那邊是怎么算出這個密文的

uj5u.com熱心網友回復：

我已發信給你了，請查收

uj5u.com熱心網友回復：

MD5是摘要演算法，是不可逆的！

uj5u.com熱心網友回復：

樓主呀，MD5還沒有搞定呀

uj5u.com熱心網友回復：

uj5u.com熱心網友回復：

帶密鑰的是 HMAC-MD5,密鑰是鹽

uj5u.com熱心網友回復：

indy里有md5的實作

uj5u.com熱心網友回復：

借鑒一下，正好想實作用戶登錄密碼加密保存，不知怎么實作呢。

uj5u.com熱心網友回復：

大神，幫我也發一份吧，急急急！[email protected]

uj5u.com熱心網友回復：

    /*
     * 生成簽名
     * @param method HTTP請求方法 "get" / "post" //引數1：請求方式的字串值
     * @param url_path CGI名字,                 //引數2：api的相對URL的字串值
     * @param params URL請求引數                   //引數3：由request的請求名和值，構成的hashmap資料型別值
     * @param secret 密鑰                          //引數4：用戶網站的appkey的字串值
     * @return 簽名值                               //回傳值，對請求值進行hmac-sha1加密演算法的計算回傳值。
     * @throws OpensnsException 不支持指定編碼以及不支持指定的加密方法時拋出例外。
     */
    private String makeSign(String method, String url_path, HashMap<String, String> params, String secret) throws OpenApiException {
        String sig = "";
        try {
            Mac mac = Mac.getInstance("HmacSHA1");            //1 得到一個是hmacsha1的mac物件
            SecretKeySpec secretKey = new SecretKeySpec(secret.getBytes(charset), mac.getAlgorithm()); //2 創建secretKey物件
            mac.init(secretKey);                              //3 用secretkey物件，初始化mac物件。
            String mk = makeSource(method, url_path, params); //4 輸入method、url_path,parms引數，得到源名碼
            System.out.println(mk);
            byte[] hash = mac.doFinal(mk.getBytes(charset)); //5 用mac對源名碼加密，得到byte陣列
            sig = new String(Base64Coder.encode(hash));      //6 encode編碼，然后轉化為string輸出值
            // sig = encodeUrl(sig);
        } catch (Exception e) {
            throw new OpenApiException(OpenApiException.MAKE_SIGNATURE_ERROR, e);
        }
        return sig;
    }

輸入post/get 的string值、相對api的url string值、hashmap方式的request值、appkey的string值，經過hmac演算法，得到計算的密碼值。
源名碼=源明碼 

上面是拍拍網的api訪問的java的demo，有否delphi版的演算法例子。

uj5u.com熱心網友回復：

unit Unit3;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons,
  IdHashMessageDigest, HTTPApp, IdHMACSHA1, IdCoderMIME, DateUtils;

type
  TForm3 = class(TForm)
    BitBtn1: TBitBtn;
    Memo1: TMemo;
    procedure BitBtn1Click(Sender: TObject);
    procedure Memo1Change(Sender: TObject);

  private
    { Private declarations }
    function Base64Encode(const Input: TBytes): string;
    function EncryptHMACSha1(Input,AKey:AnsiString): TBytes;
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation

{$R *.dfm}

procedure TForm3.BitBtn1Click(Sender: TObject);

var

  sHttpMethod: AnsiString;

  sRequestURL: AnsiString;

  sRequestParameter: AnsiString;

  sAppSecret: AnsiString;

  sSignatureBaseString: AnsiString;

  sMD5: TIdHashMessageDigest5;

begin

  sMD5 := TIdHashMessageDigest5.Create;



  sAppSecret := '4b50186d12987f405b17bc38c9b99b0a&';  //密鑰



  sHttpMethod := 'GET';

  sRequestURL := 'http://open.t.qq.com/cgi-bin/request_token';

  sRequestParameter := 'oauth_callback=null&oauth_consumer_key=8*******9&oauth_nonce=';

  sRequestParameter := sRequestParameter + sMD5.HashStringAsHex(IntToStr(Random(10000)), nil);  //隨機32位數

  sRequestParameter := sRequestParameter + '&oauth_signature_method=HMAC-SHA1&oauth_timestamp=';

  sRequestParameter := sRequestParameter + FloatToStr(DateTimeToUnix(Now()-1/3)); //時間戳

  sRequestParameter := sRequestParameter + '&oauth_version=1.0';



  sSignatureBaseString := HTTPEncode(sHttpMethod) + '&' + HTTPEncode(sRequestURL) + '&' + HTTPEncode(sRequestParameter);

  Memo1.Text := Base64Encode(EncryptHMACSha1(sSignatureBaseString, sAppSecret));

  sMD5.Free;

end;

//兩個函式 Base64Encode，EncryptHMACSha1；
 //HMACSha1演算法
function TForm3.EncryptHMACSha1(Input,AKey:AnsiString): TBytes;
var Key: TBytes;
begin

  with TIdHMACSHA1.Create do
  try
     Key := BytesOf(AKey);
     Result := HashValue(BytesOf(Input));

   finally
     Free;
  end;

end;

procedure TForm3.Memo1Change(Sender: TObject);
begin

end;

//Base64編碼

function TForm3.Base64Encode(const Input: TBytes): string;
begin

  Result := TIdEncoderMIME.EncodeBytes(Input);
end;


end.

uj5u.com熱心網友回復：


OAuth的精髓

DM5是無密鑰的加密演算法，輸入明文，得到密碼

如果黑客截獲URL值，里面包含網店的id、密碼、spid等值，
就可以利用這些值構造另外一個URL，
再用DM5演算法得到sign值，這樣網店的介面也對黑客開放了。

所以MD5加密簽權方法，讓黑客有機會進入網店后臺亂搞，比如修改價格、修改商品等
黑客可以用木馬等程式，截獲API的URL

而OAuth方法，是采用hmac-sha1演算法，加密時必須OAuthKey(密鑰值)，
這個值是商家系統在平臺注冊商家系統時留在平臺里的，把明文加密成sign值時，
必需要提供OAuthKey值才可以加密成密碼。
而在URL只是包含網店的key、密碼、商家ID，沒有AuthKey，
那么黑客截獲了URL，因為沒有包含AuthKey值(在商家系統和平臺才有)，
那么就不能生成Sign值，所以就無法隨意訪問網店資訊，這樣就安全了。

uj5u.com熱心網友回復：

不知道為啥要弄個什么密碼。
我將MD5演算法，在delphi7.0下編譯，將某字串加密，得到的32位的密文是A，將同樣的程式，放到delphi xe3下編譯，將同樣的字串加密，得到的是字串B。
同樣的md5演算法，因為編譯的語言不同，得到的結果也是不同的。

uj5u.com熱心網友回復：

參考 27 樓 lpfcqf 的回復:
不知道為啥要弄個什么密碼。
我將MD5演算法，在delphi7.0下編譯，將某字串加密，得到的32位的密文是A，將同樣的程式，放到delphi xe3下編譯，將同樣的字串加密，得到的是字串B。
同樣的md5演算法，因為編譯的語言不同，得到的結果也是不同的。


你不知道你D7是ANSI字符，XE3是Unicode編碼嗎？這是基礎知識，請好好補習一下。你在sql server中的varchar和nvarchar編碼后的值也是不一樣的。

uj5u.com熱心網友回復：

MD5不存在密鑰一說，你客戶所謂的密鑰，肯定說法有問題，可能是一種組合加密演算法，最后生成md5而已。例如123加密以后是20xxxxxxxx……，如果加入一個你所謂的密鑰a，就成了123a，結果就是5dxxx.....沒有這個a，你就得不到最終結果，所以……如果我理解正確，這個也不能叫密鑰……密鑰的意思是回傳明文……很顯然，md5是不可能的……

uj5u.com熱心網友回復：

模擬sha1、hmac-sha1的密鑰演算法。
比如很多網站的后臺資料api的rest方式，就是用md5和hmac-sha1演算法的。
多看java代碼，很清楚的。
delphi低版本的關于網路的演算法，都要依靠第三方控制元件或代碼，
有些甚至要通過呼叫dll來處理。
這就是delphi的特點。

uj5u.com熱心網友回復：

參考 15 樓 alexzhongjian 的回復:
樓上的兄弟：你的ＱＱ多少啊，上面的的兄弟先謝了，你們說的代碼都試過了，加密后都沒得到跟客戶一樣的密文，
舉個例子：明文：1051006212012050200063281110510062120120502000632801105100621201205020006327911051006212012050200063278210510062120120502000632771
密鑰：Picc37mu63ht38mw
客戶那邊MD5加密后得到密文是：4577c0b6b3364fb097ecd16293f157d6
不知道他那邊是怎么算出這個密文的

你的加密方式可能被改造過了，不是標準的

轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/130934.html

標籤：數據庫相關

上一篇：求高手幫忙破解一個dll 做一個c#介面

下一篇：哪位兄弟能不能幫我把這個函式轉成delphi,多謝~

標籤雲
其他(157675) Python(38076) JavaScript(25376) Java(17977) C(15215) 區塊鏈(8255) C＃(7972) AI(7469) 爪哇(7425) MySQL(7132) html(6777) 基礎類(6313) sql(6102) 熊猫(6058) PHP(5869) 数组(5741) R(5409) Linux(5327) 反应(5209) 腳本語言(PerlPython)(5129) 非技術區(4971) Android(4554) 数据框(4311) css(4259) 节点.js(4032) C語言(3288) json(3245) 列表(3129) 扑(3119) C++語言(3117) 安卓(2998) 打字稿(2995) VBA(2789) Java相關(2746) 疑難問題(2699) 细绳(2522) 單片機工控(2479) iOS(2429) ASP.NET(2402) MongoDB(2323) 麻木的(2285) 正则表达式(2254) 字典(2211) 循环(2198) 迅速(2185) 擅长(2169) 镖(2155) 功能(1967) .NET技术(1958) Web開發(1951) python-3.x(1918) HtmlCss(1915) 弹簧靴(1913) C++(1909) xml(1889) PostgreSQL(1872) .NETCore(1853) 谷歌表格(1846) Unity3D(1843) for循环(1842)

熱門瀏覽
  • 【C++】Microsoft C++、C 和匯編程式檔案

    ......

    uj5u.com 2020-09-10 00:57:23 more
  • 例外宣告

    相比于斷言適用于排除邏輯上不可能存在的狀態，例外通常是用于邏輯上可能發生的錯誤。 例外宣告 Item 1：當函式不可能拋出例外或不能接受拋出例外時，使用noexcept 理由 如果不打算拋出例外的話，程式就會認為無法處理這種錯誤，并且應當盡早終止，如此可以有效地阻止例外的傳播與擴散。 示例 //不可 ......

    uj5u.com 2020-09-10 00:57:27 more
  • Codeforces 1400E Clear the Multiset(貪心 + 分治)

    鏈接：https://codeforces.com/problemset/problem/1400/E 來源：Codeforces 思路：給你一個陣列，現在你可以進行兩種操作，操作1：將一段沒有 0 的區間進行減一的操作，操作2：將 i 位置上的元素歸零。最終問：將這個陣列的全部元素歸零后操作的最少 ......

    uj5u.com 2020-09-10 00:57:30 more
  • UVA11610 【Reverse Prime】

    本人看到此題沒有翻譯，就附帶了一個自己的翻譯版本 思考 這一題，它的第一個要求是找出所有 $7$ 位反向質數及其質因數的個數。 我們應該需要質數篩篩選1~$10^{7}$的所有數，這里就不慢慢介紹了。但是，重讀題，我們突然發現反向質數都是 $7$ 位，而將它反過來后的數字卻是 $6$ 位數，這就說明 ......

    uj5u.com 2020-09-10 00:57:36 more
  • 統計區間素數數量

    1 #pragma GCC optimize(2) 2 #include <bits/stdc++.h> 3 using namespace std; 4 bool isprime[1000000010]; 5 vector<int> prime; 6 inline int getlist(int ......

    uj5u.com 2020-09-10 00:57:47 more
  • C/C++編程筆記：C++中的 const 變數詳解，教你正確認識const用法

    1、C中的const 1、區域const變數存放在堆疊區中，會分配記憶體（也就是說可以通過地址間接修改變數的值）。測驗代碼如下： 運行結果： 2、全域const變數存放在只讀資料段（不能通過地址修改，會發生寫入錯誤）， 默認為外部聯編，可以給其他源檔案使用（需要用extern關鍵字修飾） 運行結果： ......

    uj5u.com 2020-09-10 00:58:04 more
  • 【C++犯錯記錄】VS2019 MFC添加資源不懂如何修改資源宏ID

    1. 首先在資源視圖中，添加資源 2. 點擊新添加的資源，復制自動生成的ID 3. 在解決方案資源管理器中找到Resource.h檔案，編輯，使用整個專案搜索和替換的方式快速替換 宏宣告 4. Ctrl+Shift+F 全域搜索，點擊查找全部，然后逐個替換 5. 為什么使用搜索替換而不使用屬性視窗直 ......

    uj5u.com 2020-09-10 00:59:11 more
  • 【C++犯錯記錄】VS2019 MFC不懂的批量添加資源

    1. 打開資源頭檔案Resource.h，在其中預先定義好宏 ID（不清楚其實ID值應該設定多少，可以先新建一個相同的資源項，再在這個資源的ID值的基礎上遞增即可） 2. 在資源視圖中選中專案資源，按F7編輯資源檔案，按 ID 型別 相對路徑的形式添加 資源。（別忘了先把檔案拷貝到專案中的res檔案 ......

    uj5u.com 2020-09-10 01:00:19 more
  • C/C++編程筆記：關于C++的參考型別，專供新手入門使用

    今天要講的是C++中我最喜歡的一個用法——參考，也叫別名。 參考就是給一個變數名取一個變數名，方便我們間接地使用這個變數。我們可以給一個變數創建N個參考，這N + 1個變數共享了同一塊記憶體區域。(參考型別的變數會占用記憶體空間，占用的記憶體空間的大小和指標型別的大小是相同的。雖然參考是一個物件的別名，但 ......

    uj5u.com 2020-09-10 01:00:22 more
  • 【C/C++編程筆記】從頭開始學習C ++：初學者完整指南

    眾所周知，C ++的學習曲線陡峭，但是花時間學習這種語言將為您的職業帶來奇跡，并使您與其他開發人員區分開。您會更輕松地學習新語言，形成真正的解決問題的技能，并在編程的基礎上打下堅實的基礎。 C ++將幫助您養成良好的編程習慣（即清晰一致的編碼風格，在撰寫代碼時注釋代碼，并限制類內部的可見性），并且由 ......

    uj5u.com 2020-09-10 01:00:41 more
最新发布
  • Rust中的智能指標:Box<T> Rc<T> Arc<T> Cell<T> RefCell<T> Weak

    Rust中的智能指標是什么 智能指標（smart pointers）是一類資料結構，是擁有資料所有權和額外功能的指標。是指標的進一步發展 指標（pointer）是一個包含記憶體地址的變數的通用概念。這個地址參考，或 ” 指向”（points at）一些其 他資料 。參考以 & 符號為標志并借用了他們所 ......

    uj5u.com 2023-04-20 07:24:10 more
  • Java的值傳遞和參考傳遞

    值傳遞不會改變本身，參考傳遞（如果傳遞的值需要實體化到堆里）如果發生修改了會改變本身。 1.基本資料型別都是值傳遞 package com.example.basic; public class Test { public static void main(String[] args) { int ......

    uj5u.com 2023-04-20 07:24:04 more
  • [2]SpinalHDL教程——Scala簡單入門

    第一個 Scala 程式 shell里面輸入 $ scala scala> 1 + 1 res0: Int = 2 scala> println("Hello World!") Hello World! 檔案形式 object HelloWorld { /* 這是我的第一個 Scala 程式 * 以 ......

    uj5u.com 2023-04-20 07:23:58 more
  • 理解函式指標和回呼函式

    理解 函式指標 指向函式的指標。比如： 理解函式指標的偽代碼 void (*p)(int type, char *data); // 定義一個函式指標p void func(int type, char *data); // 宣告一個函式func p = func; // 將指標p指向函式func ......

    uj5u.com 2023-04-20 07:23:52 more
  • Django筆記二十五之資料庫函式之日期函式

    本文首發于公眾號：Hunter后端 原文鏈接：Django筆記二十五之資料庫函式之日期函式 日期函式主要介紹兩個大類，Extract() 和 Trunc() Extract() 函式作用是提取日期，比如我們可以提取一個日期欄位的年份，月份，日等資料 Trunc() 的作用則是截取，比如 2022-0 ......

    uj5u.com 2023-04-20 07:23:45 more
  • 一天吃透JVM面試八股文

    什么是JVM？ JVM，全稱Java Virtual Machine（Java虛擬機），是通過在實際的計算機上仿真模擬各種計算機功能來實作的。由一套位元組碼指令集、一組暫存器、一個堆疊、一個垃圾回收堆和一個存盤方法域等組成。JVM屏蔽了與作業系統平臺相關的資訊，使得Java程式只需要生成在Java虛擬機 ......

    uj5u.com 2023-04-20 07:23:31 more
  • 使用Java接入小程式訂閱訊息！

    更新完微信服務號的模板訊息之后，我又趕緊把微信小程式的訂閱訊息給實作了！之前我一直以為微信小程式也是要企業才能申請，沒想到小程式個人就能申請。 訊息推送平臺🔥推送下發【郵件】【短信】【微信服務號】【微信小程式】【企業微信】【釘釘】等訊息型別。 https://gitee.com/zhongfuch ......

    uj5u.com 2023-04-20 07:22:59 more
  • java -- 緩沖流、轉換流、序列化流

    緩沖流 緩沖流, 也叫高效流, 按照資料型別分類： 位元組緩沖流：BufferedInputStream，BufferedOutputStream 字符緩沖流：BufferedReader，BufferedWriter 緩沖流的基本原理，是在創建流物件時，會創建一個內置的默認大小的緩沖區陣列，通過緩沖 ......

    uj5u.com 2023-04-20 07:22:49 more
  • Java-SpringBoot-Range請求頭設定實作視頻分段傳輸

    老實說，人太懶了，現在基本都不喜歡寫筆記了，但是網上有關Range請求頭的文章都太水了 下面是抄的一段StackOverflow的代碼...自己大修改過的，寫的注釋挺全的，應該直接看得懂，就不解釋了 寫的不好...只是希望能給視頻網站開發的新手一點點幫助吧. 業務場景：視頻分段傳輸、視頻多段傳輸（理 ......

    uj5u.com 2023-04-20 07:22:42 more
  • Windows 10開發教程_編程入門自學教程_菜鳥教程-免費教程分享

    教程簡介 Windows 10開發入門教程 - 從簡單的步驟了解Windows 10開發，從基本到高級概念，包括簡介，UWP，第一個應用程式，商店，XAML控制元件，資料系結，XAML性能，自適應設計，自適應UI，自適應代碼，檔案管理，SQLite資料庫，應用程式到應用程式通信，應用程式本地化，應用程式 ......

    uj5u.com 2023-04-20 07:22:35 more

Copyright © 2010-2020 有解無憂