VBA Script
12.10.2004 15:59:51
bustue
ich suche einen Insider, der mir folgenden Code umdrehen kann.
Sub ASCIICode()
Eingabe = "Wissen"
Weite = Len(Eingabe)
Ausgabe = ""
For i = 1 To Weite
Ausgabe = Ausgabe + Chr(Asc(Mid(Eingabe, i, 1)) + 4)
Next
MsgBox Eingabe & Chr(13) & Chr(13) & Ausgabe, , "Ergebnis"
End Sub
Habe das Passwort vergessen und wollte es wieder damit herstellen.
Anzeige