Sub PWHolen()
fName = InputBox("bitte Pfad + Filename eingeben", "File-Name der Config-Datei")
Open fName For Binary Access Read As #1
Do
    t = Input(1, #1)
    gFile = gFile + t
Loop Until EOF(1)
Close
lFile = Len(gFile)

For r = 1 To lFile
    zBytes = Mid(gFile, r, 3)
    If zBytes = "zzz" Then
        If Asc(Mid(gFile, r - 3, 1)) = 0 Then
            For n = r + 3 To lFile - 4
                If Asc(Mid(gFile, n, 1)) = 0 Then
                    endMarke = n
                    Exit For
                End If
            Next
            f = Mid(gFile, r - 2, n - r + 2)
            If (Len(f) / 4) = Int(Len(f) / 4) Then
                Ergebnis = Entschluesselung(f)
                Selection.TypeText Ergebnis & vbCrLf
            End If
        End If
    End If
Next
End Sub

Function Entschluesselung(Passwort)
Const B64 = "zyxwvutsrqponmlkjihgfedcbaZYXWVUTSRQPONMLKJIHGFEDCBA9876543210-+"
Dim z(320), y(255), a(5)
For x = 1 To Len(Passwort)
    Zeichen = Mid(Passwort, x, 1)
    z(x) = InStr(1, B64, Zeichen) - 1
    prfg = z(x)
    For q = 5 To 0 Step -1
        If prfg >= 2 ^ q Then
            binStrg = binStrg + "1"
            prfg = prfg - 2 ^ q
        Else: binStrg = binStrg + "0"
        End If
    Next
Next
For x = 1 To (Len(binStrg) / 8)
    y(x) = Mid(binStrg, 8 * x - 7, 8)
    bByte = 0
    For q = 8 To 1 Step -1
        If Mid(y(x), q, 1) = "1" Then
            bByte = bByte + 2 ^ (8 - q)
        End If
    Next
    y(x) = bByte
Next
LaengePW = y(1)
For x = LaengePW + 4 To 5 Step -1
    PW = PW + Chr((y(x) Xor 165))
Next
Entschluesselung = PW
End Function