Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
496to500
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
496to500
496to500
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

VBA Script

VBA Script
12.10.2004 15:59:51
bustue
Hallo,
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.

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Script
12.10.2004 16:03:15
Nepumuk
Hallo,
so:


Sub ASCIICode()
    Eingabe = "[mwwir"
    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


Gruß
Nepumuk
Anzeige
AW: VBA Script
12.10.2004 16:22:09
bustue
Hallo Nepumuk,
recht vielen Dank für die schnelle Lösung.
Gruß
bustue

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige