Supportnet / Forum / Skripte(PHP,ASP,Perl...)
verschlüsselung von passworten mit asp
Frage
Hallo!
ich wüsste gerne, wie man mit asp passworte verschlüsseln kann...
kenne mich noch nicht so gut damit aus, also hat jemand vielleicht ein tutorial?
Antwort 1 von YesAmerika
Antwort 2 von ich wieder
ja, da bin ich auf die schnelle auch nicht fündig geworden, und registrieren will ich mich da net
Antwort 3 von YesAmerika
Hi,
kosten tut das Forum nix. Und Stefan Falz, Herausgeber mehrerer Bücher über ASP, ist dort persönlich anwesend.
Dir wird eh keiner ein fertiges Skript geben. Mach Dir mal selbst Gedanken. Vielleicht als kleinen Gedankenanstoß: Wie wärs mit ner DB?
Yessi
kosten tut das Forum nix. Und Stefan Falz, Herausgeber mehrerer Bücher über ASP, ist dort persönlich anwesend.
Dir wird eh keiner ein fertiges Skript geben. Mach Dir mal selbst Gedanken. Vielleicht als kleinen Gedankenanstoß: Wie wärs mit ner DB?
Yessi
Antwort 4 von ich
ja, ein komplettes script will ich ja auch gar nicht, aber ein denkanstoss wäre prima. ich hab mich da mal bei php informiert, und da gibts ja sowas wie md5...aber da muss man bei asp noch javascript benutzen, damit kenn ich mich gar nicht aus!
oder, wie gesagt, ein link zu einem tutorial, das sich damit beschäftigt, würde mich glücklich machen:)
oder, wie gesagt, ein link zu einem tutorial, das sich damit beschäftigt, würde mich glücklich machen:)
Antwort 5 von YesAmerika
Ok, was suchst Du denn jetzt? Ne Lösung für ASP oder PHP¿¿¿
Yessi
Yessi
Antwort 6 von ich
na, das was ich geschrieben hab: asp...
Antwort 7 von YesAmerika
Antwort 8 von karlchen123
nennt mich blöd, aber ich habe als suchbegriff "passwortverschlüsselung" eingegeben, und es kam nichts bei raus...zu verschlüsselung gabs nur eine antwort, die hat mir aber nichts weitergeholfen...
Antwort 9 von YesAmerika
Antwort 10 von MixMax
es geht wohl mehr darum das er das passwort verschlüsseln will, nicht um den passwortschutz selber.
bei PHP kann man funktionen wie md5 oder crypt benutzen oder echte verschlüsselungsbefehle, bei asp kann man sich da wohl nen wolf programmieren mit objecten erstellen blah... also wenn du das wirklich willst, kannst du hier schauen
http://www.aspforum.de/topic.asp?TOPIC_ID=17417&SearchTerms=crypt
bei PHP kann man funktionen wie md5 oder crypt benutzen oder echte verschlüsselungsbefehle, bei asp kann man sich da wohl nen wolf programmieren mit objecten erstellen blah... also wenn du das wirklich willst, kannst du hier schauen
http://www.aspforum.de/topic.asp?TOPIC_ID=17417&SearchTerms=crypt
Antwort 11 von Karl a.k.a. Feuervogel
Danke MixMax, du hast mir eben die nötige antwort gegeben, die ich hören wollte:)
schau mal in deinen posteingang, vielleicht findest du ja da ne nachricht von mir...
schau mal in deinen posteingang, vielleicht findest du ja da ne nachricht von mir...
Antwort 12 von Cloud_X
Das bsp. bezieht sich doch aber auf .net oder irre ich mich da????
Hier ist ein kleine Verschlüsselung als Funktion die leicht umzusetzten ist:
<% Function EncodeKey(myStr, inKey)
If (inKey = "") Then
Response.Write("Error: 1")
Exit Function
End If
If (myStr = "") Then
Response.Write("Error: 2")
Exit Function
End If
Dim i, tmpNum, tmpChr, tmpAsc, newAsc, retStr
tmpNum = 1
retStr = ""
For i = 1 To Len(myStr)
tmpChr = Mid(myStr, i, 1)
tmpAsc = Asc(tmpChr)
newAsc = tmpAsc - Asc(Mid(inKey, tmpNum, 1))
If (newAsc <= 0) Then newAsc = 255 + newAsc
retStr = retStr & Chr(newAsc)
tmpNum = tmpNum + 1
If (tmpNum > Len(inKey)) Then tmpNum = 1
Next
EncodeKey = retStr
End Function
Function DecodeKey(myStr, inKey)
If (inKey = "") Then
Response.Write("Error: 3")
Exit Function
End If
If (myStr = "") Then
Response.Write("Error: 4")
Exit Function
End If
Dim i, tmpNum, tmpChr, tmpAsc, newAsc, retStr
tmpNum = 1
retStr = ""
For i = 1 To Len(myStr)
tmpChr = Mid(myStr, i, 1)
tmpAsc = Asc(tmpChr)
newAsc = tmpAsc + Asc(Mid(inKey, tmpNum, 1))
If (newAsc > 255) Then newAsc = newAsc - 255
retStr = retStr & Chr(newAsc)
tmpNum = tmpNum + 1
If (tmpNum > Len(inKey)) Then tmpNum = 1
Next
DecodeKey = retStr
End Function %>
Es sind dort zwei Funktionen aufgeführt. Eine zum Verschlüsseln eine zum entschlüsseln.
Zum verschlüsseln einfach die Funktion "EncodeKey" aufrufen:
Bsp.:
<% EncodeKey("Das Kennwort","persönlicher Schlüssel") %>
Der "persönliche Schlüssel" kann dabei eine beliebe Zeichenfolge sein
Zum entschlüsseln die Funktion "DecodeKey" aufrufen:
Bsp.:
<% DecodeKey("Das verschlüsselte Kennwort","persönlicher Schlüssel") %>
Wichtig ist, dass Du beim entschlüsseln den gleichen "persönlichen Schlüssel" benutzt!!!
Hier ein Bsp. zum testen/verstehen:
<%
response.Write("Das verschlüsselte Passwort: <b>" & EncodeKey("Passwort","key")) & "</b><br>" 'Hier wird das Passwort verschlüssel
response.Write("Das entschlüsselte Passwort: <b>" & DecodeKey("äûùõ","key")) & "</b>" ' Hier entschlüsselt
%>
Bei fragen dazu einfach mir mailen
Hier ist ein kleine Verschlüsselung als Funktion die leicht umzusetzten ist:
<% Function EncodeKey(myStr, inKey)
If (inKey = "") Then
Response.Write("Error: 1")
Exit Function
End If
If (myStr = "") Then
Response.Write("Error: 2")
Exit Function
End If
Dim i, tmpNum, tmpChr, tmpAsc, newAsc, retStr
tmpNum = 1
retStr = ""
For i = 1 To Len(myStr)
tmpChr = Mid(myStr, i, 1)
tmpAsc = Asc(tmpChr)
newAsc = tmpAsc - Asc(Mid(inKey, tmpNum, 1))
If (newAsc <= 0) Then newAsc = 255 + newAsc
retStr = retStr & Chr(newAsc)
tmpNum = tmpNum + 1
If (tmpNum > Len(inKey)) Then tmpNum = 1
Next
EncodeKey = retStr
End Function
Function DecodeKey(myStr, inKey)
If (inKey = "") Then
Response.Write("Error: 3")
Exit Function
End If
If (myStr = "") Then
Response.Write("Error: 4")
Exit Function
End If
Dim i, tmpNum, tmpChr, tmpAsc, newAsc, retStr
tmpNum = 1
retStr = ""
For i = 1 To Len(myStr)
tmpChr = Mid(myStr, i, 1)
tmpAsc = Asc(tmpChr)
newAsc = tmpAsc + Asc(Mid(inKey, tmpNum, 1))
If (newAsc > 255) Then newAsc = newAsc - 255
retStr = retStr & Chr(newAsc)
tmpNum = tmpNum + 1
If (tmpNum > Len(inKey)) Then tmpNum = 1
Next
DecodeKey = retStr
End Function %>
Es sind dort zwei Funktionen aufgeführt. Eine zum Verschlüsseln eine zum entschlüsseln.
Zum verschlüsseln einfach die Funktion "EncodeKey" aufrufen:
Bsp.:
<% EncodeKey("Das Kennwort","persönlicher Schlüssel") %>
Der "persönliche Schlüssel" kann dabei eine beliebe Zeichenfolge sein
Zum entschlüsseln die Funktion "DecodeKey" aufrufen:
Bsp.:
<% DecodeKey("Das verschlüsselte Kennwort","persönlicher Schlüssel") %>
Wichtig ist, dass Du beim entschlüsseln den gleichen "persönlichen Schlüssel" benutzt!!!
Hier ein Bsp. zum testen/verstehen:
<%
response.Write("Das verschlüsselte Passwort: <b>" & EncodeKey("Passwort","key")) & "</b><br>" 'Hier wird das Passwort verschlüssel
response.Write("Das entschlüsselte Passwort: <b>" & DecodeKey("äûùõ","key")) & "</b>" ' Hier entschlüsselt
%>
Bei fragen dazu einfach mir mailen