Algoritma MD5 tersedia di delphi xe

Penulis：Eve Cole Waktu Pembaruan：2025-03-05 19:16:02

Copy kode kodenya sebagai berikut:

satuan MD5;

antarmuka

kegunaan

Windows, Pesan, SysUtils, Varian, Kelas, Grafik, Kontrol, Formulir,

Dialog, StdCtrls;

jenis

MD5Count = larik [0 .. 1] dari DWORD;

MD5State = larik [0..3] dari DWORD;

MD5Block = larik [0..15] dari DWORD;

MD5CBits = array [0 .. 7] dari Byte;

MD5Digest = larik [0..15] Byte;

MD5Buffer = larik [0..63] Byte;

MD5Context = catatan

Negara Bagian: MD5Negara Bagian;

Hitungan: MD5Hitungan;

Penyangga: MD5Buffer;

akhir;

prosedur MD5Init(var Konteks: MD5Context);

prosedur MD5Update(var Konteks: MD5Context; Masukan: PAnsiChar;

Panjangnya: kata panjang);

prosedur MD5Final(var Konteks: MD5Context; var Intisari: MD5Digest);

fungsi MD5File(N: String): MD5Digest;

fungsi MD5Print(D: MD5Digest): AnsiString;

fungsi MD5F(Nama File: AnsiString): AnsiString;

fungsi MD5S(Str: AnsiString): AnsiString;

// MD5F untuk menghitung nilai MD5 dari file, MD5S untuk menghitung nilai MD5 dari string!

var

PADDING: MD5Buffer = ($80, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00,

$00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00,

$00, $00, $00, $00, $00, $00, $00, $00);

pelaksanaan

fungsi F(x, y, z: DWORD): DWORD;

mulai

Hasil := (x dan y) atau ((bukan x) dan z);

akhir;

fungsi G(x, y, z: DWORD): DWORD;

mulai

Hasil := (x dan z) atau (y dan (bukan z));

akhir;

fungsi H(x, y, z: DWORD): DWORD;

mulai

Hasil := x xor y xor z;

akhir;

fungsi I(x, y, z: DWORD): DWORD;

mulai

Hasil := y xor (x atau (bukan z));

akhir;

prosedur membusuk(var x: DWORD; N: Byte);

mulai

x := (x shl N) atau (x shr (32 - N));

akhir;

prosedur FF(var a: DWORD; b, c, D, x: DWORD; s: Byte; ac: DWORD);

mulai

inc(a, F(b, c, D) + x + ac);

membusuk(a, s);

termasuk(a,b);

akhir;

prosedur GG(var a: DWORD; b, c, D, x: DWORD; s: Byte; ac: DWORD);

mulai

inc(a, G(b, c, D) + x + ac);

membusuk(a, s);

termasuk(a,b);

akhir;

prosedur HH(var a: DWORD; b, c, D, x: DWORD; s: Byte; ac: DWORD);

mulai

inc(a, H(b, c, D) + x + ac);

membusuk(a, s);

termasuk(a,b);

akhir;

prosedur II(var a: DWORD; b, c, D, x: DWORD; s: Byte; ac: DWORD);

mulai

inc(a, saya(b, c, D) + x + ac);

membusuk(a, s);

termasuk(a,b);

akhir;

procedure Encode(Sumber, Target: penunjuk; Jumlah: kata panjang);

var

s:PBita;

T: Kata PD;

I: kata panjang;

mulai

s := Sumber;

T := Sasaran;

untuk I := 1 hingga Hitung div 4 lakukan

mulai

T^ := s^;

inc;

T^ := T^ atau (s^ shl 8);

inc;

T^ := T^ atau (s^ shl 16);

inc;

T^ := T^ atau (s^ shl 24);

inc;

inc(T);

akhir;

prosedur Decode(Sumber, Target: penunjuk; Jumlah: kata panjang);

var

s: kata PD;

T: PByte;

I: kata panjang;

mulai

s := Sumber;

T := Sasaran;

untuk I := 1 hingga Hitung lakukan

mulai

T^ := s^ dan $FF;

inc(T);

T^ := (s^ shr 8) dan $FF;

inc(T);

T^ := (s^ shr 16) dan $FF;

inc(T);

T^ := (s^ shr 24) dan $FF;

inc(T);

inc;

akhir;

prosedur Transformasi(Buffer: pointer; var State: MD5State);

var

a, b, c, D: DWORD;

Blok: MD5Blok;

mulai

Menyandikan(Buffer, @Block, 64);

a := Negara[0];

b := Negara[1];

c := Negara[2];

D := Negara[3];

FF(a, b, c, D, Blok[0], 7, $D76AA478);

FF(D, a, b, c, Blok[1], 12, $E8C7B756);

