Delphi

本类阅读TOP10

·分布式网络考试系统原型分析及实现
·游戏外挂设计技术探讨①
·使用HOOK随心监视Windows
·Delphi 水晶报表打包解决
·试题库开发中非文本数据的处理
·如何将几个DBGRID里的内容导入同一个EXCEL表中....的问题
·如何使用Delphi设计强大的服务器程序
·工人线程中关闭窗体的实现
·用DLL方式封装MDI子窗体。
·支持XP下托盘栏气球提示的托盘单元

分类导航
VC语言Delphi
VB语言ASP
PerlJava
Script数据库
其他语言游戏开发
文件格式网站制作
软件工程.NET开发
CRC32生成码表方法实现。。。。。

作者:未知 来源:月光软件站 加入时间:2005-6-5 月光软件站

  Table:Array[0..255] of DWORD;

procedure MakeTable();
var
  i,j,Crc:integer;
begin
  for i:=0 to 255 do
    begin
      Crc:=i;
      for j:=0 to 7 do
        begin
          if (Crc and 1)<>0 then
            Crc:=(Crc shr 1) xor $EDB88320
          else
            Crc:=Crc shr 1;
        end;
      Table[i]:=Crc;
    end;
end;

procedure GetCRC32File(FileName:string;var CRC32:DWORD);
var
  F:file;
  BytesRead:DWORD;
  Buffer:array[1..65521] of Byte;
  i:Word;
begin
  FileMode :=0;
  CRC32 :=$ffffffff;
  {$I-}
  AssignFile(F,FileName);
  Reset(F,1);
  if IoResult = 0 then
    begin
      repeat
      BlockRead(F,Buffer,Sizeof(Buffer),BytesRead);
      for i := 1 to BytesRead do
        CRC32 := (CRC32 shr 8) xor Table[Buffer[i] xor (CRC32 and $000000ff)];
      until BytesRead = 0;
    end;
  CloseFile(F);
  {$I+}
  CRC32 := not CRC32;
end;
   
function GetCrc32Str(s: string; Seed: LongInt):string;
var
  Count: Integer;
  CrcVal: LongInt;
begin
  CrcVal := Seed;
  for Count := 1 to Length(s) do
    CrcVal := Table[Byte(CrcVal xor DWORD(Ord(s[Count])))] xor ((CrcVal shr 8) and $00FFFFFF);
  Result := IntToHex(not(CrcVal), 8);
end;

调用:
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;




相关文章

相关软件




月光软件源码下载编程文档电脑教程网站优化网址导航网络文学游戏天地生活休闲写作范文安妮宝贝站内搜索
电脑技术编程开发网络专区谈天说地情感世界游戏元素分类游戏热门游戏体育运动手机专区业余爱好影视沙龙
音乐天地数码广场教育园地科学大观古今纵横谈股论金人文艺术医学保健动漫图酷二手专区地方风情各行各业

月光软件站·版权所有