//模塊作者：ksaiy
//Email:ksaiy@sina.com
//主頁：http://www.ksaiy.com
//版權所有(C) JesionSoft 2004-2005
//更新時間：2004年12月23日

//我們開發(fā)的模塊有分兩個版本：一個免費版本，二是收費版本；在免費版本
//版本里面沒有任何的功能限制；在收費版本中也沒有功能限制，未注冊的模
//塊在返回的結果中多了一個字符串"ksaiy"，如果你注冊了模塊就沒有任何
//限制了，關于注冊費用可以查看這里：http://www.ksaiy.com/ynen/Service.asp

//免費模塊可以到我們的主頁下載：http://www.ksaiy.com/ynen/index.asp

//為了說明以下函數如果有兩個參數，一個是加密/解密字符串和KEY，那么就
//用'ksaiy'來代表加密字符串，用'1234567890'；來代表key，如果只有一個
//參數的話，就用'ksaiy'來代表要加密的字符串；
//由于這個DLL需要在其它語言中使用，所以返回值和參數都使用了PChar型，在
//DELPHI中使用的時候用Strpas來把PChar型轉換為String;

//這里以DELPHI語言為例說明，如果需要其它語言的說明請訪問我們的主頁。

//BlowFish算法加密函數
function BlowFishEn(BlStr:PChar;BLKey:PChar):Pchar;stdcall;
For Example:
//BLStr代表要加密的字符串，而BlKey是key;
var
  Str:String;
begin 
  Str:=StrPas(BlowFishEn(PChar('ksaiy'),PChar('1234567890')));
  Edit1.Text:=Str;//得到加密結果;
end;

//變形MD5算法家密函數
function CMD5En(CMStr:PChar):PChar;Stdcall;
For Example:
//BMStr為需要加密的字符串；
var
  Str:String;
begin
  Str:=StrPas(CMStr(PChar('ksaiy')));
  Edit1.text:=Str;
end;

//DES算法加密函數
function DesEn(DStr:PChar;DKey:PChar):Pchar;Stdcall;
For Example:
//DStr為需要加密的字符串，DKey為key;
var
  Str:String;
begin
  Str:=StrPas(DesEn(PChar('ksaiy'),PChar('1234567890')));
  Edit1.text:=Str;
end;

//DES算法解密函數
function DesDe(DeStr:PChar;Dekey:PChar):Pchar;stdcall;
For Example:
//DeStr為需要解密的字符串，Dekey為key;
var
  Str:String
begin
  Str:=StrPas(DesDe(PChar('ksaiy'),PChar('1234567890')));
  Edit1.text:=Str;
end;

//Base64算法加密函數
function Base64En(BsStr:PChar):Pchar;Stdcall;
For Example:
//BsStr為需要加密字符串；
var
  Str:String;
begin
  Str:=StrPas(Base64En(PChar('ksaiy')));
  Edit1.Text:=Str;
end;

//AES算法加密函數
function AESEn(AStr:PChar;AKey:PChar):Pchar;Stdcall;
For Example:
//AStr為需要加密的字符串，AKey為key;
var
  Str:String;
begin
  Str:=Strpas(AESEn(PChar('ksaiy'),PChar('1234567890')));
  Edit1.text:=Str;
end;

//MD2算法加密函數
function MD2En(MD2Str:PChar):PChar;Stdcall;
For Example:
//MD2Str為需要加密的字符串
var
  Str:String;
begin
  Str:=StrPas(MD2En(PChar('ksaiy')));
  Edit1.Text:=Str;
end;

//MD4算法加密函數
function MD4En(MD4Str:PChar):PChar;Stdcall;
For Example:
//MD4Str為需要加密的字符串
var
  Str:String;
begin
  Str:=StrPas(MD4En(PChar('ksaiy')));
  Edit1.Text:=Str;
end;

//MD5算法加密函數
function MD5En(MD5Str:PChar):PChar;Stdcall;
For Example:
//MD5Str為需要加密的字符串
var
  Str:String;
begin
  Str:=StrPas(MD5En(PChar('ksaiy')));
  Edit1.Text:=Str;
end;

//SHA1算法加密函數
function SHA1En(SHA1Str:PChar):PChar;Stdcall;
For Example:
//SHA1Str為需要加密的字符串
var
  Str:String;
begin
  Str:=StrPas(SHA1En(PChar('ksaiy')));
  Edit1.Text:=Str;
end;

//SHA256算法加密函數
function SHA256En(SHA256Str:PChar):PChar;Stdcall;
For Example:
//SHA256Str為需要加密的字符串
var
  Str:String;
begin
  Str:=StrPas(SHA256En(PChar('ksaiy')));
  Edit1.Text:=Str;
end;

//SHA384算法加密函數
function SHA384En(SHA384Str:PChar):PChar;Stdcall;
For Example:
//SHA384Str為需要加密的字符串
var
  Str:String;
begin
  Str:=StrPas(SHA384En(PChar('ksaiy')));
  Edit1.Text:=Str;
end;

//SHA512算法加密函數
function SHA512En(SHA512Str:PChar):PChar;Stdcall;
For Example:
//SHA512Str為需要加密的字符串
var
  Str:String;
begin
  Str:=StrPas(SHA512En(PChar('ksaiy')));
  Edit1.Text:=Str;
end;

//HAVAL128算法加密函數
function HAVAL128En(HAVAL128Str:PChar):PChar;Stdcall;
For Example:
//HAVAL128Str為需要加密的字符串
var
  Str:String;
begin
  Str:=StrPas(HAVAL128En(PChar('ksaiy')));
  Edit1.Text:=Str;
end;

//HAVAL160算法加密函數
function HAVAL160En(HAVAL160Str:PChar):PChar;Stdcall;
For Example:
//HAVAL160Str為需要加密的字符串
var
  Str:String;
begin
  Str:=StrPas(HAVAL160En(PChar('ksaiy')));
  Edit1.Text:=Str;
end;

//HAVAL192算法加密函數
function HAVAL192En(HAVAL192Str:PChar):PChar;Stdcall;
For Example:
//HAVAL192Str為需要加密的字符串
var
  Str:String;
begin
  Str:=StrPas(HAVAL192En(PChar('ksaiy')));
  Edit1.Text:=Str;
end;

//HAVAL224算法加密函數
function HAVAL224En(HAVAL224Str:PChar):PChar;Stdcall;
For Example:
//HAVAL224Str為需要加密的字符串
var
  Str:String;
begin
  Str:=StrPas(HAVAL224En(PChar('ksaiy')));
  Edit1.Text:=Str;
end;

//HAVAL256算法加密函數
function HAVAL256En(HAVAL256Str:PChar):PChar;Stdcall;
For Example:
//HAVAL256Str為需要加密的字符串
var
  Str:String;
begin
  Str:=StrPas(HAVAL256En(PChar('ksaiy')));
  Edit1.Text:=Str;
end;

//GOST算法加密函數
function GOSTEn(GOSTStr:PChar):PChar;Stdcall;
For Example:
//GOSTStr為需要加密的字符串
var
  Str:String;
begin
  Str:=StrPas(GOSTEn(PChar('ksaiy')));
  Edit1.Text:=Str;
end;

//TIGER128算法加密函數
function TIGER128En(TIGER128Str:PChar):PChar;Stdcall;
For Example:
//TIGER128Str為需要加密的字符串
var
  Str:String;
begin
  Str:=StrPas(TIGER128En(PChar('ksaiy')));
  Edit1.Text:=Str;
end;

//TIGER160算法加密函數
function TIGER160En(TIGER160Str:PChar):PChar;Stdcall;
For Example:
//TIGER160Str為需要加密的字符串
var
  Str:String;
begin
  Str:=StrPas(TIGER160En(PChar('ksaiy')));
  Edit1.Text:=Str;
end;

//TIGER192算法加密函數
function TIGER192En(TIGER192Str:PChar):PChar;Stdcall;
For Example:
//TIGER192Str為需要加密的字符串
var
  Str:String;
begin
  Str:=StrPas(TIGER192En(PChar('ksaiy')));
  Edit1.Text:=Str;
end;

//RIPE-MD128算法加密函數
function RIPEMD128En(RIPEMD128Str:PChar):PChar;Stdcall;
For Example:
//RIPEMD128Str為需要加密的字符串
var
  Str:String;
begin
  Str:=StrPas(RIPEMD128En(PChar('ksaiy')));
  Edit1.Text:=Str;
end;

//RIPE-MD160算法加密函數
function RIPEMD160En(RIPEMD160Str:PChar):PChar;Stdcall;
For Example:
//RIPEMD160Str為需要加密的字符串
var
  Str:String;
begin
  Str:=StrPas(RIPEMD160En(PChar('ksaiy')));
  Edit1.Text:=Str;
end;

//CRC32算法加密函數
function CRC32En(CRC32Str:PChar):PChar;Stdcall;
For Example:
//CRC32Str為需要加密的字符串
var
  Str:String;
begin
  Str:=StrPas(CRC32En(PChar('ksaiy')));
  Edit1.Text:=Str;
end;

//CRC32B算法加密函數
function CRC32BEn(CRC32BStr:PChar):PChar;Stdcall;
For Example:
//CRC32BStr為需要加密的字符串
var
  Str:String;
begin
  Str:=StrPas(CRC32BEn(PChar('ksaiy')));
  Edit1.Text:=Str;
end;

//Adler32算法加密函數
function Adler32En(Adler32Str:PChar):PChar;Stdcall;
For Example:
//Adler32Str為需要加密的字符串
var
  Str:String;
begin
  Str:=StrPas(Adler32En(PChar('ksaiy')));
  Edit1.Text:=Str;
end;

//3Des算法加密函數
Function Des3En(Des3EnStr:PChar;EnKey1:PChar;EnKey2:PChar;EnKey3:PChar):PChar;Stdcall;
For Example:
//Des3EnStr為需要加密的字符串,EnKey1,EnKey2,EnKey3為key
//注意三個key必須不能一樣；
var
  Str:String;
begin
  Str:=StrPas(Des3En(PChar('ksaiy'),PChar('123'),PChar('456'),PChar('789')));
  Edit1.Text:=Str;
end;

//3Des算法解密函數
Function Des3De(Des3DeStr:PChar;DeKey1:PChar;DeKey2:PChar;DeKey3:PChar):PChar;Stdcall;
For Example:
//Des3DeStr為需要解密的字符串,DeKey1,DeKey2,DeKey3為key
//注意三個key必須不能一樣；
var
  Str:String;
begin
  Str:=StrPas(Des3De(PChar('ksaiy'),PChar('123'),PChar('456'),PChar('789')));
  Edit1.Text:=Str;
end;

//Anti-Debug反跟蹤程序
function WinAntiDebug():Boolean;stdcall;
For Example:
begin
  if WinAntiDebug=True then
    Edit1.Text:='有調試工具！';
  //這里你可以調用關機函數；
end;

//關閉計算機函數
function CloseWindow(flags: integer): boolean;stdcall;//關閉計算機函數;
For Example:
begin
  CloseWindow(EWX_SHUTDOWN or EWX_POWEROFF);
end;

//CRC文件校驗
function CrcFileEn(CrcFileName:PChar):Pchar;stdcall;
For Example:
//CrcFileName為需要進行CRC校驗的文件名；
var
  Str:String;
begin
  Str:=StrPas(CrcFileEn('C:\1.exe'));//就是你需要校驗的文件名；
  Edit1.text:=Str;
end;

//檢測Win2000/XP下的SoftIce
Function SoftIceXP:Boolean;stdcall;
For Example:
begin
  if SoftIceXP=True then
    Edit1.Text:='有調試工具！';
  //這里你可以調用關機函數；
end;

//檢測Dump;
Function AntiDump: Boolean;stdcall;
For Example:
begin
  if AntiDump=True then
    Edit1.Text:='有調試工具！';
  //這里你可以調用關機函數；
end;

//檢測RegMON;
Function AntiRegMon: Boolean;stdcall;
For Example:
begin
  if AntiRegMon=True then
    Edit1.Text:='有調試工具！';
  //這里你可以調用關機函數；
end;

//檢測FileMON;
Function AntiFileMon: Boolean;stdcall;
For Example:
begin
  if AntiFileMon=True then
    Edit1.Text:='有調試工具！';
  //這里你可以調用關機函數；
end;

//檢測調試器;
Function WinAntiLoader():Boolean;stdcall;
For Example:
begin
  if WinAntiLoader=True then
    Edit1.Text:='有調試工具！';
  //這里你可以調用關機函數；
end;

//所有算法的輸出集合
function SHCEn(SHCEnStr,SHCKey:PChar):Pchar;stdcall;
For Example:
//SHCEnStr為需要加密的字符串，SHCKey為key;
var
  Str:String;
begin
  Str:=StrPas(SHCEn(PChar('ksaiy'),PChar('1234567890')));
  Edit1.Text:=Str;
end;

//進行明碼變換；
Function ChangeCode(ChangeStr:PChar):PChar;stdcall;
For Example:
//ChangeStr為需要變換的字符串，用于進行明碼到非明碼的變換；
var
  Str:String;
begin
  Str:=Strpas(ChangeCode(PChar('ksaiy')));
end;

//獲取硬盤系列號;
Function GetHDID():Pchar;stdcall;
For Example:
begin
  Edit1.Text:=StrPas(GetHDID);
end;

//獲取CPU系列號；
Function GetCpuID:PChar;stdcall;
For Example:
begin
  Edit1.Text:=StrPas(GetCpuID);
end;

//獲取網卡系列號;
function GetNetID:PChar;stdcall;
For Example:
begin
  Edit1.Text:=StrPas(GetNetID);
end;

//獲取BIOS系列號
function GetBiosID():PChar;Stdcall;
For Example:
begin
  Edit1.Text:=StrPas(GetBiosID);
end;