fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

Zeilen aus einer TXT-Datei auslesen (mit PW-Überprüfung)

Uploader:	Sebastian
Datum/Zeit:	12.07.2008 12:59:59

'Zeilenausgabe mit unsicherer Passwortüberprüfung



DIM AS STRING Passwort, Datei, Eingabe, Zeile

DIM AS INTEGER Zeilen, i



Passwort = "Banane"  'kann man nachher mit jedem Hex-Editor im Klartext auslesen...



INPUT "Passwort: ", Eingabe



If Eingabe <> Passwort THEN

    PRINT "Zugriff verweigert."

ELSE

    PRINT "Richtiges Passwort!"

    INPUT "Datei: ", Datei

    INPUT "Wie viele Zeilen? ", Zeilen

    IF Zeilen < 1 THEN END

    OPEN Datei FOR INPUT AS #1

    IF EOF(1) THEN

        PRINT "Die Datei ist leer."

    ELSE

        FOR i = 1 TO Zeilen

            LINE INPUT #1, Zeile

            PRINT i & ". Zeile: " & Zeile

            IF EOF(1) THEN EXIT FOR

        NEXT i

    END IF

    CLOSE #1

END IF



SLEEP: END

Impressum • Nutzungsbedingungen • Datenschutz

Microsoft, Windows, Windows NT, XBOX und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.