FF(c, D, a, b, Blok[2], 17, $242070DB);

FF(b, c, D, a, Blok[3], 22, $C1BDCEEE);

FF(a, b, c, D, Blok[4], 7, $F57C0FAF);

FF(D, a, b, c, Blok[5], 12, $4787C62A);

FF(c, D, a, b, Blok[6], 17, $A8304613);

FF(b, c, D, a, Blok[7], 22, $FD469501);

FF(a, b, c, D, Blok[8], 7, $698098D8);

FF(D, a, b, c, Blok[9], 12, $8B44F7AF);

FF(c, D, a, b, Blok[10], 17, $FFFF5BB1);

FF(b, c, D, a, Blok[11], 22, $895CD7BE);

FF(a, b, c, D, Blok[12], 7, $6B901122);

FF(D, a, b, c, Blok[13], 12, $FD987193);

FF(c, D, a, b, Blok[14], 17, $A679438E);

FF(b, c, D, a, Blok[15], 22, $49B40821);

GG(a, b, c, D, Blok[1], 5, $F61E2562);

GG(D, a, b, c, Blok[6], 9, $C040B340);

GG(c, D, a, b, Blok[11], 14, $265E5A51);

GG(b, c, D, a, Blok[0], 20, $E9B6C7AA);

GG(a, b, c, D, Blok[5], 5, $D62F105D);

GG(D, a, b, c, Blok[10], 9, $2441453);

GG(c, D, a, b, Blok[15], 14, $D8A1E681);

GG(b, c, D, a, Blok[4], 20, $E7D3FBC8);

GG(a, b, c, D, Blok[9], 5, $21E1CDE6);

GG(D, a, b, c, Blok[14], 9, $C33707D6);

GG(c, D, a, b, Blok[3], 14, $F4D50D87);

GG(b, c, D, a, Blok[8], 20, $455A14ED);

GG(a, b, c, D, Blok[13], 5, $A9E3E905);

GG(D, a, b, c, Blok[2], 9, $FCEFA3F8);

GG(c, D, a, b, Blok[7], 14, $676F02D9);

GG(b, c, D, a, Blok[12], 20, $8D2A4C8A);

HH(a, b, c, D, Blok[5], 4, $FFFA3942);

HH(D, a, b, c, Blok[8], 11, $8771F681);

HH(c, D, a, b, Blok[11], 16, $6D9D6122);

HH(b, c, D, a, Blok[14], 23, $FDE5380C);

HH(a, b, c, D, Blok[1], 4, $A4BEEA44);

HH(D, a, b, c, Blok[4], 11, $4BDECFA9);

HH(c, D, a, b, Blok[7], 16, $F6BB4B60);

HH(b, c, D, a, Blok[10], 23, $BEBFBC70);

HH(a, b, c, D, Blok[13], 4, $289B7EC6);

HH(D, a, b, c, Blok[0], 11, $EAA127FA);

HH(c, D, a, b, Blok[3], 16, $D4EF3085);

HH(b, c, D, a, Blok[6], 23, $4881D05);

HH(a, b, c, D, Blok[9], 4, $D9D4D039);

HH(D, a, b, c, Blok[12], 11, $E6DB99E5);

HH(c, D, a, b, Blok[15], 16, $1FA27CF8);

HH(b, c, D, a, Blok[2], 23, $C4AC5665);

II(a, b, c, D, Blok[0], 6, $F4292244);

II(D, a, b, c, Blok[7], 10, $432AFF97);

II(c, D, a, b, Blok[14], 15, $AB9423A7);

II(b, c, D, a, Blok[5], 21, $FC93A039);

II(a, b, c, D, Blok[12], 6, $655B59C3);

II(D, a, b, c, Blok[3], 10, $8F0CCC92);

II(c, D, a, b, Blok[10], 15, $FFEFF47D);

II(b, c, D, a, Blok[1], 21, $85845DD1);

II(a, b, c, D, Blok[8], 6, $6FA87E4F);

II(D, a, b, c, Blok[15], 10, $FE2CE6E0);

II(c, D, a, b, Blok[6], 15, $A3014314);

II(b, c, D, a, Blok[13], 21, $4E0811A1);

II(a, b, c, D, Blok[4], 6, $F7537E82);

II(D, a, b, c, Blok[11], 10, $BD3AF235);

II(c, D, a, b, Blok[2], 15, $2AD7D2BB);

II(b, c, D, a, Blok[9], 21, $EB86D391);

inc(Negara Bagian[0], a);

inc(Negara Bagian[1], b);

inc(Negara Bagian[2], c);

inc(Negara Bagian[3], D);

akhir;

prosedur MD5Init(var Konteks: MD5Context);

mulai

dengan Konteks lakukan

mulai

