[ask]Error Decryption Data VB.net 2005

[Badguy13]

Misi gan,

ane minta tolong nih gan,

ane kan buat program Encryption/Decryption pake vb.net 2005


Code:

Public Class class_ubah
Private Shared encrypted, decrypted As String
Private Shared encoder As New ASCIIEncoding
Private Shared rsa As New RSACryptoServiceProvider

Public Shared Function enkripsi_rsa(ByVal nama As String)
Dim bytes, toencrypt As Byte()
bytes = encoder.GetBytes(nama)
toencrypt = rsa.Encrypt(bytes, True) 'encrypt string
encrypted = Convert.ToBase64String(toencrypt)
Return encrypted
End Function

Public Shared Function dekripsi_rsa(ByVal nama As String)
Dim todecrypt, bytes As Byte()
bytes = Convert.FromBase64String(nama)
todecrypt = rsa.Decrypt(bytes, True)
decrypted = encoder.GetString(todecrypt)
Return decrypted
End Function
End Class

nah hasil enkripsiannya kan ane simpan didatabase,

menggunakan varchar(172) datatype dan panjangnya

nah pas ane panggil datanya trus ane mau dekripsi malah muncul

error


Code:

Error occurred while decoding OAEP padding.

klo pada bagian rsa.Decrypt(bytes, True) ane ganti False

errornya Bad Data



Mohon pencerahannya donk gan :kabur:

</div>