NetSago
Enter
Log In

How to join?
Menu
Home
News
 Notes
Articles
Tags
Search
About Project
Links
Ours
RSS News RSS
RSS Notes RSS
netsago NetSago
Topically
Authorisation system on environment variables. by n0xi0uzz

Phrack all issues downloader by n0xi0uzz

Notes — Phrack all issues downloader
Back to Notes

Phrack all issues downloader
n0xi0uzz



Tags: perl phrack



It's a simple perl script to download all issues of phrack magazine ( http://phrack.org ). Maybe useful ;).

#!/usr/bin/perl

use LWP::Simple;

print "Welcome to phrack downloader! Process started...\n\n";

mkdir "phrack";

for ($i = 1; $i<=63; $i++)
{
     mkdir "phrack/$i/";
     print "phrack/$i/ created!\n";
     $doc = get("http://phrack.org/archives/$i");
     @lines = split(/\n/, $doc);

        

foreach $line (@lines) { if ($line !~ m/Name/ and $line =~ m/href/) { if ($line =~ m/\<a href=\"(.*?)\"\>/) { open NF, ">phrack/$i/$1"; print NF "$1\n"; $text = get("http://phrack.org/archives/$i/$1"); print NF $text; close NF; print "phrack/$i/$1 saved!\n"; } } } print "\n\n"; }

Language
Russian/Русский
Search
Advanced Search
Report a Bug
If you find a bug on our site please report us.
Counters
20 / 1045
Today we have 63 visits by robots. They want to kill all humans.

Registered users: 0
Online: 0

Page build time: 0.010 sec
NetSago.v2.β © [2006;∞)  Neunica