[VB.net] - Verschlüsselung nach PHP

KingOsirisOne · 10. Dezember 2021, 17:57

Sehr geehrte Schwarm-Wissende,

ich komme derzeit leider nicht weiter. Egal, wie ich im Netz suche und bei StackOverflow und ähnlichen lande, ich bekomme keine so rechte Lösung hin.

Ich hatte vor geraumer Zeit mal Code gefunden, umgesetzt, welcher mir bei kleinen Tools bei der Verschlüsselung von Daten helfen sollte.. funktioniert auch.

Ich möchte diese verschlüsselten Daten nun aber auch gern in PHP verwenden und mit diesen arbeiten. Ich bekomme sie in PHP aber nicht mal entschlüsselt.. weder per Mcrypt-Erweiterung, noch per OpenSSL.

In VB.net arbeite ich bspw. mit diesen Funktionen zum ver- und entschlüsseln:

VB.NET-Quellcode

Public Function Encrypt(ByVal input As String, ByVal pass As String) As String
Dim AES As New System.Security.Cryptography.RijndaelManaged
Dim Hash_AES As New System.Security.Cryptography.SHA256Cng
Dim encrypted As String = ""
Try
Dim hash(31) As Byte
Dim temp As Byte() = Hash_AES.ComputeHash(System.Text.ASCIIEncoding.Default.GetBytes(pass))
Array.Copy(temp, 0, hash, 0, 16)
Array.Copy(temp, 0, hash, 15, 16)
AES.Key = hash
AES.Mode = Security.Cryptography.CipherMode.ECB
Dim DESEncrypter As System.Security.Cryptography.ICryptoTransform = AES.CreateEncryptor
Dim Buffer As Byte() = System.Text.ASCIIEncoding.Default.GetBytes(input)
encrypted = Convert.ToBase64String(DESEncrypter.TransformFinalBlock(Buffer, 0, Buffer.Length))
Return encrypted
Catch ex As Exception
Return ex.Message
End Try
End Function

VB.NET-Quellcode

Public Function Decrypt(ByVal input As String, ByVal pass As String) As String
Dim AES As New System.Security.Cryptography.RijndaelManaged
Dim Hash_AES As New System.Security.Cryptography.SHA256Cng
Dim decrypted As String = ""
Try
Dim hash(31) As Byte
Dim temp As Byte() = Hash_AES.ComputeHash(System.Text.ASCIIEncoding.Default.GetBytes(pass))
Array.Copy(temp, 0, hash, 0, 16)
Array.Copy(temp, 0, hash, 15, 16)
AES.Key = hash
AES.Mode = Security.Cryptography.CipherMode.ECB
Dim DESDecrypter As System.Security.Cryptography.ICryptoTransform = AES.CreateDecryptor
Dim Buffer As Byte() = Convert.FromBase64String(input)
decrypted = System.Text.ASCIIEncoding.Default.GetString(DESDecrypter.TransformFinalBlock(Buffer, 0, Buffer.Length))
Return decrypted
Catch ex As Exception
Return ex.Message
End Try
End Function

Es ist mir aber bisher kein Weg gelungen, anhand dieser Funktionen verschlüsselte Daten in PHP wieder zu entschlüsseln. Und am Ende möchte ich natürlich auch gern per PHP Daten nach gleichem Prinzip verschlüsseln können um wiederum in meinem eigentlichen Tool damit weiter arbeiten zu können.

Ich hoffe, seien es nur Verweise hier im Forum, dass ihr mir weiterhelfen könnt. Vllt. ist ja schon mein Ansatz in VB falsch.

Danke Euch und einen schönen 3ten Advent!

Sascha

Link · 13. Dezember 2021, 02:17

Hi,

welche Verschlüsselung nutzt du denn? Du könntest zB AES-256-CBC verwenden, es müssen nur die selben encryption keys benutzt werden und dann wird bei identischer Implementierung des Algorithmus die Ent- und Verschlüsselung auch in beiden Umgebungen funktionieren.

Link :thumbup:

exc-jdbi · 13. Dezember 2021, 07:56

Guten Morgen @KingOsirisOne

Was mir gleich aufgefallen ist.

Manchmal liegt es daran, dass der BlockSize unterschiedlich ist.
Sofern es mir recht ist, ist der BlockSize auf der C#-Seite standardmässig 128 Bit eingestellt, während auf der PhP-Seite der BlockSize auf 256 Bit standardmässig eingestellt ist. Die müssen auf jedenfall übereinstimmen.

Dann verwendest du ECB als CipherMode. Ich nehme an, dass die Verschlüsselung in dem Falle nicht stark sein muss. Auch verwendest du keinen Salt, was meiner Meinung nicht gemacht werden sollte, auch wenn die Verschlüsselung schwach sein soll, weil ohne Salz, ist sie dann wirklich sehr schwach.

Dann sollte beachtet werden, dass der IV (InitialisierungsVektor im Normalfall 128 Bit) wie auch der Key (im Normalfall 256 Bit) beim Verschlüsseln wie auch beim Entschlüsseln gleich sein müssen. Dein IV z.B. wird nirgendswo festgehalten. Bei einer Neuinstanzierung von RijndaelManaged , werden beide Schlüssel zufällig neu generiert(!!).

Vielleicht schaust du kurz hier rein, auch wenn die Vorgehensweise ein bisschen veraltet ist. Ich glaube ich habe hier sogar auch den RijndaelManaged verwendet. Als Basis für das Kennenlernen von Verschlüsselungen sollte das aber reichen.
3-dimensionales String-Array umwandeln in "hier könnte Ihre Lösung stehen"?

EDIT: Es wäre noch gut, wenn du angeben würdest, mit welcher Vb.Net-Version du arbeitest. Ich sehe gerade, dass RijndaelManaged obsolete ist. Alternative wäre AesCng, jedoch nur mit BlockSize 128 / CBC

Freundliche Grüsse

exc-jdbi

KingOsirisOne · 14. Dezember 2021, 19:39

Ich danke Euch beiden jeweils für den Input, werde das Thema aber nun wahrscheinlich doch erst mal eher in das VBNet-Forum schieben lassen müssen.

Ich habe mir die Hinweise von @exc-jdbi angeschaut und letztlich auch noch mal herumgesucht. Es erschien mir schon wichtig, dass die Verschlüsselung trotz allem sicher ist, weswegen ich auf CBC wechseln wollte. Wenn ich das mache, muss ich aber scheinbar jedes Mal erst mal alle Daten entschlüsseln um bspw. Änderungen an vorhandenen Datensätzen speichern zu wollen.

Ein Beispiel: Ich prüfe beim Start einer Anwendung, ob ein Benutzer und Benutzergruppen existieren. Wenn nicht, sollen erst mal die Benutzergruppen angelegt werden und dann ein Benutzer. In der Admingruppe. Die ID der Admingruppe kann je nach Fall variieren und somit mache ich auf der Datenbank eine kleine verschachtelte Abfrage und in dem Moment ist der Gruppenname verschlüsselt schon nicht mehr der gleiche, wie in dem Moment, wo ich den Benutzer anlege.

Der IV scheint mir hier etwas in die Quere zu kommen. Ich beschäftige mich mit der Thematik, im Rahmen meines Hobbys, erst seit Kurzem. Daher stelle ich mir im Falle Verschlüsselung wahrscheinlich gerade erst recht dumm an.

Ich schaue mal, wohin ich komme, oder ob ich es dann doch bei meiner Lösung belassen (muss), mit EBC.

Danke Euch auf jeden Fall!!

P.s.: Ach so.. ich Nutzer VB.Net mir Visual Studio 2019, aber in der Community Edition.

exc-jdbi · 15. Dezember 2021, 00:18

@KingOsirisOne

Da führt wohl kein anderer Weg mehr vorbei.

Wenn die Daten schon mit ECB verkryptet sind, dann müssen die natürlich zuerst wieder entkryptet werden, um auf die CBC-Ciphermode zu wechseln.

C# ist natürlich identisch vergleichbar mit Vb.net. Sind beide DotNet. Was die Verschlüsselungen jedoch in den höheren Versionen angeht, weiss ich jetzt nicht, wie es in Vb.Net ist. RijndaelManaged gibt es aber sicher auch als Vb.Net in VS2019.

Das Problem bei deinem Code ist, dass du nur den Key bewusst zuweist. Deine IV muss aber auch wieder bei der Entschlüsselung der gleiche sein, sonst wirst du die Daten nie wieder entschlüsseln können (BackUp der unverkrypteten Daten hoffentlich gemacht), weil sobald RijndaelManaged wieder Neuinstanziert wird, werden Key wie auch IV neu generiert. D.H. Bei deinem Code wäre nur der Key wieder der gleiche, weil er zugewiesen wird. Der IV hingegen ist nicht mehr der gleiche, und irgendeine Zuweisung von der ursprünglichen IV findet man in deinem Code nicht.
Mit obigen Code frage ich mich also, wie du deine Daten richtig entschlüsseln kannst.

Hier noch ein Link
itsecblog.de/haeufige-schwachs…schluesselung-durch-apps/

Freundliche Grüsse

exc-jdbi

KingOsirisOne · 15. Dezember 2021, 20:58

Hey @exc-jdbi,

danke dir für deine Antwort. Tatsächlich muss ich sagen, dass ich den verwendeten Code mal im Netz fand und er arbeitet rein mit meinem Key und zerlegt den für sich. Greift daher auf keinen IV zurück. Aber der Code scheint eben etwas zwar nützliches, aber für bzw. in anderen Umgebungen schwer nachstellbares abzuarbeiten und auszugeben. Aber der Code funktioniert. Er ver- und entschlüsselt zu beliebiger Zeit die Daten.

Dein Ansatz, das Ganze sauberer zu gestalten und nach gängigen Wegen vorzugehen ist schon vollkommen richtig. Derzeit teste ich das Ganze auch nur in einer "Testanwendung", weshalb es noch nicht so schlimm ist, dass ich zuvor per EBC gearbeitet habe. Bei der CBC-Variante ärgert mich ein wenig, dass in den Strings der IV-Teil letztlich immer zu erkennen ist. Das is bei obigen Code nicht der Fall, gibt ja keinen IV. Mir macht das dann Sorge, dass es doch einfacher ist für Fremde die Daten zu entschlüsseln. Aber ich bin auch noch nicht so sehr in der Materie an sich drin.

Deinen Beitrag von ITSec werde ich mir auch mal zu Gemüte führen. Danke dafür.

Im Netz war ich noch auf folgenden Code gestoßen:

VB.NET-Quellcode

Private Function AESEncryptStringToBase64(strPlainText As String, strKey As String) As String
Dim Algo As RijndaelManaged = RijndaelManaged.Create()
With Algo
.BlockSize = 128
.FeedbackSize = 128
.KeySize = 256
.Mode = CipherMode.CBC
.IV = Guid.NewGuid().ToByteArray()
.Key = Encoding.ASCII.GetBytes(strKey)
End With
Using Encryptor As ICryptoTransform = Algo.CreateEncryptor()
Using MemStream As New MemoryStream
Using CryptStream As New CryptoStream(MemStream, Encryptor, CryptoStreamMode.Write)
Using Writer As New StreamWriter(CryptStream)
Writer.Write(strPlainText)
End Using
AESEncryptStringToBase64 = Convert.ToBase64String(Algo.IV.Concat(MemStream.ToArray()).ToArray())
End Using
End Using
End Using
End Function
Private Function AESDecryptBase64ToString(strCipherText As String, strKey As String) As String
Dim arrSaltAndCipherText As Byte() = Convert.FromBase64String(strCipherText)
Dim Algo As RijndaelManaged = RijndaelManaged.Create()
With Algo
.BlockSize = 128
.FeedbackSize = 128
.KeySize = 256
.Mode = CipherMode.CBC
.IV = arrSaltAndCipherText.Take(16).ToArray()
.Key = Encoding.ASCII.GetBytes(strKey)
End With
Using Decryptor As ICryptoTransform = Algo.CreateDecryptor()
Using MemStream As New MemoryStream(arrSaltAndCipherText.Skip(16).ToArray())
Using CryptStream As New CryptoStream(MemStream, Decryptor, CryptoStreamMode.Read)
Using Reader As New StreamReader(CryptStream)
AESDecryptBase64ToString = Reader.ReadToEnd()
End Using
End Using
End Using
End Using
End Function

