AD-Filter: Entfernen Sie Platz im Attribut

-1

Ich habe ein VBS-ASP-Skript und verwendet diesen Filter.AD-Filter: Entfernen Sie Platz im Attribut

strFilter = "(&(objectCategory=person)(objectClass=user)(givenName=" & sFirstName & "*)(sn=" & sLastName & "*)(telephonenumber=*)"

Die Telefonnummer hat Leerzeichen. Wie könnte ich die Räume trimmen?

dank

Quelle

2017-01-27 Louis-Philippe Descamps

-1

Entschuldigung für nicht diese früher zu beantworten.

das erste Skript ist als unten

<%@ Language="VBScript" %> 
<% 
' List script 
'Option Explicit 
%> 
<% 
response.ContentType="text/xml" 
response.Expires = -1 

Dim objCon, objCom, objRS 
Dim strDNSDomain, strBase, strQuery, strFilter, strAttributes 
Dim sFirstName: sFirstName = request.querystring("f") 
Dim sLastName: sLastName = request.querystring("l") 
Dim sSearchparam: sSearchparam = request.querystring("searchparam") 
Dim strPage: strPage = request.querystring("page") 

' Define the AD OU that contains our users and filter and attributes 
strBase = "<LDAP://server.com/DC=server,DC=com>" 
strFilter = "(&(objectCategory=person)(objectClass=user)(givenName=" & sFirstName & "*)(sn=" & sLastName & "*)(telephonenumber=*))" 
strAttributes = "givenName,sn,displayName,telephonenumber,mobile,c" 

' Make AD connection and run query 
Set objCon = Server.CreateObject("ADODB.Connection") 
objCon.provider ="ADsDSOObject" 
objCon.Properties("User ID") = "DOMAIN\USERNAME" 
objCon.Properties("Password") = "PASSWORD" 
objCon.Properties("Encrypt Password") = TRUE 
objCon.open "Active Directory Provider" 
Set objCom = CreateObject("ADODB.Command") 
Set objCom.ActiveConnection = objCon 

strQuery = strBase & ";" & strFilter & ";" & strAttributes & ";subtree" 
objCom.CommandText = strQuery 
objCom.Properties("Sort On") = "displayName" 

Set objRS = objCom.Execute 
'''''''''' 
' Loop over returned recordset and output HTML 

response.write ("<CiscoIPPhoneDirectory>") 
response.write ("<Title>Phone Directory</Title><Prompt>Search Results</Prompt>") 
''''' 

If objRS.RecordCount <=30 then 
while not objRS.EOF 
    response.write ("<DirectoryEntry>") 
    response.write ("<Name>" & objRS("displayName") & " " & objRS("c") & "</Name>") 
    response.write ("<Telephone>" & objRS("telephonenumber") & "</Telephone>") 
    response.write ("</DirectoryEntry>") 
    objRS.MoveNext 
    Response.Flush 
wend 

response.write ("<SoftKeyItem><Name>Dial</Name><URL>SoftKey:Dial</URL><Position>1</Position></SoftKeyItem>") 
response.write ("<SoftKeyItem><Name>Exit</Name><URL>SoftKey:Exit</URL><Position>4</Position></SoftKeyItem>") 

Else 

If strPage = "" then strPage = 1 
objRS.absoluteposition = 30 * strPage - 29 
For intRecord = 1 to 30 
    response.write ("<DirectoryEntry>") 
    response.write ("<Name>" & objRS("displayName") & " " & objRS("c") & "</Name>") 
    response.write ("<Telephone>" & objRS("telephonenumber") & "</Telephone>") 
    response.write ("</DirectoryEntry>") 
    objRS.MoveNext 
    Response.Flush 
    If objRS.EOF then exit for 
next 

response.write ("<SoftKeyItem><Name>Dial</Name><URL>SoftKey:Dial</URL><Position>1</Position></SoftKeyItem>") 

if 30 * strPage - 29 > 1 then 
    response.write ("<SoftKeyItem><Name>Prev</Name><URL>http://" & request.servervariables("SERVER_NAME") & ":" & request.servervariables("SERVER_PORT") & request.servervariables("url") & "?page=" & strPage - 1 & "&amp;f=" & sFirstName & "&amp;l=" & sLastName & "&amp;searchparam=" & server.urlencode(sSearchparam) & "</URL><Position>2</Position></SoftKeyItem>") 
end if 

if objRS.RecordCount > strPage * 30 then 
    response.write ("<SoftKeyItem><Name>Next</Name><URL>http://" & request.servervariables("SERVER_NAME") & ":" & request.servervariables("SERVER_PORT") & request.servervariables("url") & "?page=" & strPage + 1 & "&amp;f=" & sFirstName & "&amp;l=" & sLastName & "&amp;searchparam=" & server.urlencode(sSearchparam) & "</URL><Position>3</Position></SoftKeyItem>") 
end if 

response.write ("<SoftKeyItem><Name>Exit</Name><URL>SoftKey:Exit</URL><Position>4</Position></SoftKeyItem>") 

End If 

''''' 
response.write ("</CiscoIPPhoneDirectory>") 

'''''''''' 
' Clean up 
objRS.Close 
objCon.Close 
Set objRS = Nothing 
Set objCon = Nothing 
Set objCom = Nothing 
%>

die ciscophonedirectory würde eine Zahl mit Leerzeichen zurückgegeben.

i hinzugefügt 2 Variablen

Dim strNumber 
Dim strNumberClean

und das Skript aktualisiert, wie unten

<%@ Language="VBScript" %> 
<% 
' List script 
'Option Explicit 
%> 
<% 
response.ContentType="text/xml" 
response.Expires = -1 

Dim objCon, objCom, objRS 
Dim strDNSDomain, strBase, strQuery, strFilter, strAttributes 
Dim sFirstName: sFirstName = request.querystring("f") 
Dim sLastName: sLastName = request.querystring("l") 
Dim sSearchparam: sSearchparam = request.querystring("searchparam") 
Dim strPage: strPage = request.querystring("page") 
Dim strNumber 
Dim strNumberClean 

' Define the AD OU that contains our users and filter and attributes 
strBase = "<LDAP://server.com/DC=server,DC=com>" 
strFilter = "(&(objectCategory=person)(objectClass=user)(givenName=" & sFirstName & "*)(sn=" & sLastName & "*)(telephonenumber=*))" 
strAttributes = "givenName,sn,displayName,telephonenumber,mobile,c" 

' Make AD connection and run query 
Set objCon = Server.CreateObject("ADODB.Connection") 
objCon.provider ="ADsDSOObject" 
objCon.Properties("User ID") = "DOMAIN\USERNAME" 
objCon.Properties("Password") = "PASSWORD" 
objCon.Properties("Encrypt Password") = TRUE 
objCon.open "Active Directory Provider" 
Set objCom = CreateObject("ADODB.Command") 
Set objCom.ActiveConnection = objCon 

strQuery = strBase & ";" & strFilter & ";" & strAttributes & ";subtree" 
objCom.CommandText = strQuery 
objCom.Properties("Sort On") = "displayName" 

Set objRS = objCom.Execute 
'''''''''' 
' Loop over returned recordset and output HTML 

response.write ("<CiscoIPPhoneDirectory>") 
response.write ("<Title>Phone Directory</Title><Prompt>Search Results</Prompt>") 
''''' 

If objRS.RecordCount <=30 then 
while not objRS.EOF 
    response.write ("<DirectoryEntry>") 
    response.write ("<Name>" & objRS("displayName") & " " & objRS("c") & "</Name>") 

'Remove spaces in the Telephone Number - 20170127 Louis-Philippe Descamps 
    strNumber = objRS("telephonenumber") 
    strNumberClean = Replace(strNumber," ","",1,-1) 
    response.write ("<Telephone>" & strNumberClean & "</Telephone>") 

    response.write ("</DirectoryEntry>") 
    objRS.MoveNext 
    Response.Flush 
wend 

response.write ("<SoftKeyItem><Name>Dial</Name><URL>SoftKey:Dial</URL><Position>1</Position></SoftKeyItem>") 
response.write ("<SoftKeyItem><Name>Exit</Name><URL>SoftKey:Exit</URL><Position>4</Position></SoftKeyItem>") 

Else 

If strPage = "" then strPage = 1 
objRS.absoluteposition = 30 * strPage - 29 
For intRecord = 1 to 30 
    response.write ("<DirectoryEntry>") 
    response.write ("<Name>" & objRS("displayName") & " " & objRS("c") & "</Name>") 

'Remove spaces in the Telephone Number - 20170127 Louis-Philippe Descamps 
    strNumber = objRS("telephonenumber") 
    strNumberClean = Replace(strNumber," ","",1,-1) 
    response.write ("<Telephone>" & strNumberClean & "</Telephone>") 

    response.write ("</DirectoryEntry>") 
    objRS.MoveNext 
    Response.Flush 
    If objRS.EOF then exit for 
next 

