Beefy Boxes and Bandwidth Generously Provided by pair Networks
more useful options
 
PerlMonks  

marto's scratchpad

by marto (Archbishop)
on Jun 02, 2004 at 07:58 UTC ( #359256=scratchpad: print w/replies, xml ) Need Help??

Build modern hashcat (debian based):

apt install cmake build-essential -y apt install checkinstall git -y git clone https://github.com/hashcat/hashcat.git cd hashcat && git submodule update --init && make && make install

Benchmark (just for the pkzip hash type):

hashcat -w 4 -m 17225 --benchmark

To run: morbo scriptname.pl:

#!/usr/bin/perl use Mojo::UserAgent; use Mojolicious::Lite; use Mojo::Util qw(encode); get '/' => sub { my $c = shift; my $uaname = 'Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537. +36 (KHTML, like Gecko) Chrome/40.0.2214.93 Safari/537.36'; my $site = 'https://www.fourmilab.ch/cgi-bin/Yoursky?z=1&lat=45.51 +83&ns=North&lon=122.676&ew=West'; my $ua = Mojo::UserAgent->new; $ua->max_redirects(5)->connect_timeout(20)->request_timeout(20); $ua->transactor->name($uaname); # get the table in question my $table_sel = 'center:nth-of-type(3)'; my $table = $ua->get( $site )->res->dom->at( $table_sel ); # fix links so they work $table->find('a')->each( sub { $_->attr( href => 'https://www.four +milab.ch' . $_->attr->{'href'} ) } ); $c->res->headers->content_type('text/html, charset=iso-8859-1'); $c->render( data => encode(' iso-8859-1 ', $table ) ); }; app->start;
Log In?
Username:
Password:

What's my password?
Create A New User
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others perusing the Monastery: (3)
As of 2020-08-09 09:28 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Which rocket would you take to Mars?










    Results (54 votes). Check out past polls.

    Notices?