du hast totalen uatsch geschrieben.
du setzt eden try catch block falsch.
du hast eine funktion erstellt, die nichts zurück gibt.
100% hardcocet, du rufst die base64 funktion in der funktion selber auf.
Außerdem verwendest du die variable Passwort, die du in der Base64 funktion nicht deklariert hast, sondern in der NoIP fuktion, du hättest sie glubal deklarieren müssen.
DU brauchst 2 Funktionen, bzw eine FUnktion (die DecryptBase64 funktion)
und eine Sub, die das ganze in bewegung setzen soll.
Die Base64 Funktion entschlüsselt das Passwort. Sie erwartet nur einen Parameter und zwa das Verschlüsselte Passwort, sie gibt dir das entschlüsselte zurück:
Code:
Dim EntschlüsseltesPW as string = DecryptBase64(Microsoft.Win32.Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Vitalwerks\DUC\", "Password", Nothing))
Msgbox("PW:" & EntschlüsseltesPW)
Wobei die Base64 FUnktion nur so aussehen sollte:
Code:
Function DecryptBase64(ByVal Input As String) As String
On Error Resume Next
Dim InputByte() As Byte = System.Convert.FromBase64String(Input)
Return System.Text.Encoding.Default.GetString(InputByte)
End Function