将vb.net代码转成PHP（3DES）

zhpfaff 2013-07-01 10:38:09

以前使用asp，使用vb.net做的控件加密字符，现需要改为php,使用php的3DES解密不成功，加密字符结果发现不一样，而且长度也不相同，在下面的代码加密字符>=4个字符结果为24位，而php中>=8个字符才为24位
有高手可以解决吗？

Imports System.Security.Cryptography
Public NotInheritable Class MY3Des
Private TripleDes As New TripleDESCryptoServiceProvider
'---指定密钥的哈希创建指定长度的字节数组
Private Function TruncateHash( _
ByVal key As String, _
ByVal length As Integer) _
As Byte()

Dim sha1 As New SHA1CryptoServiceProvider
Dim keyBytes() As Byte = _
System.Text.Encoding.Unicode.GetBytes(key)
Dim hash() As Byte = sha1.ComputeHash(keyBytes)

ReDim Preserve hash(length - 1)
Return hash
End Function

'添加用来初始化 3DES 加密服务提供程序的构造函数。
'key 参数控制 EncryptData 和 DecryptData 方法。
Sub New(ByVal key As String)
' Initialize the crypto provider.
TripleDes.Key = TruncateHash(key, TripleDes.KeySize \ 8)
TripleDes.IV = TruncateHash("", TripleDes.BlockSize \ 8)
End Sub

'添加加密字符串的公共方法
Public Function EncryptData( _
ByVal plaintext As String) _
As String

Dim plaintextBytes() As Byte = System.Text.Encoding.Unicode.GetBytes(plaintext)
Dim ms As New System.IO.MemoryStream

Dim encStream As New CryptoStream(ms, _
TripleDes.CreateEncryptor(), _
System.Security.Cryptography.CryptoStreamMode.Write)

encStream.Write(plaintextBytes, 0, plaintextBytes.Length)
encStream.FlushFinalBlock()
' Convert the encrypted stream to a printable string.
Return Convert.ToBase64String(ms.ToArray)
End Function
'添加解密字符串的公共方法
Public Function DecryptData( _
ByVal encryptedtext As String) _
As String

Dim encryptedBytes() As Byte = Convert.FromBase64String(encryptedtext)

Dim ms As New System.IO.MemoryStream

Dim decStream As New CryptoStream(ms, _
TripleDes.CreateDecryptor(), _
System.Security.Cryptography.CryptoStreamMode.Write)

decStream.Write(encryptedBytes, 0, encryptedBytes.Length)
decStream.FlushFinalBlock()

Return System.Text.Encoding.Unicode.GetString(ms.ToArray)
End Function
End Class

...全文