unit dsrnew;

interface

function ft001(): Integer; stdcall; external 'FUTONGDLL.DLL';
//输出函数Ini:
//目的：初步检查是否存在用户锁，如果有存在，提示用户插入用户锁。在程序初始化时，一定要使用这段代码


function ft002(): Integer; stdcall; external 'FUTONGDLL.DLL';
//输出函数CheckKey
//目的：用狗中特定的算法验证当前的加密狗是否为授权的正确狗
//返回结果：要进行设置的值


function ft003(a: Integer): Integer; stdcall; external 'FUTONGDLL.DLL';
//输出函数SetValue
//目的：用来对变量进行值的设置
//参数a：要进行设置的值
//返回结果：要进行设置的值
//例：对于原来如  x1 = x2; 的赋值方式，可改用 x1 = ft003(x2)的方式


function ft004(var s1, s2: PAnsiChar; len: Integer): Integer; stdcall; external 'FUTONGDLL.DLL';
//输出函数CompareString
//目的：用来对两个字符串进行比较
//参数s1：要比较的两个字符串之一
//参数s2：要比较的两个字符串之一
//参数len：要比较的长度
//返回结果：如果为0，两个字符串相等，如果为正数，s1>s2,如果为负数,s1<s2


function ft005(var s1, s2: PAnsiChar; len: Integer): Integer; stdcall; external 'FUTONGDLL.DLL';
//输出函数CompareStringNoCase
//目的：用来对两个字符串进行比较(忽略大小写)
//参数s1：要比较的两个字符串之一
//参数s2：要比较的两个字符串之一
//参数len：要比较的长度
//返回结果：如果为0，两个字符串相等，如果为正数，s1>s2,如果为负数,s1<s2


function ft006(var s1, s2: PAnsiChar): Integer; stdcall; external 'FUTONGDLL.DLL';
//输出函数Strcat
//目的：用来对两个字符串进行连接
//参数s1：要连接的两个字符串之一
//参数s2：要连接的两个字符串之一
//返回结果：返回目的字符串的长度， s1 为连接后的字符串
//相当于 s1 = s1 + s2,  s2加在s1的后面， 返回。


function ft007(sd, s: PAnsiChar): Integer; stdcall; external 'FUTONGDLL.DLL';
//输出函数Strcpy
//目的：对字符串进行复制
//参数sd：目的字符串
//参数s:源字符串
//返回结果：返回目的字符串的长度
//相当于 sd = s


function ft008(p1, p2: Integer; exp: Char): Integer; stdcall; external 'FUTONGDLL.DLL';
//输出函数:Compare
//目的：用来比较两个数的大小，相当于?a>b,a<b,a=b
//参数p1：要比较的第一个数
//参数p2：要比较的第二个数
//参数c：是大于，小于或等于，即">","<","="
//返回结果：
//如果返回0，表示表达式为假，返回1表示表达式为真



//获取设置加密狗中的参数
//对加密狗的存储区进行操作时,耗时时间较长,应注意！！！！
//加密狗中存储位置说明
//允许使用的总空间160字节，其中：64字节存放数据库连接信息，分别是：
//标识		对应参数		允许存放的最大字符串长度
//   5		IP地址			15
//	 6		用户名			15
//   7		用户口令		15
//   8		DataBase		15
//	 9		标识			可用来进行特别标识,如本加密狗的信息,本机硬件信息等
// 0-4		自定义			共80字节空间，每个数字表示1节(16字节)，递增
//			注意空间不能溢出，否则引起未知错误；
//			0-4标识使用的是连续空间，当0位置的长度超过15时，
//			将覆盖1号位置的存储区域。
//			使用 0， 可用空间 80 - 1；
//				 1，		  64 - 1；
//				 2，		  48 - 1；
//........


function ft011(outstr: PAnsiChar; Ord: Integer): Integer; stdcall; external 'FUTONGDLL.DLL';
//输出函数GetParm
//目的：获取加密狗指定位置的字符串
//参数outstr：目的字符串
//参数Ord:标识加密狗特定地点的标志值（0-9）
//返回结果：返回目的字符串的长度


