求一个asp加密能实现替换php加密函数

[wusongping]

下面是php的一串加密代码
<?php
$key = 'thekeystr';
$text = '66666';

$size = mcrypt_get_block_size(MCRYPT_DES, MCRYPT_MODE_ECB);

$pad = $size - (strlen($text) % $size);

$text = $text . str_repeat(chr(128), 1) . str_repeat(chr(0), $pad-1);

$iv = mcrypt_create_iv(mcrypt_get_iv_size(MCRYPT_DES, MCRYPT_MODE_ECB),MCRYPT_RAND);

$aaa = mcrypt_encrypt(MCRYPT_DES, $key, $text, MCRYPT_MODE_ECB,$key);

$ret = base64_encode($aaa);

echo $ret;
?>

我想用asp 来实现这串加密的代码，有没有大神解决一下

[wusongping]

顶一下，有大神么

[wusongping]

有没有大神啊，出来帮忙下啊

[cnbjx]

这个是 des 加密，vbs可以调用.net 组件可以解决，你自己研究一下。 或者也可以用jscript server代码实现，不过JS的效率太低。 如: createObject("System.Security.Cryptography.DESCryptoServiceProvider") 参考网址: https://hq.lojcomm.com.br/dot-NET/System.Security.Cryptography.DESCryptoServiceProvider.asp

[wusongping]

引用 4 楼 hookee 的回复:

免费的组件，支持DES，http://www.newobjects.com/product.asp?Category=77

我测试过 要给des 的 asp 组件 加密后结果不一样

[hookee]

免费的组件，支持DES，http://www.newobjects.com/product.asp?Category=77

[cnbjx]

3楼已经说了可以用.net组件。汗，都不尝试。 好人做到底，帮你写一个浓缩的函数，UTF-8 结果相同，假如是其它编码，请自行修改。

<%
Dim privateKey,Text

privateKey = "12345678"
Text = "我是中国人"
Response.Write Encrypt(Text,privateKey)
'计算结果: xnygZZ+WkN4E25y9qpdfRA== 

Function Encrypt(text,privateKey)
	Dim pad,bytePad,bytetext,byteKey,byteResult,ObjXml
	Set ObjXml = CreateObject("MSXML.DOMDocument").createElement("a")
	With CreateObject("Adodb.Stream")
		.Type = 2 : .Charset = "utf-8" : .Open
		.WriteText text 
		.Position = 0 : .Type = 1 : .Position = .Size
		pad = 8 - ( (.Size - 3) Mod 8)
		With ObjXml
			.dataType = "bin.hex"
			.text = "80" & String( (pad-1) * 2, "0")
			bytePad = .nodeTypedvalue
		End With
		.write bytePad : .Position = 3
		bytetext = .Read()
		.Position = 0 : .SetEOS   : .Type = 2
		.WriteText privateKey & String(8,Chr(0))
		.Position = 0 : .Type = 1 : .Position = 3
		byteKey = .Read(8)
		.Close
	End With
	With CreateObject("System.Security.Cryptography.DESCryptoServiceProvider")
		.Mode = 2 : .Padding = 3 : .IV = byteKey : .Key = byteKey
		byteResult = .CreateEncryptor().TransformFinalBlock((bytetext),0,lenb(bytetext))
		.Clear
	End With
	With ObjXml
		.dataType = "bin.base64"
		.nodeTypedvalue = byteResult
		Encrypt = Replace(.text,chr(10),"")
	End With
	Set ObjXml = Nothing 
End Function 
%>