Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Passwort speichern
Autor: stefan220273
Datum: 30.01.03 20:01
Hallo, habe mal irgendwann den code aus dem Netz geladen.War glaube ich von vbarchiv. Damit kann man einen String verschlüsseln. Habe leider kein beispiel.ihr müsst ein bißchen probieren.   Public Function VerEntschlüsseln(ByVal SrcString As String, _ ByVal Pass As String) As String On Error Resume Next Dim TmpInt As Integer, i, J Dim TmpArray() As Integer ReDim TmpArray(1 To Len(Pass)) 'Ascii Codes des Passwortes in ein Array Speichern For i = 1 To Len(Pass) TmpArray(i) = Asc(Mid$(Pass, i, 1)) Next i 'Verschlüsselungs-Prozedur 'Jeden Buchstaben einzeln verschlüsseln For i = 1 To Len(SrcString) 'Für jeden Passwortbuchstaben einmal verschlüsseln For J = 1 To Len(Pass) 'Buchstaben in Ascii-Wert umwandeln 'und mit Xor binär umwandeln TmpInt = Asc(Mid$(SrcString, i, 1)) Xor TmpArray(J) 'zur Sicherheit nocheimal binär umwandeln (Xor) TmpInt = TmpInt Xor J Next J 'Das Null-Zeichen kann in einer TextBox 'nicht angezeigt werden If TmpInt > 0 Then 'Binär-Wert wieder in Ascii-Zeichen umwandeln VerEntschlüsseln = VerEntschlüsseln & Chr$(TmpInt) Else 'sonst Null-Zeichen-Konstante einfügen VerEntschlüsseln = VerEntschlüsseln & "%$0$%" End If Next i End Function   Gruss Stefan Egal wie oft etwas gelöscht wird, das Internet vergisst nie und Menschen lassen sich nicht dauerhaft täuschen!

Passwort speichern	105	Soulfly	30.01.03 18:57
Re: Passwort speichern	775	xmex	30.01.03 19:49
Re: Passwort speichern	754	E7	30.01.03 19:59
Re: Passwort speichern	776	stefan220273	30.01.03 20:01
Re: Passwort speichern	710	E7	30.01.03 20:18
Ach, hier ist der link!!!	668	stefan220273	30.01.03 20:03
Jip danke	63	Soulfly	30.01.03 20:20
Re: Passwort speichern	732	Joerg	30.01.03 22:12

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