Fakers zoeken via je (dating) site

Deze site is erop aangepast dat fakers gezocht kunnen worden via een script mogelijkheid. Deze script mogelijkheid kun je gebruiken binnen bijvoorbeeld andere webpagina's.

De URL die je hiervoor moet gebruiken is:
http://www.fakerslijst.com/fakechk.asp?type=CSV&find=<zoekstring>

Waarbij zoekstring het te doorzoeken woord is. Dit kan een naam, IP nummer, E-mail adres, website adres zijn. Je krijgt dan antwoord in de vorm van een komma separated file terug (CSV). Indien U behoefte heeft aan XML output in plaats van CSV dan gebruikt U type=XML in plaats van type=CSV in the URL.

Bijvoorbeeld:
,,adlinda1980@hotmail.com,,,alinda zoekt mannen voor lekkere sex .
,,belinda.boucher@hetnet.nl,,,Wil naar betaalsite

De opbouw voor CSV responses is vrij simpel namelijk:
Naam,IP,Email,Telefoon,Website,Waarom

De opbouw voor XML responses is ook vrij eenvoudig. Vraag deze eens op via http://www.fakerslijst.com/fakechk.asp?type=XML&find=<zoekstring>http://www.fakerslijst.com/fakechk.asp?type=CSV&find=<zoekstring>. En U vind vanzelf hoe het XML object eruit ziet.

Let op: De opmaak is dus NIET HTML. Ondanks dat je deze via HTTP opvraagt. Hierna kun je in je script dit bestand wat je terug krijgt bekijken en aanpassen.

Een voorbeeld voor het opvragen binnen een ASP pagina:

<%
' Dimension variables
Dim oHTTP 'Holds the XML HTTP Object
Dim vResult 'Holds the reult of the whois query
dim vFaker 'Holds the faker details
dim vEntries 'Holds the separate entries

' Create an XML object to query the remote whois server
Set oHTTP = Server.CreateObject("Microsoft.XMLHTTP")

' Open a connection to the remote whois server
oHTTP.Open "get", "http://www.fakerslijst.com/fakechk.asp?find=linda", False

' Send the request and return the data
oHTTP.Send

' Place the whois registry response into the result string
vResult = oHTTP.ResponseText

' If the result is greater then 60 bytes then a faker was found
If len(vResult)<60 then
response.write("I did not find a faker<HR>")
else
response.write("I found a faker<HR>")

' Split the result into several variables
vFaker=split(vResult,chr(13))

' show the results
for each entry in vFaker
' check to see if there is any content
if len(entry)>10 then
vEntries =Split(entry,",")
response.write("naam:" & Ventries(0) & "<BR>")
response.write("IP:" & Ventries(1) & "<BR>")
response.write("email:" & Ventries(2) & "<BR>")
response.write("telefoon:" & Ventries(3) & "<BR>")
response.write("website:" & Ventries(4) & "<BR>")
response.write("waarom:" & Ventries(5) & "<HR>")
end if
next
end if ' end the result>60 bytes check
%>

: