Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Textdatei Verschlüsseln
Autor: esilance
Datum: 18.03.06 13:04
Ich hab jetzt mal call Crypt("vornamen.txt") am anfang und am ende der cmbVornamen Click Prozedur gestellt. So bleibt die Datei vornamen.txt zwar immer verschlüsselt da sie ja beim click entschlüsselt, ein zufälliger name generiert und dann wieder verschlüsselt wird. Aber das Problem ist, das er aus den 4726 Vornamen jetzt immer den selben nimmt __________________________________ Private Sub cmbVornamen_Click() call Crypt("vornamen.txt") Dim Vorname(4726) As String Dim i As Integer i = 0 'Textdatei einlesen Open "vornamen.txt" For Input As 1 While Not EOF(1) i = i + 1 Line Input #1, Vorname(i) Wend Close 1 'Zufallsname erzeugen Dim X As Integer X = CInt(Rnd * 4726) 'Ausgabe lblVorname.Caption = Vorname(X) Clipboard.Clear Clipboard.SetText lblVorname.Caption call Crypt("vornamen.txt") End Sub

Textdatei Verschlüsseln	1.963	esilance	17.03.06 14:25
Re: Textdatei Verschlüsseln	1.732	AndyOG	17.03.06 14:49
Re: Textdatei Verschlüsseln	1.618	esilance	17.03.06 15:03
Re: Textdatei Verschlüsseln	1.636	AndyOG	17.03.06 16:58
Re: Textdatei Verschlüsseln	1.645	esilance	17.03.06 22:09
Re: Textdatei Verschlüsseln	1.595	esilance	18.03.06 13:04
Re: Textdatei Verschlüsseln	1.591	OldMan	18.03.06 15:16
Re: Textdatei Verschlüsseln	1.578	esilance	18.03.06 16:08
Re: Textdatei Verschlüsseln	1.604	OldMan	18.03.06 17:45
Re: Textdatei Verschlüsseln	1.622	esilance	19.03.06 12:02
Re: Textdatei Verschlüsseln	1.592	OldMan	19.03.06 12:49
Re: Textdatei Verschlüsseln	1.604	esilance	19.03.06 13:19
Re: Textdatei Verschlüsseln	1.814	OldMan	19.03.06 13:52
Re: Textdatei Verschlüsseln	1.608	OldMan	17.03.06 22:31
Re: Textdatei Verschlüsseln	1.664	esilance	18.03.06 13:05

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen