%@ LANGUAGE="VBSCRIPT" %> <% ' PROJECT HONEY POT ADDRESS DISTRIBUTION SCRIPT ' For more information visit: http://www.projecthoneypot.org/ ' Copyright (C) 2004, Unspam, LLC ' ' This program is free software; you can redistribute it and/or modify ' it under the terms of the GNU General Public License as published by ' the Free Software Foundation; either version 2 of the License, or ' (at your option) any later version. ' ' This program is distributed in the hope that it will be useful, ' but WITHOUT ANY WARRANTY; without even the implied warranty of ' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ' GNU General Public License for more details. ' ' You should have received a copy of the GNU General Public License ' along with this program; if not, write to the Free Software ' Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA ' 02111-1307 USA ' ' If you choose to modify or redistribute the software, you must ' completely disconnect it from the Project Honey Pot Service, as ' specified under the Terms of Service Use. These terms are available ' here: ' ' http://www.projecthoneypot.org/terms_of_service_use.php ' ' The required modification to disconnect the software from the ' Project Honey Pot Service is explained in the comments below. To find the ' instructions, search for: *** DISCONNECT INSTRUCTIONS *** ' ' Generated On: Tue, 28 Mar 2006 08:17:00 -0600 ' For Domain: www.cyber-rights.net ' ' ' *** DISCONNECT INSTRUCTIONS *** ' ' You are free to modify or redistribute this software. However, if ' you do so you must disconnect it from the Project Honey Pot Service. ' To do this, you must delete the lines of code below located between the ' *** START CUT HERE *** and *** FINISH CUT HERE *** comments. Under the ' Terms of Service Use that you agreed to before downloading this software, ' you may not recreate the deleted lines or modify this software to access ' or otherwise connect to any Project Honey Pot server. ' ' *** START CUT HERE *** ' REQUEST_HOST = "hpr7.projecthoneypot.org" REQUEST_PORT = "80" REQUEST_SCRIPT = "/cgi/serve.php" ' ' *** FINISH CUT HERE *** ' HPOT_TAG1 = "ac10fc1a419c8e104a656c8058c81832" HPOT_TAG2 = "531885da397c60f44057a1ef28a1be7f" HPOT_TAG3 = "e5eff424859078ea08098d130e430833" CLASS_STYLE_1 = "trahajax" CLASS_STYLE_2 = "jijaclix" DIV1 = "2ukasl1" VANITY_L1 = "MEMBER OF PROJECT HONEY POT" VANITY_L2 = "Spam Harvester Protection Network" VANITY_L3 = "provided by Unspam" DOC_TYPE1 = "\n" HEAD1 = "\n
\n" HEAD2 = "@ | " & VANITY_L1 & " " & VANITY_L2 & " " & VANITY_L3 & " |
p e f ohTERMS AND CON The website from which you accessed this to you subject to the following conditio other terms governing access to the Webs Website you accept these terms and condi read them carefully. Any Non-Human Visit agentsdof the individual(s) whoecontrols them. The access rights grantedttotyou u non-transferable without the express wri Website. SPECIALkLICENSEgRESTRICTI Specialcrestrictions on a visitor's lice Non-Human Visitors. Non-Human Visitors i spiders, bots,gindexers,erobots, crawler programs designed to access, read, compi automatically. Emailgaddresses on this site arekconside It is recognized that these emailiaddres alone.iYou acknowledge and agree thatsea haska value not less than US $50. Youafu storage, and/or distribution of theseaad value ofcthese addresses. Intentional co storing this Website's email addresses i agreement and expressly prohibited. e hk i APPLICABLE LAW Each party agrees that any suit,aaction against the other in connection withsor (""Judicial Action"") shall be governedhby the registered Administrative Contact (t such laws are applied to agreements betw and performed entirelyswithingthe Admin of federal and state courts within the A anypaction brought against him in connec Service. You consent to electronic servi the above agreement. i c d RECORDS OF VISIT You consentato having your Internet Prot may appearcsomewhere on thisipage (theg"" abuse. The Identifierfis uniquely matche Visitors agree not to use this address f VISITORS AGREE THAT HARVESTING,fGATHERIN PARTY OR SENDING ANY MESSAGE(S) TOgTHEoI SUBSEQUENT BREACH OF THESE TERMSgOF SERV | \nDITIONS OF USEe agreement (""the Website"") is provided ns.dThese terms are in addition to any ite. By visiting (in any manner) the tions (the ""Terms of Service""). Please ors to the Website shall beiconsidered , authors or otherwisecmakes use of nder the Terms of Service are ttentpermission of the ownergof the ONS FOR NON-HUMAN VISITORSf nse to access the Website apply to nclude, but are not limited to, web s, harvesters, or any other computer le orkgatherpcontent from the Website red proprietary intellectual property. ses areeprovided for human visitors choemail address the Website contains rther agree thatgthe compilation, dresses substantiallyddiminishes the llection, harvesting, gathering, and/or skrecognizedias a violation of this AND JURISDICTIONt or proceeding brought by suchtparty arising from the Termsgof Service the law oftthe state of residence of hef""Admin State"") forfthedWebsite as een Admin State residents entered into State. You consent toathe jurisdiction dmindState. Youoconsent to the venue in tiongwith breaches of these Terms of ce of process regarding actions under OR USE AND ABUSE ocol address recorded. An email address Identifier"") if we suspect potential dito your Internet Protocol address. or anysreason. G, STORING,fTRANSFERRING TOfA THIRD DENTIFIER CONSTITUTES AN ACCEPTANCE AND ICE. | \n
" & Contents & "") TextStream.Close Set TextStream = nothing Else Response.Write("WARNING: File " & Filepath & " could not be read!") getFileContents = nothing exit function End If Set FSO = nothing getFileContents = Contents End Function Function getDocType() getDocType = DOC_TYPE1 End Function Function getHeadHTML1() getHeadHTML1 = HEAD1 End Function Function getRobotHTML() getRobotHTML = ROBOT1 End Function Function getNoCollectHTML() getNoCollectHTML = NOCOLLECT1 End Function Function getHeadHTML2() getHeadHTML2 = HEAD2 End Function Function getTopHTML() getTopHTML = TOP1 End Function Function getEmailHTML(Method, Email) Select Case Method Case 0: getEmailHTML = "" Case 1: getEmailHTML = EMAIL1A & Email & EMAIL1B & Email & EMAIL1C Case 2: getEmailHTML = EMAIL2A & Email & EMAIL2B & Email & EMAIL2C Case 3: getEmailHTML = EMAIL3A & Email & EMAIL3B & Email & EMAIL3C Case 4: getEmailHTML = EMAIL4A & Email & EMAIL4B & Email & EMAIL4C Case 5: getEmailHTML = EMAIL5A & Email & EMAIL5B & Email & EMAIL5C Case 6: getEmailHTML = EMAIL6A & Email & EMAIL6B & Email & EMAIL6C Case 7: getEmailHTML = EMAIL7A & Email & EMAIL7B & Email & EMAIL7C Case 8: getEmailHTML = EMAIL8A & Email & EMAIL8B & Email & EMAIL8C Case 9: getEmailHTML = EMAIL9A & Email & EMAIL9B & Email & EMAIL9C case Else: getEmailHTML = EMAIL10A & Email & EMAIL10B & Email & EMAIL10C End Select End Function Function getLegalHTML getLegalHTML = LEGAL1 & getLegalContent() & LEGAL2 End Function Function getStyleHTML getStyleHTML = STYLE1 End Function Function getVanityHTML getVanityHTML = VANITY1 End Function Function getBottomHTML getBottomHTML = BOTTOM1 End Function Function performRequest(Request) ResponseStr = "" URL = "" Set srvXmlHttp = Server.CreateObject("MICROSOFT.XMLHTTP") URL = "http://" & REQUEST_HOST & REQUEST_SCRIPT srvXmlHttp.open "POST", URL, false srvXmlHttp.setRequestHeader "Cache-Control", "no-cache" srvXmlHttp.setRequestHeader "User-Agent", "PHPot " & HPOT_TAG2 srvXmlHttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded" srvXmlHttp.setRequestHeader "Connection", "close" srvXmlHttp.send Request performRequest = srvXmlHttp.responseText End Function Function prepareRequest() Set postvars = CreateObject("Scripting.Dictionary") postvars.Add "tag1", HPOT_TAG1 postvars.Add "tag2", HPOT_TAG2 postvars.Add "tag3", HPOT_TAG3 postvars.Add "tag4", md5(getFileContents(Request.ServerVariables("PATH_TRANSLATED"))) postvars.Add "ip", Server.URLEncode(Request.ServerVariables("REMOTE_ADDR")) postvars.Add "svrn", Server.URLEncode(Request.ServerVariables("SERVER_NAME")) postvars.Add "svp", Server.URLEncode(Request.ServerVariables("SERVER_PORT")) postvars.Add "svip", Server.URLEncode(Request.ServerVariables("SERVER_ADDR")) postvars.Add "rquri", Server.URLEncode(Request.ServerVariables("URL")) postvars.Add "sn", Replace(Server.URLEncode(Request.ServerVariables("SCRIPT_NAME")), " ", "%20") postvars.Add "ref", Server.URLEncode(Request.ServerVariables("HTTP_REFERER")) postvars.Add "uagnt", Server.URLEncode(Request.ServerVariables("HTTP_USER_AGENT")) Set prepareRequest = postvars End Function Function transcribeResponse(ByVal response) Set settings = CreateObject("Scripting.Dictionary") Arr = Split(URLDecode(response), Chr(10)) isParam = false For j = 0 to UBound(Arr) If Arr(j) = "