亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

? 歡迎來(lái)到蟲蟲下載站！ | ?? 資源下載 ?? 資源專輯 ?? 關(guān)于我們
? 蟲蟲下載站

?? unit1.~pas

?? MD5算法完整源碼與調(diào)用方法
?? ~PAS
字號(hào): 
///////////////////////////////////////////////////////////////////////////////
                         //MD5 DEMO V1.0//
                          //作者：ksaiy//
//歡迎使用由ksaiy制作的MD5加密算法演示程序，此算法為標(biāo)準(zhǔn)的MD5算法，你可以根據(jù)的
//的自己需要進(jìn)行變形。具體怎么操作可以登錄我們的網(wǎng)站查詢?cè)敿?xì)的資料。我們專門為軟
//件開發(fā)者提供軟件加密安全測(cè)試服務(wù)和軟件加密解決方案，具體的可以參看我們的網(wǎng)站上
//的資料。我們的網(wǎng)站：http://www.ksaiy.com  http://www.magicoa.com
//技術(shù)支持:ksaiy@sina.com 在線QQ：40188696 UC：934155
                            //End //

                  //注意：轉(zhuǎn)載請(qǐng)保留以上信息。//
///////////////////////////////////////////////////////////////////////////////

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Label3: TLabel;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

type
  MD5Count = array[0..1] of DWORD;
  MD5State = array[0..3] of DWORD;
  MD5Block = array[0..15] of DWORD;
  MD5CBits = array[0..7] of Byte;
  MD5Digest = array[0..15] of Byte;
  MD5Buffer = array[0..63] of Byte;
  MD5Context = record
    State: MD5State;
    Count: MD5Count;
    Buffer: MD5Buffer;
  end;

procedure MD5Init(var Context: MD5Context);
procedure MD5Update(var Context: MD5Context; Input: pChar; Length: longword);
procedure MD5Final(var Context: MD5Context; var Digest: MD5Digest);

function MD5String(M: string): MD5Digest;
function MD5File(N: string): MD5Digest;
function MD5Print(D: MD5Digest): string;
function MD5Match(D1, D2: MD5Digest): Boolean;

function RivestStr(Str: string): string;
function RivestFile(FileName: string): string;


var
  Form1: TForm1;
  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, $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);


implementation

{$R *.dfm}

function F(x, y, z: DWORD): DWORD;
begin
	Result := (x and y) or ((not x) and z);
end;

function G(x, y, z: DWORD): DWORD;
begin
	Result := (x and z) or (y and (not z));
end;

function H(x, y, z: DWORD): DWORD;
begin
	Result := x xor y xor z;
end;

function I(x, y, z: DWORD): DWORD;
begin
	Result := y xor (x or (not z));
end;

procedure rot(var x: DWORD; n: BYTE);
begin
	x := (x shl n) or (x shr (32 - n));
end;

procedure FF(var a: DWORD; b, c, d, x: DWORD; s: BYTE; ac: DWORD);
begin
	inc(a, F(b, c, d) + x + ac);
	rot(a, s);
	inc(a, b);
end;

procedure GG(var a: DWORD; b, c, d, x: DWORD; s: BYTE; ac: DWORD);
begin
	inc(a, G(b, c, d) + x + ac);
	rot(a, s);
	inc(a, b);
end;

procedure HH(var a: DWORD; b, c, d, x: DWORD; s: BYTE; ac: DWORD);
begin
	inc(a, H(b, c, d) + x + ac);
	rot(a, s);
	inc(a, b);
end;

procedure II(var a: DWORD; b, c, d, x: DWORD; s: BYTE; ac: DWORD);
begin
	inc(a, I(b, c, d) + x + ac);
	rot(a, s);
	inc(a, b);
end;

procedure Encode(Source, Target: pointer; Count: longword);
var
	S: PByte;
	T: PDWORD;
	I: longword;
begin
	S := Source;
	T := Target;
	for I := 1 to Count div 4 do begin
		T^ := S^;
		inc(S);
		T^ := T^ or (S^ shl 8);
		inc(S);
		T^ := T^ or (S^ shl 16);
		inc(S);
		T^ := T^ or (S^ shl 24);
		inc(S);
		inc(T);
	end;
end;

procedure Decode(Source, Target: pointer; Count: longword);
var
	S: PDWORD;
	T: PByte;
	I: longword;
