Ip Lists For Peerguardian

[ploink]

Where do we get the lists for IP#'s to block/ban?

link me please....

[cosmic doobie]

Look in the TIPS section - there is a pinned thread

[Iridium]

I posted this before but I can't find the thread - anyway try this batch file and vb script from http://forums.overclockers.co.uk/showthrea...&threadid=82920 (http://forums.overclockers.co.uk/showthread.php?s=&threadid=82920)

Here's the PG updating bat and vbs

'
'Batch file - put in the win startup folder

@echo off
cd "c:\Program Files\PeerGuardian_1.96b\"
"PG_Update.vbs"
start PeerGuardian_1.96b.exe
exit
'just replace paths\file names with your own.

'and the vb script file

' Peer Guardian - IP Blocking List Update Script (v0.1)
'
' by com
'
' Peer Guardian Website: http://xs.tech.nu/pg/
'
' Description: A simple script that updates Peer-Guardians IP Block list
' from a regularly updated online source.
'

' Instructions:- Modify the configurables below as necessary.
' - Run this script each time before using Peer-Guardian.
'
' NOTE: This script entirely replaces the original 'Guardian.P2P' file with the
' updated IP list. Thus any manual additions to the IP block list will be
' lost.
'
'
'************* Configurables *************
' Online IP Block List in Plain Text
Const IPListURL = "http://www.simply-click.org/uploadertest/pg2_plaintext.asp"
' Location of Peer Guardian 'Guarding.P2P' IP block list
Const PGPath = "Guarding.P2P"
' Supress any warning messages
Const SilentMode = FALSE
'*****************************************

PG_Update

Function PG_Update
On Error Resume Next
'
' Connect to the IP List Website & Grab the page
'

Set o_HTTP = CreateObject("Microsoft.XMLHTTP")
o_HTTP.Open "GET", IPListURL, false
o_HTTP.Send
if Err.Number = -2146697211 then
if SilentMode = FALSE then
msgbox "There was a problem connecting to the URL:" & VBNewLine & _
IPListURL & VBNewLine & VBNewLine & _
"The IP list will not be updated on this occasion", _
vbExclamation
end if
exit function
end if

strng = o_HTTP.responsetext


'
' Parse the page to get the IPs
'

Dim regEx
Set regEx = New RegExp
regEx.Global = True
regEx.Pattern = "Plain Text Version
\s*?
" & _
"([\s\S]*?)" & _
"<font face=.*"
Set Matches = regEx.Execute(strng)
regEx.Pattern = "&#092;s*(.*?):(.*?)
"
Set Matches = regEx.Execute(Matches(0).SubMatches(0))

&#39;
&#39; Open the Peer Guardian IP List file for writing
&#39;
Set fso = CreateObject("Scripting.FileSystemObject")
Set outFile = fso.CreateTextFile(PGPath, True)

For Each Match in Matches
OutFile.Writeline Match.SubMatches(0) & ":" & Match.SubMatches(1)
Next
OutFile.close
set Http = nothing
End Function

or to download http://www.lofg.com/resources/PG_Update.zip

HTH

[RealitY]

Originally posted by ploink@28 July 2003 - 23:40
Where do we get the lists for IP#&#39;s to block/ban?

link me please....
Post at http://www.klboard.ath.cx/bb/index.php?act...=0#entry387264. (http://www.klboard.ath.cx/bb/index.php?act=ST&f=2&t=53999&st=0#entry387264).
Updated IP List At http://www.simply-click.org/uploadertest/p...2_plaintext.asp (http://www.simply-click.org/uploadertest/pg2_plaintext.asp).

[Iridium]

Originally posted by cosmic doobie@28 July 2003 - 22:43
Look in the TIPS section - there is a pinned thread
Also (I&#39;m linking to myself inadvertently again&#33;)

http://www.klboard.ath.cx/bb/index.php?showtopic=56710

HTH