| Die Problemzone Spinnt der Rechner mal wieder? Stellt eure Fragen hier und es wird geholfen. |
Diskussion: Forum Sicherheitsproblem im Forum Die Problemzone, in der Kategorie PC Foren; Anzeige Hallo an alle, ich habe in 2 Foren sicherheitsproblem mit ein bestimmten User, ich nutze ein Woltlab Forum 2.3.0 ...
![]() |
| | #1 (permalink) |
| Registriert seit: 11.11.03 ![]() Likes: 0 | Anzeige Hallo an alle, ich habe in 2 Foren sicherheitsproblem mit ein bestimmten User, ich nutze ein Woltlab Forum 2.3.0 und diesen "problem user" haben wir aus den Forum gebannt, jedoch registriert er sich wieder nach eine gewisse Zeit und anhang seine Posts die Art wie er sich ausdrückt können wir herausfinden das es wieder er ist, d.h. wieder kick ban. nun ein Freund von mir der Systemsupporter ist, meinte das ausser IP/Emailadresse/Nickname auch andere Daten von den PC sich protokollieren lassen, evtl. Windows version key nr. und andere daten, d.h. mittels diese erweiterte Infos kann man heruasfinden ob sich dieser User sich immer vom gleichen PC aus registriert. wir sind am verzweifeln und langsam geht uns die Geschichte auf den senkel. Ihr habt sicher eine Idee wie ich das anstellen kann oder ? welche Zusatzsoftware muss ich auf mein Server installieren oder was kann ich tun ? |
| | |
| | #2 (permalink) |
| Moderator ![]() | Wie wärs, wenn ihr die MAC-Adresse auswertet? |
| | |
| HaBOT | - Anzeige - |
| |
| | #3 (permalink) |
| Senior Member | Über ActiveX kannst du sicher so einige Dinge protokollieren, aber ActiveX würde kaum jemand von deinen Usern in kauf nehmen wollen. Zumal da dies auch eine große Sicherheitslücke ist. |
| | |
| | #4 (permalink) |
| Themenstarter Registriert seit: 11.11.03 ![]() Likes: 0 | stek, sorry da ich mich nicht früher melden konnte, das problem ist nachwie vor gravierend, aktuell haben wir neuregistrierungen gestoppt. mac adressen werden keine protokolliert und wie soll das geschehen ? muss man zusatzsoftware installieren ? woltlab hat keine erweiterte protokoll funktionen |
| | |
| | #5 (permalink) |
| Moderator ![]() | Mit der MAC-Adresse ist Quatsch...so isses halt, wenn man kurz nach ner Prüfung antwortet. Ich habe aber etwas für HTML gefunden, dass bei aktiviertem ActiveX den Nutzernamen und die Domäne ausliest - eventuell hilft Euch das weiter. Code: <script language="VBScript" type="text/vbscript">
Sub FillUser()
Set Testobjekt= CreateObject("WScript.Network")
document.getElementById("Textfeld1").value = Testobjekt.UserName
document.getElementById("Textfeld2").value = Testobjekt.UserDomain
End Sub
</script> Oder Du machst es so: Code: <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Option Explicit
Function DisplayUser
If Len(Request.ServerVariables("LOGON_USER")) > 0 Then
DisplayUser = Request.ServerVariables("LOGON_USER")
Else
DisplayUser = "Anonym"
End If
End Function
%>
<html>
<head>
<title>Unbenanntes Dokument</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<p>Der aktuelle Benutzer ist: <b><%= DisplayUser %></b></p>
<form name="form1" method="post" action="">
<input name="hiddenField" type="hidden" value="<%=DisplayUser%>">
</form>
<p><b></b></p>
</body>
</html> Die Superkeule kannst Du hiermit reißen, damit kannst Du so ziemlich alles, was möglich ist, auslesen: Code: <% Option Explicit
Function ShowHead()
ShowHead = "<html><head><title>ASP.info</title>" & _
"</head><style>.headline, .anchor, .text, H2, " & _
".anchor2 {font-family: Arial, Helvetica, " & _
"sans-serif;} .headline {color: #000000; font-size:" & _
" 20px; font-weight: 800;} .anchor, .text, " & _
".anchor2 {color: #000000; font-size: 13px; " & _
"background-color: #ccccdd;} .anchor, .anchor2 {" & _
"background-color: #d7d7dd; font-weight: 800;" & _
"} TR {background-color: #cccccc;} H2 {" & _
"text-align: center; font-size: 18px; color: #000000;" & _
"} .anchor2 {background-color: #9999dd;}</style><body>"
End Function
Function BuildTable(ByVal strName, ByRef dicValues, _
ByVal boolShowHead)
Dim strResult
Dim strKey
strResult = "<h2>" & strName & "</h2>" & _
"<table cellspacing=""1"" cellpadding=""3"" " & _
"border=""0"" width=""75%"" " & _
"align=""center"" bgcolor=""#000000"">"
If boolShowHead Then
strResult = strResult & "<tr><td class=""" & _
"anchor2"">Name</td><td class=""" & _
"anchor2"">Value</td></tr>"
End If
For Each strKey In dicValues
strResult = strResult & "<tr><td class=""" & _
"anchor"">" & strKey & "</td><td class=""" & _
"text"">" & dicValues(strKey) & "</td></tr>"
Next
strResult = strResult & "</table>"
BuildTable = strResult
End Function
Function ShowVersions()
Dim strResult
strResult = "<table cellspacing=""1"" " & _
"cellpadding=""3"" border=""0"" width=""75%"" " & _
"align=""center"" bgcolor=""#000000""><tr>" & _
"<td width=""100%"" class=""headline"" " & _
"style=""background-color: #cccccc;"">"
strResult = strResult & _
ScriptEngine & " " & _
ScriptEngineMajorVersion & "." & _
ScriptEngineMinorVersion & ", Build " & _
ScriptEngineBuildVersion
strResult = strResult & "</td></tr></table>"
ShowVersions = strResult
End Function
Function ShowGeneralInformations()
Dim dicValues
Set dicValues = CreateObject("Scripting.Dictionary")
dicValues.Add "Server", Request.ServerVariables("SERVER_SOFTWARE")
dicValues.Add "Name", Request.ServerVariables("SERVER_NAME")
dicValues.Add "Adress", Request.ServerVariables("LOCAL_ADDR")
dicValues.Add "Port", Request.ServerVariables("SERVER_PORT")
ShowGeneralInformations = BuildTable( _
"General", dicValues, False)
dicValues.RemoveAll
Set dicValues = Nothing
End Function
Function ShowApplication()
Dim dicValues
Dim strKey
Dim strResult
Set dicValues = CreateObject("Scripting.Dictionary")
For Each strKey in Application.Contents
If Not dicValues.Exists(strKey) Then
dicValues.Add strKey, ""
End If
If IsObject(Application(strKey)) Then
dicValues(strKey) = "Object: " & _
TypeName(Application(strKey))
ElseIf IsArray(Application(strKey)) Then
dicValues(strKey) = "Array: " & _
UBound(Application(strKey)) - _
LBound(Application(strKey)) & _
" elements"
Else
dicValues(strKey) = Application(strKey)
End If
Next
If dicValues.Count > 0 Then
strResult = BuildTable("Application", _
dicValues, True)
else
strResult = ""
End If
ShowApplication = strResult
dicValues.RemoveAll
Set dicValues = Nothing
End Function
Function ShowSession()
Dim dicValues
Dim strKey
Dim strResult
Set dicValues = CreateObject("Scripting.Dictionary")
dicValues.Add "SessionID", Session.SessionID
dicValues.Add "TimeOut", Session.TimeOut
dicValues.Add "Codepage", Session.Codepage
dicValues.Add "LCID", Session.LCID
For Each strKey in Session.Contents
If Not dicValues.Exists(strKey) Then
dicValues.Add strKey, ""
End If
If IsObject(Session(strKey)) Then
dicValues(strKey) = "Object: " & _
TypeName(Session(strKey))
ElseIf IsArray(Session(strKey)) Then
dicValues(strKey) = "Array: " & _
UBound(Session(strKey)) - _
LBound(Session(strKey)) & _
" elements"
Else
dicValues(strKey) = Session(strKey)
End If
Next
ShowSession = BuildTable("Session", _
dicValues, True)
dicValues.RemoveAll
Set dicValues = Nothing
End Function
Function ShowServerVariables()
Dim dicValues
Dim strKey
Dim strResult
Set dicValues = CreateObject("Scripting.Dictionary")
For Each strKey in Request.ServerVariables
If Not dicValues.Exists(strKey) Then
dicValues.Add strKey, ""
End If
dicValues(strKey) = Request.ServerVariables(strKey)
Next
ShowServervariables = BuildTable( _
"Server-Variables", dicValues, True)
dicValues.RemoveAll
Set dicValues = Nothing
End Function
Response.Write ShowHead & _
ShowVersions & _
ShowGeneralInformations & _
ShowApplication & _
ShowSession & _
ShowServerVariables %> |
| | |
![]() |
| - Anzeige - | |
| |
| Themen-Optionen | |
| Ansicht | |
| |
Ähnliche Themen | ||||
| Thema | Autor | Forum | Antworten | Letzter Beitrag |
| forum | markg | Hackerboard.de-Feedback | 2 | 27.03.05 16:18 |
| Sicherheitsproblem wegen Forum? | Wolfgang | (In)security allgemein | 20 | 31.01.04 00:12 |