-
-
[求助]如何利用crc32判断文件是否被改动?
-
发表于:
2005-9-10 08:18
6482
-
以下代码好像不能用在文件自效检上,如何利用crc32进行文件自效检的判断,那位给点意见?
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Unit2;
type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
MakeTable();
Edit1.Text := GetCrc32Str('11111111', 8); //这里取指定字符串的CRC32校验值;
end;
procedure TForm1.Button2Click(Sender: TObject);
var
FileStr: string;
crc: DWORD;
begin
MakeTable();
FileStr := Application.ExeName; //这里取指定的文件的crc32校验值;
GetCRC32File(FileStr, crc);
if crc <> 0 then
Edit2.Text := PChar(IntToHex(crc, 6));
end;
end.
[课程]Android-CTF解题方法汇总!