begin
	S := Source;
	T := Target;
	for I := 1 to Count do begin
		T^ := S^ and $ff;
		inc(T);
		T^ := (S^ shr 8) and $ff;
		inc(T);
		T^ := (S^ shr 16) and $ff;
		inc(T);
		T^ := (S^ shr 24) and $ff;
		inc(T);
		inc(S);
	end;
end;

procedure Transform(Buffer: pointer; var State: MD5State);
var
	a, b, c, d: DWORD;
	Block: MD5Block;
begin
	Encode(Buffer, @Block, 64);
	a := State[0];
	b := State[1];
	c := State[2];
	d := State[3];
	FF (a, b, c, d, Block[ 0],  7, $d76aa478);
	FF (d, a, b, c, Block[ 1], 12, $e8c7b756);
	FF (c, d, a, b, Block[ 2], 17, $242070db);
	FF (b, c, d, a, Block[ 3], 22, $c1bdceee);
	FF (a, b, c, d, Block[ 4],  7, $f57c0faf);
	FF (d, a, b, c, Block[ 5], 12, $4787c62a);
	FF (c, d, a, b, Block[ 6], 17, $a8304613);
	FF (b, c, d, a, Block[ 7], 22, $fd469501);
	FF (a, b, c, d, Block[ 8],  7, $698098d8);
	FF (d, a, b, c, Block[ 9], 12, $8b44f7af);
	FF (c, d, a, b, Block[10], 17, $ffff5bb1);
	FF (b, c, d, a, Block[11], 22, $895cd7be);
	FF (a, b, c, d, Block[12],  7, $6b901122);
	FF (d, a, b, c, Block[13], 12, $fd987193);
	FF (c, d, a, b, Block[14], 17, $a679438e);
	FF (b, c, d, a, Block[15], 22, $49b40821);
	GG (a, b, c, d, Block[ 1],  5, $f61e2562);
	GG (d, a, b, c, Block[ 6],  9, $c040b340);
	GG (c, d, a, b, Block[11], 14, $265e5a51);
	GG (b, c, d, a, Block[ 0], 20, $e9b6c7aa);
	GG (a, b, c, d, Block[ 5],  5, $d62f105d);
	GG (d, a, b, c, Block[10],  9,  $2441453);
	GG (c, d, a, b, Block[15], 14, $d8a1e681);
	GG (b, c, d, a, Block[ 4], 20, $e7d3fbc8);
	GG (a, b, c, d, Block[ 9],  5, $21e1cde6);
	GG (d, a, b, c, Block[14],  9, $c33707d6);
	GG (c, d, a, b, Block[ 3], 14, $f4d50d87);
	GG (b, c, d, a, Block[ 8], 20, $455a14ed);
	GG (a, b, c, d, Block[13],  5, $a9e3e905);
	GG (d, a, b, c, Block[ 2],  9, $fcefa3f8);
	GG (c, d, a, b, Block[ 7], 14, $676f02d9);
	GG (b, c, d, a, Block[12], 20, $8d2a4c8a);
	HH (a, b, c, d, Block[ 5],  4, $fffa3942);
	HH (d, a, b, c, Block[ 8], 11, $8771f681);
	HH (c, d, a, b, Block[11], 16, $6d9d6122);
	HH (b, c, d, a, Block[14], 23, $fde5380c);
	HH (a, b, c, d, Block[ 1],  4, $a4beea44);
	HH (d, a, b, c, Block[ 4], 11, $4bdecfa9);
	HH (c, d, a, b, Block[ 7], 16, $f6bb4b60);
	HH (b, c, d, a, Block[10], 23, $bebfbc70);
	HH (a, b, c, d, Block[13],  4, $289b7ec6);
	HH (d, a, b, c, Block[ 0], 11, $eaa127fa);
	HH (c, d, a, b, Block[ 3], 16, $d4ef3085);
	HH (b, c, d, a, Block[ 6], 23,  $4881d05);
	HH (a, b, c, d, Block[ 9],  4, $d9d4d039);
	HH (d, a, b, c, Block[12], 11, $e6db99e5);
	HH (c, d, a, b, Block[15], 16, $1fa27cf8);
	HH (b, c, d, a, Block[ 2], 23, $c4ac5665);
	II (a, b, c, d, Block[ 0],  6, $f4292244);
	II (d, a, b, c, Block[ 7], 10, $432aff97);
	II (c, d, a, b, Block[14], 15, $ab9423a7);
	II (b, c, d, a, Block[ 5], 21, $fc93a039);
	II (a, b, c, d, Block[12],  6, $655b59c3);
	II (d, a, b, c, Block[ 3], 10, $8f0ccc92);
	II (c, d, a, b, Block[10], 15, $ffeff47d);
	II (b, c, d, a, Block[ 1], 21, $85845dd1);
	II (a, b, c, d, Block[ 8],  6, $6fa87e4f);
	II (d, a, b, c, Block[15], 10, $fe2ce6e0);
	II (c, d, a, b, Block[ 6], 15, $a3014314);
	II (b, c, d, a, Block[13], 21, $4e0811a1);
	II (a, b, c, d, Block[ 4],  6, $f7537e82);
	II (d, a, b, c, Block[11], 10, $bd3af235);
	II (c, d, a, b, Block[ 2], 15, $2ad7d2bb);
	II (b, c, d, a, Block[ 9], 21, $eb86d391);
	inc(State[0], a);
	inc(State[1], b);
	inc(State[2], c);
	inc(State[3], d);
