加密狗装置的读取与应用

最新推荐文章于 2023-09-14 10:36:25 发布

autio_net

最新推荐文章于 2023-09-14 10:36:25 发布

阅读量1.1k

点赞数 1

分类专栏： Delphi 文章标签：加密 integer cmd buffer command action

本文链接：https://blog.csdn.net/autio_net/article/details/5978781

版权

这个程序示例展示了如何使用API读取加密狗的唯一ID，并结合CMD命令获取网卡MAC地址和IP地址。然后利用这些信息，通过WebBrowser组件导航到多个不同的URL，实现基于加密狗信息的网络请求。

摘要由CSDN通过智能技术生成

unit untMain;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, OleCtrls, SHDocVw, StdCtrls,DAMPlusAppApis,NB30,WinSock,
AppEvnts,ActiveX;
type
PASTAT = ^TASTAT;
TASTAT = record
    adapter : TAdapterStatus;
    name_buf : TNameBuffer;
end;
type
Tmain = class(TForm)
    WebMain: TWebBrowser;
    ApplicationEvents1: TApplicationEvents;
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure ApplicationEvents1Message(var Msg: tagMSG;
      var Handled: Boolean);
private
    { Private declarations }
    FOleInPlaceActiveObject: IOleInPlaceActiveObject;
    Function GetMac :String;
    Function GetIP :String;
public
    { Public declarations }
end;

const
MCW_EM = DWord($133f);
var
main: Tmain;

implementation

{$R *.dfm}

procedure Tmain.FormShow(Sender: TObject);
var
AppID,cmd1,cmd2,cmd3,cmd4 :Integer;
liRtn :Integer;//返回结果值
lwID :array [0..15] of Char;
lsMac :String;//网卡Mac地址
lsIP :String;//IP地址
begin

//设置加密狗参数
AppID := 4294967295;//应用程序ID号
cmd1 := 6082; //代理号，十进制数，16进制为17C2
cmd2 := 54719;//客户号，十进制数，16进制为D5BF
cmd3 := 65535;//分组号，十进制数，16进制为FFFF
cmd4 := 65535;//序列号，十进制数，16进制为FFFF
//查找狗
{liRtn := DAMPlusAppApis.DOGFIND(AppID);
if liRtn = 0 then
begin
    Application.MessageBox('请连接加密狗！','系统提示',mb_ok or mb_iconinformation);
    Application.Terminate;
    Exit;
end;
//打开狗
liRtn := DAMPlusAppApis.DOGOPEN(cmd1,cmd2,cmd3,cmd4);
if liRtn <> 0 then
begin
    Application.MessageBox('请连接加密狗！','系统提示',mb_ok or mb_iconinformation);
    Application.Terminate;