response.write ("<SoftKeyItem><Name>Dial</Name><URL>SoftKey:Dial</URL><Position>1</Position></SoftKeyItem>") 

if 30 * strPage - 29 > 1 then 
    response.write ("<SoftKeyItem><Name>Prev</Name><URL>http://" & request.servervariables("SERVER_NAME") & ":" & request.servervariables("SERVER_PORT") & request.servervariables("url") & "?page=" & strPage - 1 & "&amp;f=" & sFirstName & "&amp;l=" & sLastName & "&amp;searchparam=" & server.urlencode(sSearchparam) & "</URL><Position>2</Position></SoftKeyItem>") 
end if 

if objRS.RecordCount > strPage * 30 then 
    response.write ("<SoftKeyItem><Name>Next</Name><URL>http://" & request.servervariables("SERVER_NAME") & ":" & request.servervariables("SERVER_PORT") & request.servervariables("url") & "?page=" & strPage + 1 & "&amp;f=" & sFirstName & "&amp;l=" & sLastName & "&amp;searchparam=" & server.urlencode(sSearchparam) & "</URL><Position>3</Position></SoftKeyItem>") 
end if 

response.write ("<SoftKeyItem><Name>Exit</Name><URL>SoftKey:Exit</URL><Position>4</Position></SoftKeyItem>") 

End If 

''''' 
response.write ("</CiscoIPPhoneDirectory>") 

'''''''''' 
' Clean up 
objRS.Close 
objCon.Close 
Set objRS = Nothing 
Set objCon = Nothing 
Set objCom = Nothing 
%>

dies den Trick getan zu haben scheint.

Die zurückgegebene Verzeichnisnummer enthält keine Leerzeichen mehr.

Quelle

2017-03-06 15:27:44

** Verschlüsseln Sie keine Passwörter **, wenn der Angreifer die DB bekommt, bekommt er auch den Verschlüsselungsschlüssel. Iterate über einen HMAC mit einer zufälligen Salz für etwa 100ms Dauer und speichern Sie das Salz mit dem Hash. Verwenden Sie Funktionen wie password_hash, PBKDF2, Bcrypt und ähnliche Funktionen. Es geht darum, den Angreifer dazu zu bringen, viel Zeit mit der Suche nach Passwörtern zu verbringen. Bedenken Sie, dass die Benutzer durch eine unzureichende Kennwortbehandlung gefährdet sind. – zaph

danke für deinen Kommentar. keine Ahnung, wie das geht, aber mal schauen. Prost –

@Askut sich selbst: "Ist die Sicherheit der Benutzer es wert zu erforschen, wie Passwörter korrekt behandelt werden?" Folgendes geschieht: Ein Angreifer erhält Zugriff auf Ihren Site-Namen/Ihre Passwörter, und Sie wissen das nicht einmal. Der Angreifer verwendete diese, um auf die Benutzerkonten auf anderen Systemen zuzugreifen, da die meisten Benutzer Kennwörter wiederverwenden. Oder er aggregiert die gestohlenen Anmeldeinformationen mit anderen und verkauft sie dann auf dem dunklen Netz. – zaph

Mit der begrenzten Informationen über diese Frage, ich nehme an, Sie die Räume von der Telefonnummer abzustreifen wollen Ergebnisse, die Sie erhalten.

Alternativ, wenn Sie auf Filter Änderung weitere Informationen wünschen, schauen Sie hier:

https://social.technet.microsoft.com/wiki/contents/articles/5392.active-directory-ldap-syntax-filters.aspx

Set rootDSE = GetObject("LDAP://RootDSE") 
base = "<LDAP://" & rootDSE.Get("defaultNamingContext") & ">" 
strFilter = "(&(objectCategory=person)(objectClass=user)(givenName=" & sFirstName & "*)(sn=" & sLastName & "*)(telephonenumber=*)" 
attr = "telephoneNumber" 

Set conn = CreateObject("ADODB.Connection") 
conn.Provider = "ADsDSOObject" 
conn.Open "Active Directory Provider" 

Set cmd = CreateObject("ADODB.Command") 
Set cmd.ActiveConnection = conn 
cmd.CommandText = base & ";" & fltr & ";" & attr & ";" 

Set rs = cmd.Execute 
Do Until rs.EOF 
    WScript.Echo Replace(rs.Fields("telephoneNumber").Value, " ", "") 
    rs.MoveNext 
Loop 
rs.Close

Quelle

2017-01-27 23:06:34 Rich

AD-Filter: Entfernen Sie Platz im Attribut

Antwort

Verwandte Themen