VB.NET – Decifrare le stringhe con l’algoritmo TripleDes

Ieri ho scritto un articolo su come cifrare una stringa con l’algoritmo TripleDes. Beh, oggi partiamo da quella situazione e vediamo come decifrare la stringa di ieri. Parto dal presupposto che il vostro metodi di decifratura si trovi nella stessa classe del metodo di cifratura cosi non avrete il bosogno di replicare la chiave e il vettore di inizializzazione da un’altra parte. A differenza della funzione di ieri questa funzione avrà in input il byte che dobbiamo decifrare.

Anche in questa funzione dichiarate le seguenti varibili:

Dim uEncoder As UTF8Encoding = New UTF8Encoding()
Dim tdProvider As TripleDESCryptoServiceProvider
Dim icTransform As ICryptoTransform
Dim mStream As MemoryStream
Dim cStream As CryptoStream

E poi andata a scrivere queste righe di codice per decifrare il byte in ingresso:

Try
tdProvider = New TripleDESCryptoServiceProvider()
icTransform = tdProvider.CreateDecryptor(Me.key, Me.iv)
mStream = New MemoryStream()
cStream = New CryptoStream(mStream, icTransform, CryptoStreamMode.Write)
cStream.Write(byteIngresso, 0, byteIngresso.Length)
cStream.FlushFinalBlock()
mStream.Position = 0

Generiamo l’output:

Dim myByte(mStream.Length – 1) As Byte
mStream.Read(myByte, 0, mStream.Length)
cStream.Close()
Dim resultUTF As UTF8Encoding = New UTF8Encoding()
Return resultUTF.GetString(myByte)
Catch ex As Exception
Throw ex
End Try

Tutto fatto. Spero che questa cosa sia stata utile per voi. Ciao e buona programmazione.