مشكل در Encrypt روي 2 سيستم عامل

[sm]

سلام
من از يه الگوريتم براي كد كردن پسورد كاربران و ذخيره در بانك استفاده مي كنم


Public Function Encrypt(ByVal sPlainText As String) As String
Dim encoding As New UTF8Encoding
Dim bytes As Byte() = encoding.GetBytes(sPlainText)
Dim transform As ICryptoTransform = New TripleDESCryptoServiceProvider().CreateEncryptor(M e.key, Me.iv)
Dim stream2 As New MemoryStream
Dim stream As New CryptoStream(stream2, transform, CryptoStreamMode.Write)
stream.Write(bytes, 0, bytes.Length)
stream.FlushFinalBlock
stream2.Position = 0
Dim buffer As Byte() = New Byte((CInt((stream2.Length - 1)) + 1) - 1) {}
stream2.Read(buffer, 0, CInt(stream2.Length))
stream.Close
Return encoding.GetString(buffer)
End Function


وقتي برنامه رو روي سيستمي كه برنامه رو نوشتم (XP) اجرا مي كنم هيچ مشكلي نيست و كار مي كنه
اما همين كه برنامه رو ميزارم روي سرور (2003) و از راه دور وصل مي شم خطا مي گيره و ميگه كه كلمه عبور صحيح نيست !!!
در هر دو حالت هم از بانكي كه روي سرور 2003 هست استفاده مي كنم.
گيج گيج شدم

ممنون ميشم دوستان راهنمايي كنن
موفق باشيد

[sm]

اين دو موردش رو هم يادم رفت :


Private iv As Byte()
Private key As Byte()

Public Sub New()
Me.key = New Byte() { 12, &H4E, &H13, &H2C, &H20, &H25, &H18, &H16, &H51, &H40, 9, 13, &H47, &H38, &H42, &H5F, &H45, &H12, 20, &H2B, &H4F, &H10, &H63, 11 }
Me.iv = New Byte() { 110, &H65, 12, &HBB, 14, &H58, &H42, 220 }
End Sub