end;

procedure MD5Init(var Context: MD5Context);
begin
	with Context do begin
		State[0] := $67452301;
		State[1] := $efcdab89;
		State[2] := $98badcfe;
		State[3] := $10325476;
		Count[0] := 0;
		Count[1] := 0;
		ZeroMemory(@Buffer, SizeOf(MD5Buffer));
	end;
end;

procedure MD5Update(var Context: MD5Context; Input: pChar; Length: longword);
var
	Index: longword;
	PartLen: longword;
	I: longword;
begin
	with Context do begin
		Index := (Count[0] shr 3) and $3f;
		inc(Count[0], Length shl 3);
		if Count[0] < (Length shl 3) then inc(Count[1]);
		inc(Count[1], Length shr 29);
	end;
	PartLen := 64 - Index;
	if Length >= PartLen then begin
		CopyMemory(@Context.Buffer[Index], Input, PartLen);
		Transform(@Context.Buffer, Context.State);
		I := PartLen;
		while I + 63 < Length do begin
			Transform(@Input[I], Context.State);
			inc(I, 64);
		end;
		Index := 0;
	end else I := 0;
	CopyMemory(@Context.Buffer[Index], @Input[I], Length - I);
end;

procedure MD5Final(var Context: MD5Context; var Digest: MD5Digest);
var
	Bits: MD5CBits;
	Index: longword;
	PadLen: longword;
begin
	Decode(@Context.Count, @Bits, 2);
	Index := (Context.Count[0] shr 3) and $3f;
	if Index < 56 then PadLen := 56 - Index else PadLen := 120 - Index;
	MD5Update(Context, @PADDING, PadLen);
	MD5Update(Context, @Bits, 8);
	Decode(@Context.State, @Digest, 4);
	ZeroMemory(@Context, SizeOf(MD5Context));
end;

function MD5String(M: string): MD5Digest;
var
	Context: MD5Context;
begin
	MD5Init(Context);
	MD5Update(Context, pChar(M), length(M));
	MD5Final(Context, Result);
end;

function MD5File(N: string): MD5Digest;
var
	FileHandle: THandle;
	MapHandle: THandle;
	ViewPointer: pointer;
	Context: MD5Context;
begin
	MD5Init(Context);
	FileHandle := CreateFile(pChar(N), GENERIC_READ, FILE_SHARE_READ or FILE_SHARE_WRITE,
		nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL or FILE_FLAG_SEQUENTIAL_SCAN, 0);
	if FileHandle <> INVALID_HANDLE_VALUE then try
		MapHandle := CreateFileMapping(FileHandle, nil, PAGE_READONLY, 0, 0, nil);
		if MapHandle <> 0 then try
			ViewPointer := MapViewOfFile(MapHandle, FILE_MAP_READ, 0, 0, 0);
			if ViewPointer <> nil then try
				MD5Update(Context, ViewPointer, GetFileSize(FileHandle, nil));
			finally
				UnmapViewOfFile(ViewPointer);
			end;
		finally
			CloseHandle(MapHandle);
		end;
	finally
		CloseHandle(FileHandle);
	end;
	MD5Final(Context, Result);
end;

function MD5Print(D: MD5Digest): string;
var
	I: byte;
const
	Digits: array[0..15] of char =
		('0', '1', '2', '3', '4', '5', '6', '7', '8', '9', 'a', 'b', 'c', 'd', 'e', 'f');