Negara[0] := $67452301;

Negara[1] := $EFCDAB89;

Negara[2] := $98BADCFE;

Negara[3] := $10325476;

Hitung[0] := 0;

Hitung[1] := 0;

ZeroMemory(@Buffer, SizeOf(MD5Buffer));

akhir;

prosedur MD5Update(var Konteks: MD5Context; Masukan: PAnsiChar;

Panjangnya: kata panjang);

var

Indeks: kata panjang;

BagianLen: kata panjang;

I: kata panjang;

mulai

dengan Konteks lakukan

mulai

Indeks := (Hitungan[0] shr 3) dan $3F;

inc(Hitungan[0], Panjang shl 3);

jika Hitung[0] < (Panjang shl 3) maka

inc(Hitungan[1]);

inc(Hitungan[1], Panjang shr 29);

akhir;

BagianLen := 64 - Indeks;

jika Panjang >= PartLen maka

mulai

CopyMemory(@Context.Buffer[Indeks], Input, PartLen);

Transformasi(@Context.Buffer, Context.State);

Saya := BagianLen;

sedangkan I + 63 < Panjangnya

mulai

Transformasi(@Input[I], Konteks.Status);

inc(I, 64);

akhir;

Indeks := 0;

akhir

kalau tidak

saya := 0;

CopyMemory(@Context.Buffer[Indeks], @Input[I], Panjang - I);

akhir;

prosedur MD5Final(var Konteks: MD5Context; var Intisari: MD5Digest);

var

Bit: MD5CBits;

Indeks: kata panjang;

PadLen: kata panjang;

mulai

Dekode(@Context.Count, @Bits, 2);

Indeks := (Context.Count[0] shr 3) dan $3F;

jika Indeks < 56 maka

PadLen := 56 - Indeks

kalau tidak

PadLen := 120 - Indeks;

MD5Update(Konteks, @PADDING, PadLen);

MD5Update(Konteks, @Bits, 8);

Dekode(@Context.State, @Digest, 4);

ZeroMemory(@Context, SizeOf(MD5Context));

akhir;

fungsi MD5String(M: AnsiString): MD5Digest;

var

Konteks: Konteks MD5;

mulai

MD5Init(Konteks);

MD5Update(Konteks, PAnsiChar(M), Panjang(M));

MD5Final(Konteks, Hasil);

akhir;

fungsi MD5File(N: String): MD5Digest;

var

Pegangan File: Pegangan;

Pegangan Peta: Pegangan;

Penunjuk Pandangan: penunjuk;

Konteks: Konteks MD5;

mulai

MD5Init(Konteks);

FileHandle := BuatFile(PWideChar(WideString(N)), GENERIC_READ,

FILE_SHARE_READ atau FILE_SHARE_WRITE, nihil, OPEN_EXISTING,

FILE_ATTRIBUTE_NORMAL atau FILE_FLAG_SEQUENTIAL_SCAN, 0);

jika FileHandle <> INVALID_HANDLE_VALUE maka

mencoba

MapHandle := CreateFileMapping(FileHandle, nihil, PAGE_READONLY, 0, 0, nihil);

jika MapHandle <> 0 maka

mencoba

ViewPointer := MapViewOfFile(MapHandle, FILE_MAP_READ, 0, 0, 0);

jika ViewPointer <> nihil maka

mencoba

MD5Update(Konteks, ViewPointer, GetFileSize(FileHandle, nihil));

Akhirnya

UnmapViewOfFile(ViewPointer);

akhir;

Akhirnya

CloseHandle(MapHandle);

akhir;

Akhirnya

CloseHandle(FileHandle);

akhir;

MD5Final(Konteks, Hasil);

akhir;

fungsi MD5Print(D: MD5Digest): AnsiString;

var

Saya: Byte;

konstanta

Digit: larik [0..15] dari Ansichar = ('0', '1', '2', '3', '4', '5', '6', '7',

'8', '9', 'a', 'b', 'c', 'd', 'e', 'f');

mulai

Hasil := '';

untuk I := 0 sampai 15 lakukan

Hasil := Hasil + Digit[(D[I] shr 4) dan $0F] + Digit[D[I] dan $0F];

akhir;

fungsi MD5Match(D1, D2: MD5Digest): boolean;

var

Saya: Byte;

mulai

saya := 0;

Hasil := BENAR;

sementara Hasil dan (I <16) lakukan

mulai

Hasil := D1[I] = D2[I];

inc(saya);

akhir;

fungsi MD5S(Str: AnsiString): AnsiString;

mulai

Hasil := MD5Print(MD5String(Str));

akhir;

fungsi MD5F(Nama File: AnsiString): AnsiString;

mulai

Hasil := MD5Print(MD5File(string(NamaFile)));

akhir;