Aber auch hier.. der IV wird anhand GUID dynamisch erstellt und spätestens beim nächsten Start haut es mit dem sauberen Entschlüsseln nicht mehr hin, da ich den IV zum Zeitpunkt der Verschlüsselung ja nicht mehr kenne. Das verwirrt mich alles etwas.

Mal sehen, ob ich da noch dahinter steige...

Beste Grüße

Takafusa · 16. Dezember 2021, 10:07

KingOsirisOne schrieb:

Convert.ToBase64String(Algo.IV.Concat(MemStream.ToArray()).ToArray())

Hier wird doch der IV mit dem MemoryStream verkettet, heist, die ersten 16 Bytes in der ganzen Kette die zu einem Base64 String konvertiert werden sind der IV, der ist also da drin.

Beim decrypten .IV = arrSaltAndCipherText.Take(16).ToArray() wird der IV aus dem byte aray vom Base64 string genutzt. Die ersten 16 Bytes!

Und hier: Using MemStream As New MemoryStream(arrSaltAndCipherText.Skip(16).ToArray()) sieht man das die ersten 16 Bytes(welche der IV sind) ausgelassen werden.

Das ich den Code von SO kenne, kopier ich mal den PHP Code von dort zm vergleichen, da wird das auch so gehandhabt. Der IV ist eingebaut.$ivCiphertext = $iv . $ciphertext; und $iv = substr($ivCiphertext, 0, 16);

PHP-Quellcode

function encrypt($key, $plaintext){
$iv = random_bytes(16);
$ciphertext = openssl_encrypt($plaintext, 'aes-256-cbc', $key, OPENSSL_RAW_DATA, $iv);
$ivCiphertext = $iv . $ciphertext;
$ivCiphertextB64 = base64_encode($ivCiphertext);
return $ivCiphertextB64;
}
function decrypt($key, $ivCiphertextB64){
$ivCiphertext = base64_decode($ivCiphertextB64);
$iv = substr($ivCiphertext, 0, 16);
$ciphertext = substr($ivCiphertext, 16);
$decryptedData = openssl_decrypt($ciphertext, "aes-256-cbc", $key, OPENSSL_RAW_DATA, $iv);
return $decryptedData;
}

KingOsirisOne · 16. Dezember 2021, 10:50

Danke dir @Takafusa!

Beim zweiten Code ja, genau. Da kommt ein IV vor. Beim zuerst geposteten von mir nicht. Das passt soweit.

Der IV wird aus einer GUID immer wieder neu generiert und verkettet. Der dynamische IV ist auch super und sicherer, aber bspw. habe ich durch diese Dynamik das Problem, dass ich bspw. alle Datensätze einer Tabelle durchgehen und zumindest bestimmte Felder entschlüsseln muss, um bspw. die Daten eines bestimmten Benutzers ausgeworfen zu bekommen. Der gleiche Benutzer(name) bekommt ja jedes Mal einen anderen gecrypteten Wert..

Persönlich kann ich mir nicht vorstellen, dass der Weg so gehen soll.. jedes Mal eine ganze Tabelle zu entschlüsseln um die Zeilen dann durchzugehen, auf der Suche nach den benötigten Daten. Aber ich finde aktuell keinen anderen Weg, unter Verwendung des dynamischen IV. Oder ich sehe den Wald vor lauter Bäumen nicht.

Den PHP-Code werde ich mal ausprobieren.. notfalls erst mal mit statischen IV. Sieht auf jeden Fall plausibel aus. Danke dir für den Link.

Takafusa · 16. Dezember 2021, 11:02

KingOsirisOne schrieb:

Danke dir für den Link.

Müsstest du vermutlich kennen, denn der VB Code auf der Seite ist identisch mit dem, den du gepostet hast.(kann natürlich auch von woanders stammen)

Also wenn ich dich richtig verstehe, willst du im verschlüsselten was suchen. Da du das als base64string speicherst, musst du den so oder so jedesmal zum string konvertieren. Ob der IV drin ist oder nicht. Oder verstehe ich dich falsch?

KingOsirisOne · 16. Dezember 2021, 11:22

Ich musste den Link jetzt selbst noch mal suchen.

Den Code hatte ich letztlich von hier: vbdotnetforums.com/threads/aes-encryption-of-a-string.65799/

Mit den von mir zuerst geposteten VB-Code, ohne IV, hatte es ja ausgereicht, wenn ich bspw. den Benutzer verschlüsselt habe und mit diesen String dann die Abfrage auf der Tabelle aufgebaut habe. Der Benutzer ist ja dann immer gleich verschlüsselt, wenn es ohne den dynamischen IV und per ECB ist.. dadurch habe ich mir erst alle Daten zum Benutzer geholt und im Anschluss beim befüllen der Felder etc. in der Anwendung die Daten entschlüsselt.

Nun, mit dynamischen IV und per CBC ist der gleiche Plain-String verschlüsselt jedes Mal ein anderer. Soll so sein, habe ich verstanden. Ich finde es dann aber schwierig und irgendwie auch nicht leistungsschonend, wenn ich nun jedes Mal eine ganze Tabelle entschlüsseln muss, um dann die gesuchten Daten zu bekommen. Anders wird es aber halt nicht gehen.

Also erst SELECT auf die gesamte Tabelle, per Schleife entschlüsseln und bei passenden, gesuchten Werten, die Daten in der Anwendung darstellen.

Ist wahrscheinlich einfach nur die Bequemlichkeit die Abfragen anzupassen, wegen der ich mich nun so schwer tue und diesen Weg noch nicht so akzeptieren kann.

exc-jdbi · 16. Dezember 2021, 11:43

Hi @KingOsirisOne

Kannst natürlich auch mit dem TransformFinalBlock weiterhin arbeiten

Schau es dir einfach mal an. Bin leider ab heute Nachtmittag bis Ende Jahr nicht mehr hier. Daher stell ich den Code gleich zur Verfügung.

Gruss exc-jdbi

EDIT:Danke euch und dir auch einen guten Rutsch.

Spoiler anzeigen

VB.NET-Quellcode

Option Strict On
Option Explicit On
Imports System.IO
Imports System.Text
Imports System.Security.Cryptography
'In Net Core funkst nur BlockSize 128 Bit.
'Im FrameWork 4.7.1 kann der BlockSize auf 256 Bit gesetzt werden
Public Module TestRijndaelManaged
Private CryptData As CryptoInfo
Public Sub Main()
Dim pw = "password"
Dim plain = "my plaintext "
plain = MultPlain(plain, 10000) '10000
'Ohne Authentifizierung und ohne Signierung
Dim ciphertfb = EncryptionTfb(plain, pw)
Dim deciphertfb = DecryptionTfb(ciphertfb, pw)
Debug.Assert(plain.SequenceEqual(deciphertfb))
'Über die StreamVariante
Dim decipherstream = DecryptionStream(ciphertfb, pw)
Debug.Assert(plain.Length = decipherstream.Length)
Debug.Assert(plain.SequenceEqual(decipherstream))
End Sub
Private Function CryptoData() As CryptoInfo
'Habe das jetzt extra separiert um zu zeigen was ich damit meine.
'Für die Sicherhheit wie auch die korrekte Nutzung
'dieser Daten ist der Entwickler verantwortlich.
'Da sie nicht im CipherCode integriert sind, müssen sie selber
'vom Entwickler irgendwie sicher abgespeichert werden.
Dim salt = RngBytes(16) 'better 32
Dim iteration = Rand.Next(5000, 15000)
Dim hashes = {HashAlgorithmName.SHA256, HashAlgorithmName.SHA384, HashAlgorithmName.SHA512}
Dim hashalgo = hashes(Rand.Next(hashes.Length))
'Dim iv wird später hinzugefügt
Return New CryptoInfo() With
{
.Salt = salt,
.Iteration = iteration,
.HashAlgoName = hashalgo
}
End Function
Private Function EncryptionTfb(plaintext As String, password As String) As String
Dim pw = Encoding.UTF8.GetBytes(password)
Dim plain = Encoding.UTF8.GetBytes(plaintext)
CryptData = CryptoData()
Dim cipherbytes = EncryptionTfb(plain, pw, CryptData)
Return Convert.ToBase64String(cipherbytes)
End Function
Private Function DecryptionTfb(ciphertext As String, password As String) As String
Dim pw = Encoding.UTF8.GetBytes(password)
Dim cipher = Convert.FromBase64String(ciphertext)
'CryptData >>> muss schon vorhanden sein
Dim decipherbytes = DecryptionTfb(cipher, pw, CryptData)
Return Encoding.UTF8.GetString(decipherbytes)
End Function
Private Function DecryptionStream(ciphertext As String, password As String) As String
Dim pw = Encoding.UTF8.GetBytes(password)
Dim cipher = Convert.FromBase64String(ciphertext)
'CryptData >>> muss schon vorhanden sein
Dim decipherbytes = DecryptionStream(cipher, pw, CryptData)
Return Encoding.UTF8.GetString(decipherbytes)
End Function
Private Function EncryptionTfb(plaintext() As Byte, password() As Byte, cryptodata As CryptoInfo) As Byte()
Dim errormsg = String.Empty
Using aes As New RijndaelManaged With
{
.BlockSize = 256,
.FeedbackSize = 256,
.Mode = CipherMode.CBC,
.Padding = PaddingMode.PKCS7
}
aes.GenerateIV()
cryptodata.IV = aes.IV.ToArray 'kopie
'in VS2019 sollte schon die neuere Version drin sein
'd.h. ein HashAlgorithmName kann noch hinzugefügt werden.
aes.Key = ToRfc2898(password, cryptodata.Salt, cryptodata.Iteration, aes.KeySize \ 8, cryptodata.HashAlgoName)
Try
Dim readsize = 0, cnt = -1
Dim result() = New Byte() {}
Dim size = Convert.ToInt32(2 ^ 16)
Dim buffer = New Byte(size - 1) {}
Using ce As ICryptoTransform = aes.CreateEncryptor
Do
cnt += 1
Dim tmp = plaintext.Skip(cnt * readsize).Take(buffer.Length).ToArray
readsize = tmp.Length
Array.Copy(tmp, buffer, readsize)
Dim enc = ce.TransformFinalBlock(buffer, 0, readsize)
result = result.Concat(enc).ToArray()
Loop While readsize = buffer.Length
Return result
End Using
Catch ex As Exception
errormsg = ex.Message
Console.WriteLine(ex.Message)
End Try
End Using
Throw New InvalidOperationException(errormsg)
End Function
Private Function DecryptionStream(ciphertext() As Byte, password() As Byte, cryptodata As CryptoInfo) As Byte()
Dim errormsg = String.Empty
Using aes As New RijndaelManaged With
{
.BlockSize = 256,
.FeedbackSize = 256,
.Mode = CipherMode.CBC,
.Padding = PaddingMode.PKCS7
}
aes.IV = cryptodata.IV
aes.Key = ToRfc2898(password, cryptodata.Salt, cryptodata.Iteration, aes.KeySize \ 8, cryptodata.HashAlgoName)
Try
Dim result() As Byte
Dim readsize = 0, cnt = -1
Dim cs As CryptoStream
Dim size = Convert.ToInt32(2 ^ 16)
Dim buffer = New Byte(size - 1) {}
Dim cd = aes.CreateDecryptor(aes.Key, aes.IV)
Using msi As New MemoryStream(ciphertext)
Using mso As New MemoryStream()
Do
'Den grundlegenden Stream (msi) nicht schliessen, auch wenn
'der CryptoStream (cs) komplett geschlossen wird. >> True
'In VS2019 sollte das jedoch möglich sein
'Using cs As New CryptoStream(msi, cd, CryptoStreamMode.Read, True)
' readsize = cs.Read(buffer, 0, buffer.Length)
' mso.Write(buffer, 0, readsize)
'End Using
'Im FrameWork 4.7.1 ist es nicht möglich den grundlegeneden Stream
'über New CryptoStream(...,True) offen zu halten, daher ein kleiner Kompromiss
cs = New CryptoStream(msi, cd, CryptoStreamMode.Read)
readsize = cs.Read(buffer, 0, buffer.Length)
mso.Write(buffer, 0, readsize)
cs.Flush()
If Not cs.HasFlushedFinalBlock Then
cs.FlushFinalBlock()
End If
Loop While readsize = buffer.Length
result = mso.ToArray
End Using
End Using
Return result
Catch ex As Exception
errormsg = ex.Message
Console.WriteLine(ex.Message)
End Try
End Using
Throw New InvalidOperationException(errormsg)
End Function
Private Function DecryptionTfb(ciphertext() As Byte, password() As Byte, cryptodata As CryptoInfo) As Byte()
Dim errormsg = String.Empty
Using aes As New RijndaelManaged With
{
.BlockSize = 256,
.FeedbackSize = 256,
.Mode = CipherMode.CBC,
.Padding = PaddingMode.PKCS7
}
aes.IV = cryptodata.IV
aes.Key = ToRfc2898(password, cryptodata.Salt, cryptodata.Iteration, aes.KeySize \ 8, cryptodata.HashAlgoName)
Try
Dim readsize = 0, cnt = -1
Dim result() = New Byte() {}
Dim size = Convert.ToInt32(2 ^ 16) + aes.BlockSize \ 8
Dim buffer = New Byte(size - 1) {}
Using cd As ICryptoTransform = aes.CreateDecryptor
Do
cnt += 1
Dim tmp = ciphertext.Skip(cnt * readsize).Take(buffer.Length).ToArray
readsize = tmp.Length
Array.Copy(tmp, buffer, readsize)
Dim dec = cd.TransformFinalBlock(buffer, 0, readsize)
result = result.Concat(dec).ToArray()
Loop While readsize = buffer.Length
Return result
End Using
Catch ex As Exception
errormsg = ex.Message
Console.WriteLine(ex.Message)
End Try
End Using
Throw New InvalidOperationException(errormsg)
End Function
Private Function ToRfc2898(password() As Byte, salt() As Byte, iteration As Int32, keysize As Int32, hashalgo As HashAlgorithmName) As Byte()
'in VS2019 sollte schon die neuere Version drin sein
'd.h. ein HashAlgorithmName kann noch hinzugefügt werden.
Using rfc = New Rfc2898DeriveBytes(password, salt, iteration) ', HashAlgorithmName.SHA512
Return rfc.GetBytes(keysize)
End Using
End Function
Private Function MultPlain(plain As String, mult As Int32) As String
Dim sb = New StringBuilder
Enumerable.Range(0, mult).ToList.ForEach(Function(x) sb.Append(plain))
Return sb.ToString
End Function
Private Function RngBytes(size As Int32) As Byte()
Dim result = New Byte(size - 1) {}
Rand.NextBytes(result)
Return result
End Function
Private Class CryptoInfo
'Für die Sicherhheit wie die korrekte Nutzung dieser Daten
'ist der Entwickler verantwortlich.
'Da sie nicht im CipherCode integriert sind, müssen sie selber
'vom Entwickler irgendwie sicher abgespeichert werden.
Public IV() As Byte
Public Salt() As Byte
Public Iteration As Int32
Public HashAlgoName As HashAlgorithmName
End Class
End Module
Friend Module RandomHolder
Friend ReadOnly Rand As New Random
End Module

KingOsirisOne · 16. Dezember 2021, 12:34

Danke dir @exc-jdbi!! Ich schaue es mir mal an und wenn wir uns dieses Jahr nicht noch mal lesen, dann ein schönes Fest und guten Rutsch!

[VB.net] - Verschlüsselung nach PHP

[VB.net] - Verschlüsselung nach PHP

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

KingOsirisOne schrieb:

PHP-Quellcode

KingOsirisOne schrieb:

VB.NET-Quellcode

Ähnliche Themen

4 Benutzer haben hier geschrieben