begin
	Result := '';
	for I := 0 to 15 do Result := Result + Digits[(D[I] shr 4) and $0f] + Digits[D[I] and $0f];
end;

function MD5Match(D1, D2: MD5Digest): boolean;
var
	I: byte;
begin
	I := 0;
	Result := TRUE;
	while Result and (I < 16) do begin
		Result := D1[I] = D2[I];
		inc(I);
	end;
end;

function RivestStr(Str: string): string;
begin
  Result := MD5Print(MD5String(Str));
end;

function RivestFile(FileName: string): string;
begin
  Result := MD5Print(MD5File(FileName));
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
//function RivestStr(Str: string): string;為字符串加密函數(shù)；
  if RivestStr(Edit1.Text)=Edit2.Text then
    ShowMessage('注冊(cè)成功！')
  else
    ShowMessage('注冊(cè)失敗！');
///////////////////////////////////////////////////////////////////////////////
                         //MD5 DEMO V1.0//
                          //作者：ksaiy//
//歡迎使用由ksaiy制作的MD5加密算法演示程序，此算法為標(biāo)準(zhǔn)的MD5算法，你可以根據(jù)的
//的自己需要進(jìn)行變形。具體怎么操作可以登錄我們的網(wǎng)站查詢?cè)敿?xì)的資料。我們專門為軟
//件開發(fā)者提供軟件加密安全測(cè)試服務(wù)和軟件加密解決方案，具體的可以參看我們的網(wǎng)站上
//的資料。我們的網(wǎng)站：http://www.ksaiy.com  http://www.magicoa.com
//技術(shù)支持:ksaiy@sina.com 在線QQ：40188696 UC：934155
                            //End //

                  //注意：轉(zhuǎn)載請(qǐng)保留以上信息。//                            
///////////////////////////////////////////////////////////////////////////////
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Close;
end;

end.

?? 快捷鍵說(shuō)明

