Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1204to1208
1204to1208
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Passwortgenerator

Forumthread: Passwortgenerator

Passwortgenerator
Manfred
Hallo zusammen,
ich habe viel gesucht aber nicht das richtige gefunden.
Kann mir jemand sagen inwieweit das Makro geändert werden muss daß Groß- und Kleinschreibung und alle möglichen Tastatur-Sonderzeichen berücksichtigt werden.
Sub Pw_Generator_1()
Dim i, y, PWP, PWC
Dim PW As String
Randomize
Range("A2:A51").ClearContents
For i = 1 To ActiveSheet.Range("G6") 'Anzahl der Passwörter
For y = 1 To ActiveSheet.Range("G2") 'Zeichenlänge
PWC = (90 - 48 + 1) * Rnd + 48
PWP = ChrW(PWC)
PW = PW & PWP
Cells(i + 1, 1).Value = "" & PW
Next y
PW = ""
Next i
End Sub
Mit freundlichen Grüßen
Manfred Borgschulze
Anzeige

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: hmmm ...
22.03.2011 16:43:45
Manfred
Hallo Matthias,
ich dachte ich habe allen geantwortet, so wie es aussieht leider nicht.
Sorry, das wollte ich nicht.
Mit freundlichen Grüßen
Manfred
...Gar nicht, denn ohne Nachzurechnen...
22.03.2011 16:31:52
Luc:-?
…deutet doch schon die Verwendung von ChrW auf eine Unicode-, also 2By-Verschlüsselung hin — also einschl Chinesisch und aller anderen UC-Zeichen, und das dürfte doch wohl schlicht zuviel sein, da MSO ohnehin nicht soviel verwendet.
Außerdem sehe ich einen wesentl Mangel deines PwGenerators darin, dass die PW auch noch zufällig erzeugt wdn. Damit hat niemand 'ne Chance, sich das zu merken (Chinesisch!) oder da wieder drauf zu kommen. 1-2-fix wird dann ein PW-Breaker angeworfen und schwupps ist ein mögl PW gefunden. Also alles ziemlich sinnlos, selbst für Verschlüsselungen außerhalb MSO.
Tipp: Nimm ein Merkwort, forme das per udFkt in ein PW aus Ziffern, Zeichen und GB/KB um, sieh' zwecks Kontrolle auch den umgekehrten Weg vor, und das sollte dann genügen.
Gruß Luc :-?
Anzeige
AW: Passwortgenerator
22.03.2011 19:18:07
Ing.Grohn
Hallo Manfred,
schau Dir mal die Hilfe zu RND an. Da steht z. B. 

Verwenden Sie die folgende Formel, um ganzzahlige Zufallszahlen innerhalb eines
bestimmten Bereichs zu erzeugen:
Int((Obergrenze - Untergrenze + 1) * Rnd + Untergrenze)
Obergrenze steht hier für die größte Zahl des Bereichs und Untergrenze für die
kleinste Zahl des Bereichs.
wende das doch auf dein Anliegen an!
Mit freundlichen Grüßen
Albrecht
Anzeige
AW: Passwortgenerator
24.03.2011 14:45:16
Manfred
Hallo Albrecht,
guter Tipp, es funzt.
Gruß
Manfred
habs mir angeschaut und schon mal getestet
22.03.2011 21:18:21
Matthias
Hallo Tino
Interessante Sache !
Muss nur noch ne Fehlerroutine rein.
Wenn die PW-Textbox leer bleibt, steigt VBA aus.
Aber ne gute Sache.
Danke für den Beitrag
Gruß Matthias
Naja, sicher relativ leicht zu knacken,...
23.03.2011 01:10:58
Luc:-?
…aber das sind ja die meisten, Leute,
zumal man das dank MS ja nicht mal muss → also höchstens Sichtschutz.
Hatte vor geraumer Zeit hier* schon mal ganze verschlüsselte Tabellen (Zahlen) mit Alias-Fktt und Entschlüsselungslupe eingestellt. Aber das war natürl etwas anders gelagert. Meinen deutlich komplizierteren Verschlüsselungscode für so etwas habe ich wg relativer Sinnlosigkeit vor ca 2-3 Jahren auf Eis gelegt; für so etwas wie Pass- u.Kennwort-, sowie Mail-Adress-Proforma-Verschlüsselung reicht ja auch etwas Einfacheres wie bspw das Verlinkte.
*Allerdings kommt mir das Archiv mitunter wie ein BlackHole mit nur „spärlichem Haarwuchs” vor… ;->
Gruß Luc :-?
Anzeige
AW: eine Alternative...
24.03.2011 14:46:55
Manfred
Hallo Tino,
danke, das ist supper.
Gruß
Manfred
;
Anzeige

