28,389
社区成员
发帖
与我相关
我的任务
分享
dim obj
set obj = CreateObject("KG_Crypt_COM_API.CryptAPICtrl")
obj.KGCryptInitialize "", "", 1, 0xf0000000
obj.KGCryptImportKey PasswordInFile,Len(PasswordInFile),0
obj.KGCryptSetKeyParam 4,"2",4
RandomData = StrToHex(RandomData)
ServerEncData = obj.KGCryptEncrypt(true, RandomData, Len(RandomData), Len(RandomData) + 8, false, 0)
obj.KGCryptFinalize 0
var a=<%=b%>
//调用控件的加密方法
public static string Encrypt3DES(string strKey,string strdes) {
KG_CRYPT_COM_APILib.CryptAPICtrlClass mctrl = new KG_CRYPT_COM_APILib.CryptAPICtrlClass();
mctrl.KGCryptInitialize("", "", 1, 0xf0000000);
mctrl.KGCryptImportKey(strKey, strKey.Length, 0);
string encry3Des = (string)mctrl.KGCryptEncrypt(true, strdes, strdes.Length, strdes.Length + 8, false, 0);
mctrl.KGCryptFinalize(0);
return encry3Des;
}