function ft012(instr: PAnsiChar; Ord: Integer): Integer; stdcall; external 'FUTONGDLL.DLL';
//输出函数SetParm
//目的：在加密狗的指定位置存放字符串
//参数instr：需存放的字符串
//参数Ord:标识加密狗特定地点的标志值（0-9）
//返回结果：返回写入字符串的长度



//加解密函数

function ft021(inStr, outStr: PAnsiChar): Integer; stdcall; external 'FUTONGDLL.DLL';
//说明：本函数单向加密字符串instr，不能逆向解密！
//目的：获取输入字符串instr的单向加密字符串outstr
//参数instr：需加密的字符串
//参数outStr:单向加密后的密文
//返回结果：返回密文的长度


function ft022(source, dest, key: PAnsiChar; flg: Integer): Integer; stdcall; external 'FUTONGDLL.DLL';
function ft023(source, dest, key: PAnsiChar; flg: Integer): Integer; stdcall; external 'FUTONGDLL.DLL';
//说明：均为字符串加解密函数，可加解密
//目的：用指定的Key，对输入字符串source进行置换，dest为置换后的字符串
//参数source：需置换的字符串源文
//参数dest:置换后后的字符串密文
//参数key：置换采用的key,字符串
//参数flg: 为1时，进行加密，为0时进行解密
//返回结果：返回置换后字符串的长度

function PBDecode(Strin, StrOut: PAnsiChar; nInLen, nOutLen: Integer): Integer; stdcall; external 'FUTONG.DLL';
//为解密函数入口参数为Strin,需解密的字符串
//                    StrOut,解密后的字符串（要求预先分配空间）
//		      nInLen,为Strin的长度
//		      nOutLen,为解密后的长度

function PBEncode(Strin, StrOut: PAnsiChar; nInLen, nOutLen: Integer): Integer; stdcall; external 'FUTONG.DLL';
//跟上面的函数对应，实现加密功能
{
//function ulong  SQlfunc(ref string OutStr,ref string InStr,UINT len,UINT ID) LIBRARY "Futong.dll"
//对应数据库扩展存储过程（实现加密功能）对应的解密函数
//    OutStr要求预先分配空间
//     len  为解密后内容长度
//      ID  算法因子(和存储过程对应)

function checkfunc(handle: Integer; DogFlag: String): Integer; stdcall; external 'FUTONG.DLL';
//检查硬件狗函数
// handle为主窗口句柄
// DogFlag为从数据库中查询到的硬件狗信息
// DLL自动检查硬件狗和DogFlag的信息是否相符，不符时将在3分钟左右自动重启计算机

function GetParm(flag: Integer; out len: Integer; outHex: PAnsiChar): Integer; stdcall; external 'FUTONG.DLL';
//硬件狗中获取特定信息，如IP地址，数据库名称，用户名、口令等
//自定义参数flag取值范围为0--4，存储空间一共为20个字节，为连续的地址空间
//也即：参数0，最大可用长度为20，这时其他参数，将覆盖这个区域
//	参数4，最大可用长度为4
//DogFlag为字符串信息

function SetParm(flag, len: Integer; inHex: PAnsiChar): Integer; stdcall; external 'FUTONG.DLL';
//flag=5IP,=6User,=7Pass,=8DB
//硬件狗中设置参数，传入IP时，须设置为 “C8A00164”等形式传入（192.168.1.100）
//自定义参数用法同上

function InfoFunc(order: Integer; info: PAnsiChar): Integer; stdcall; external 'FUTONG.DLL';
//读取本机硬件信息，返回值为机器网卡个数
//考虑到某些可移动的网卡，要查询固定的网卡信息
//软件安装时要求移除可移动网卡
//order为第几块网卡，从0开始

function GetHostIpAddr(DogParm, HostName, IPAddr: PAnsiChar): Integer; stdcall; external 'FUTONG.DLL';
//获取硬件狗标识,本机IP地址（仅参考，因为机器有多个IP地址，获取的只是其中之一）
//以及机器名称
}
implementation

end.