Infobox / Tutorial

Passwortgenerator in Excel erstellen

Schritt-für-Schritt-Anleitung

Um einen Passwortgenerator in Excel zu erstellen, der Groß- und Kleinschreibung sowie Sonderzeichen berücksichtigt, kannst Du das folgende Makro verwenden. Dieser Code generiert eine Liste von Passwörtern in einem festgelegten Bereich.

Sub Pw_Generator_1()
    Dim i, y, PWP, PWC
    Dim PW As String
    Randomize
    Range("A2:A51").ClearContents
    For i = 1 To ActiveSheet.Range("G6") ' Anzahl der Passwörter
        For y = 1 To ActiveSheet.Range("G2") ' Zeichenlänge
            PWC = Int((126 - 33 + 1) * Rnd + 33) ' Bereich von ASCII 33 bis 126
            PWP = ChrW(PWC)
            PW = PW & PWP
        Next y
        Cells(i + 1, 1).Value = PW
        PW = ""
    Next i
End Sub

In diesem Beispiel wird ein Passwortgenerator in Excel verwendet, der auch Sonderzeichen berücksichtigt. Stelle sicher, dass Du die Zellen G2 (für die Zeichenlänge) und G6 (für die Anzahl der Passwörter) entsprechend gefüllt hast.

Häufige Fehler und Lösungen

  1. Fehler: Das Makro funktioniert nicht.

    • Lösung: Überprüfe, ob die Makros in Excel aktiviert sind. Gehe zu „Datei“ > „Optionen“ > „Trust Center“ und aktiviere die Makros.

  2. Fehler: Passwörter werden nicht korrekt generiert.

    • Lösung: Stelle sicher, dass die ASCII-Werte im Code (33 bis 126) korrekt sind. Du kannst diese Werte anpassen, um andere Zeichen zuzulassen.

Alternative Methoden

Eine alternative Methode zum Passwort generieren in Excel ist die Verwendung von Formeln. Du kannst eine Kombination aus CHAR() und RANDBETWEEN() verwenden:

=CHAR(RANDBETWEEN(33,126))

Diese Formel kann in einer Zelle verwendet werden, um ein zufälliges Zeichen zu generieren. Du kannst dann mehrere dieser Formeln kombinieren, um ein Passwort zu erstellen.

Praktische Beispiele

  • Beispiel 1: Generiere 10 Passwörter mit jeweils 12 Zeichen.

    • Setze in Zelle G2 den Wert 12 und in G6 den Wert 10. Führe das Makro aus, um die Passwörter in den Zellen A2 bis A11 zu sehen.

  • Beispiel 2: Nutze die Formel für ein einfaches Passwort.

    • Schreibe in Zelle A1 die Formel =CHAR(RANDBETWEEN(33,126)) und ziehe sie nach unten, um mehrere Zeichen zu generieren.

Tipps für Profis

  • Wenn Du einen Passwortgenerator in Excel verwendest, denke daran, dass die Kombination von Groß- und Kleinbuchstaben sowie Zahlen und Sonderzeichen die Sicherheit erhöht.
  • Experimentiere mit verschiedenen ASCII-Bereichen, um spezifische Zeichen einzuschließen oder auszuschließen.
  • Verwende zusätzliche Funktionen wie LEN() zur Überprüfung der Passwortlängen.

FAQ: Häufige Fragen

1. Wie kann ich die Länge der generierten Passwörter anpassen? Du kannst die Länge der Passwörter ändern, indem Du den Wert in Zelle G2 anpasst. Dieser Wert bestimmt die Anzahl der Zeichen in jedem Passwort.

2. Kann ich den Passwortgenerator auch ohne VBA verwenden? Ja, Du kannst auch Excel-Formeln verwenden, um zufällige Zeichen zu generieren, allerdings ist die Funktionalität eingeschränkt im Vergleich zu einem VBA-Makro.

3. Welche Excel-Version benötige ich? Das VBA-Makro funktioniert in Excel 2010 und höheren Versionen. Achte darauf, dass Makros in Deinen Excel-Einstellungen aktiviert sind.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige