HanDs
管理员

[Delphi文章] Delphi中编写数字签名添加工具 



unit uMain;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
type
  TForm1 = class(TForm)
    Button1: TButton;
    SelFile: TOpenDialog;
    EFile1: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    EFile2: TEdit;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    CBbakFile: TCheckBox;
    Label3: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
procedure ShowMessBox(pvCaptiong, pvText: string);
begin
  MessageBox(Form1.Handle, PAnsiChar(pvText), PAnsiChar(pvCaptiong), 0);
end;
function ReadHexDZ(fvFileName:string; fvHexDZ:Integer):Integer; //读取指定偏移地址十六进制数据
var
  //vBuffer : array of byte;   //没指定长度的话调用函数回出错
  vBuffer : array [0..3] of byte;   //指定长度
  vInt    : integer;
  vFS     : TFileStream;
  vStr    : string;
begin
  Result := -1 ;
  vStr:= '';
  try
    vFS:= TFileStream.Create(fvFileName, fmOpenRead);      //以读取方式打开
    vFS.Position:= fvHexDZ;                     //设置开始位置
    vFS.ReadBuffer(vBuffer, SizeOf(vBuffer));   //读取数据到缓冲区
    for vInt:=0 to 3 do
      vStr:=IntToHex(vBuffer[vInt], 2) + vStr; //得到16进制
    Result:= StrToInt('$'+vStr)  ;
  except
    Result := -1
  END;
  vFS.Free;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
  Self.Close;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  SelFile.Title := '请选择含有数字签名的文件';
  if not SelFile.Execute then Exit;
    EFile1.Text := Selfile.FileName;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
  SelFile.Title := '请选择要添加数字签名的文件';
  if not SelFile.Execute then Exit;
    EFile2.Text := Selfile.FileName;
end;
procedure TForm1.Button4Click(Sender: TObject);
var
  vFile1, vFile2: string;
  vBuf1,vBuf2: array [0..3] of Byte;
  vFS: TFileStream;
  vBufAttr: array [0..100000] of PAnsiChar ;
  vFile2SZQMDZ,
  vFile1SZQMDZ,     //指定数字签名的地址
  vFile1SZQMSizeDZ,    //指定数字签名大小
  vSZQMDZ, //数字签名地址
  vBufSize:integer;//数字签名大小
  vStr, vNewStr, vNewStr2:string;
  vInt: Integer;
begin
  vFile1:= Trim(EFile1.Text);
  vFile2 := Trim(EFile2.Text);
  if not FileExists(vFile1) or not FileExists(vFile2) then
  begin
    ShowMessBox('消息', '找不到文件!');
    Exit;
  end;
  if CBbakFile.Checked then
    CopyFile(PAnsiChar(vFile2), PAnsiChar(ExtractFileName(vFile2)+'.bak'), False);
  vFile1SZQMDZ:= ReadHexDZ(vFile1, $3C) + $98 ; //数字签名地址
  vFile1SZQMSizeDZ :=  vFile1SZQMDZ +$4; //数字签名大小地址
  vSZQMDZ:= ReadHexDZ(vFile1, vFile1SZQMDZ);  //数字签名开始位置
  vBufSize := ReadHexDZ(vFile1, vFile1SZQMSizeDZ)  ;
  //ShowMessBox(IntToStr(vFile1SZQMSizeDZ),  IntToStr(vBufSize));
//  exit;
  try
    vFS := TFileStream.Create(vFile1, fmOpenRead);
    try
      vFS.Position:= vFile1SZQMDZ;
      vFS.ReadBuffer(vBuf1, 4);  //得到记录数字签名所在地的缓冲区
      vFS.Position:= vFile1SZQMSizeDZ;
      vFS.ReadBuffer(vBuf2, 4);  //得到记录数字签名大小的缓冲区
      vFS.Position:= vSZQMDZ;
      vFS.ReadBuffer(vBufAttr, vBufSize);  //读取数字签名数据到vbufattr
    finally
      vFS.Free;
    end;
    vFile2SZQMDZ := ReadHexDZ(vFile2, $3C) + $98;
    vFS := TFileStream.Create(vFile2, fmOpenReadWrite);
    try
      vFS.Position:= vFile2SZQMDZ;
      vStr:= IntToHex(vFS.Size, 8);
      vNewStr:=  Copy(vStr, 7, 2) ;
      vNewStr:= vNewStr + Copy(vStr, 5, 2) ;
      vNewStr:= vNewStr + Copy(vStr, 3, 2) ;
      vNewStr:= vNewStr + Copy(vStr, 1, 2) ;
      vNewStr2:= '';
      for   vInt:=1   to   (length(vNewStr)   div   2)   do
        vNewStr2:=vNewStr2+char(strtoint('$'+copy(vNewStr,(vInt-1)*2+1,2)));
      vFS.WriteBuffer(Pointer(vNewStr2)^, 4); //写入数据指定数字签名所在地
      vFS.Position := vFile2SZQMDZ + $4;
      vFS.WriteBuffer(vbuf2, SizeOf(vBuf2)); //写入数据指定数字签名大小
      vFS.Position:= vFS.Size;
      vFS.WriteBuffer(vBufAttr, vBufSize);
    finally
      vFS.Free;
    end;
    ShowMessBox('消息','添加数字签名成功');
  except
    ShowMessBox('坏消息','添加数字签名出错');
  end;
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action:= caFree;
end;
end.


学习中请遵守法律法规,本网站内容均来自于互联网,本网站不负担法律责任
Delphi 中编写数字签名添加工具
#1楼
发帖时间:2016-7-9   |   查看数:0   |   回复数:0
游客组
快速回复