復(fù)制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號(hào) Ctrl + =
減小字號(hào) Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频
国产成人一级电影| 亚洲国产你懂的| 国产高清不卡一区二区| 欧美精品一区二区三区视频| 国产美女精品一区二区三区| 国产人成亚洲第一网站在线播放| 国产一区二区在线免费观看| 国产精品嫩草久久久久| 97se亚洲国产综合自在线观| 亚洲午夜精品一区二区三区他趣| 欧美日韩视频专区在线播放| 久久精品国内一区二区三区| 久久久久青草大香线综合精品| 成人av网站大全| 亚洲国产综合色| 欧美大片一区二区三区| 成人动漫一区二区在线| 亚洲综合免费观看高清在线观看| 欧美精品国产精品| 激情深爱一区二区| 亚洲欧美另类小说| 日韩视频不卡中文| 99久久精品免费精品国产| 亚洲图片欧美综合| 国产无一区二区| 欧美亚洲图片小说| 国产乱子伦一区二区三区国色天香| 中文字幕日韩欧美一区二区三区| 欧美久久高跟鞋激| 国产suv精品一区二区883| 一区二区三区在线播放| 精品成人一区二区| 日本韩国一区二区三区视频| 精品一区二区三区的国产在线播放| 国产精品嫩草99a| 日韩欧美一区二区三区在线| 成人精品视频一区二区三区| 日韩不卡一区二区三区| 亚洲欧洲精品一区二区三区| 日韩欧美在线网站| 欧美最猛性xxxxx直播| 国产一区二区不卡| 日韩av一级电影| 亚洲欧美视频在线观看视频| 精品对白一区国产伦| 欧美午夜精品一区| 99视频国产精品| 韩国一区二区在线观看| 天堂成人国产精品一区| 综合久久久久综合| 欧美激情一区二区三区全黄| 日韩情涩欧美日韩视频| 91国产精品成人| 成人av在线一区二区| 麻豆精品一区二区综合av| 亚洲国产日韩精品| 亚洲欧美日韩人成在线播放| 日本一区二区视频在线观看| 欧美大尺度电影在线| 欧美日韩国产综合视频在线观看| 99精品国产一区二区三区不卡| 久久精品免费观看| 免费在线观看视频一区| 午夜精品久久久久久久久| 一区二区三区在线观看国产 | 麻豆精品精品国产自在97香蕉| 亚洲欧美日韩一区二区| 国产精品麻豆久久久| 国产婷婷色一区二区三区四区 | 国产电影精品久久禁18| 精品在线播放午夜| 久久精品国产**网站演员| 免费看精品久久片| 免费观看一级特黄欧美大片| 免费不卡在线视频| 美女视频黄久久| 精品一区二区精品| 国产最新精品免费| 国产精品一区二区在线观看不卡| 国内成+人亚洲+欧美+综合在线| 麻豆成人免费电影| 国产乱码字幕精品高清av| 粉嫩久久99精品久久久久久夜| 国产v综合v亚洲欧| 99久久精品国产毛片| 色婷婷激情综合| 欧美日韩综合一区| 欧美一区二区三区日韩视频| 欧美一区二区三区男人的天堂| 欧美一区二视频| 久久午夜老司机| 中文字幕的久久| 亚洲人成电影网站色mp4| 一区二区三区日韩欧美| 午夜国产精品一区| 久久99精品国产.久久久久久| 韩国视频一区二区| 成人高清视频免费观看| 欧美专区亚洲专区| 日韩免费看网站| 国产婷婷色一区二区三区在线| 中文字幕一区二区不卡| 亚洲成精国产精品女| 毛片基地黄久久久久久天堂| 粉嫩av一区二区三区在线播放| 99久久精品国产一区| 欧美乱妇20p| 久久免费视频色| 亚洲欧美一区二区久久| 日本v片在线高清不卡在线观看| 国内精品免费在线观看| 日本乱码高清不卡字幕| 日韩欧美一区二区久久婷婷| 中文文精品字幕一区二区| 亚洲尤物在线视频观看| 狠狠色丁香久久婷婷综| 色综合天天性综合| 欧美电影免费观看高清完整版在| 中文一区在线播放| 日本免费在线视频不卡一不卡二| 国产91精品精华液一区二区三区| 欧美优质美女网站| 国产亚洲自拍一区| 天堂午夜影视日韩欧美一区二区| 国产成人综合亚洲网站| 欧美日本不卡视频| 国产精品国产三级国产普通话三级| 亚洲成人你懂的| 成人精品视频一区二区三区尤物| 在线播放/欧美激情| 亚洲视频一区二区在线| 国产在线精品不卡| 欧美卡1卡2卡| 亚洲欧美日韩人成在线播放| 国产一区不卡在线| 91精品在线免费| 亚洲一区二区三区爽爽爽爽爽| 国产成人av电影在线观看| 91精品一区二区三区久久久久久| 最新久久zyz资源站| 久久99久久久久| 欧美猛男超大videosgay| 亚洲天堂网中文字| 国产成人免费xxxxxxxx| 日韩欧美在线不卡| 午夜电影网一区| 久久久久久免费毛片精品| 亚洲精品成a人| av中文字幕不卡| 国产欧美一区二区在线观看| 美洲天堂一区二卡三卡四卡视频| 在线观看日韩毛片| 亚洲色欲色欲www| 成人午夜在线视频| 久久久久99精品一区| 国产在线乱码一区二区三区| 欧美一区二区三区四区高清| 亚洲国产人成综合网站| 日本乱人伦一区| 亚洲精品欧美二区三区中文字幕| www.欧美色图| 《视频一区视频二区| 91在线观看污| 亚洲人成在线观看一区二区| 波多野结衣欧美| 中文字幕一区二| 色中色一区二区| 亚洲主播在线播放| 91福利国产精品| 一区二区三区精品| 欧洲人成人精品| 亚洲图片欧美视频| 欧美日韩国产在线观看| 午夜精品福利视频网站| 这里只有精品99re| 紧缚奴在线一区二区三区| 久久色在线视频| 国产+成+人+亚洲欧洲自线| 国产精品不卡在线| 色爱区综合激月婷婷| 午夜亚洲福利老司机| 91精品国产综合久久精品性色| 美女视频黄 久久| 国产无一区二区| 91免费版在线看| 丝袜亚洲另类欧美| 亚洲一卡二卡三卡四卡五卡| 欧美日韩国产片| 久久99最新地址| 1区2区3区国产精品| 欧美乱妇23p| 国产91精品一区二区麻豆亚洲| 国产精品三级av| 欧美日韩国产高清一区| 九九九久久久精品| 亚洲欧美另类小说视频| 在线电影院国产精品| 国产精品小仙女| 亚洲精品中文字幕乱码三区| 91精品国产福利在线观看|