Your Ad Here Your Ad Here
Results 1 to 5 of 5

Thread: Ip Lists For Peerguardian

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

    link me please....

  2. File Sharing   -   #2
    Poster
    Join Date
    Jun 2003
    Location
    Outer Mongolia
    Posts
    489
    Look in the TIPS section - there is a pinned thread

  3. File Sharing   -   #3
    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

    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

  4. File Sharing   -   #4
    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..
    Updated IP List At http://www.simply-click.org/uploadertest/p...2_plaintext.asp.

  5. File Sharing   -   #5
    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

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •