MD5

解決

だし 2007-08-22 01:58:24 No: 27472

おしえてください！

上記サイトで提供していただいているMD5計算ユニットを使いたいのですが、使い方がわかりません。

たとえば、下記のような場合、パラメータはどのような指定にすればよろしいのでしょうか。

uses md5;

var
  strPassword: string;
  strMD5: string;
begin
  strPassword = 'hogehoge';
  strMD5 := CalcMD5({???}, {???});
end;

よろしくお願いします。

TOBY URL 2007-08-22 11:16:20 No: 27473

function CalcMD5(ASrc:PByte; ASize:integer):string;
これですかね？

StreamのWriteと基本は同じだと思います。
stringを無理やり入れたいなら、

CalcMD5(PByte(PChar(strPassword)), Length(strPassword));

あたりかな？

だし 2007-08-22 19:22:03 No: 27474

TOBYさま
ありがとうございます。

１．
CalcMD5(PByte(PChar(strPassword)), Length(strPassword));
２．
CalcMD5(PByte(strPassword), Length(strPassword));

仕組みがよくわかってませんが、１でも２でも同じ結果が得られました。

上記ＵＲＬでMD5計算で確認したところ、同じ結果が得られました。

ありがとうございました！

TOBY URL 2007-08-27 08:00:50 No: 27475

動いてよかったです。

仕組みですが、簡単に分かる範囲で。

function CalcMD5(ASrc:PByte; ASize:integer):string;

の第一引数 ASrc は、バイト配列のポインタです。
b: array [0..1] of Byte とかだと、
PByte(b)とかで指定するハズ。あとは、@b[0] とか
さらに、第二引数は、そのバイト配列のサイズと思われます。

で、stringの場合は、PCharにキャストすると、Charの配列のポインタとして、取り出せます。
で、PByteでないと、CalcMD5で使えないので、さらにキャストしてます。
いきなり、PByteへのキャストでもよいようですね。

間違ってたら指摘してください。＞識者の方