[الشاكي لله]

اعذرني على الرد المتأخر

انسى كل الي قلته سابقا

الدالة encrypt تستقبل (النص المراد تشفيره + المفتاح، لازم يكون طوله 32 محرف)
وستعود لك بالنص المشفر

الدالة decrypt تستقبل (النص المشفر + المفتاح نفسه المستخدم في التشفير)
وستعود لك بالنص الاصلي

PHP كود :

Public Shared Function Decrypt(toDecrypt As String, key As String) As String
    Dim keyArray As Byte() = UTF8Encoding.UTF8.GetBytes(key)
    ' AES-256 key
    Dim toEncryptArray As Byte() = Convert.FromBase64String(toDecrypt)
    Dim rDel As New RijndaelManaged()
    rDel.Key = keyArray
    rDel.Mode = CipherMode.ECB
    ' http://msdn.microsoft.com/en-us/library/system.security.cryptography.ciphermode.aspx
    Dim cTransform As ICryptoTransform = rDel.CreateDecryptor()
    Dim resultArray As Byte() = cTransform.TransformFinalBlock(toEncryptArray, 0, toEncryptArray.Length)
    Return UTF8Encoding.UTF8.GetString(resultArray)
End Function

Public Shared Function Encrypt(toEncrypt As String, key As String) As String
    Dim keyArray As Byte() = UTF8Encoding.UTF8.GetBytes(key)
    ' 256-AES key
    Dim toEncryptArray As Byte() = UTF8Encoding.UTF8.GetBytes(toEncrypt)
    Dim rDel As New RijndaelManaged()
    rDel.Key = keyArray
    rDel.Mode = CipherMode.ECB
    ' http://msdn.microsoft.com/en-us/library/system.security.cryptography.ciphermode.aspx
    rDel.Padding = PaddingMode.PKCS7
    ' better lang support
    Dim cTransform As ICryptoTransform = rDel.CreateEncryptor()
    Dim resultArray As Byte() = cTransform.TransformFinalBlock(toEncryptArray, 0, toEncryptArray.Length)
    Return Convert.ToBase64String(resultArray, 0, resultArray.Length)
End Function

Private Sub button1_Click(sender As Object, e As EventArgs)

    textBox2.Text = Encrypt(textBox1.Text, "12345678901234567890123456789012")

End Sub

Private Sub button2_Click(sender As Object, e As EventArgs)
    Try
        textBox3.Text = Decrypt(textBox2.Text, "12345678901234567890123456789012")
    Catch
        MessageBox.Show("لايمكن فك التشفيرة", "error", MessageBoxButtons.OK, MessageBoxIcon.[Error])
    End Try
End Sub