Beefy Boxes and Bandwidth Generously Provided by pair Networks
Come for the quick hacks, stay for the epiphanies.
 
PerlMonks  

marto's scratchpad

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

csvcheck --sep='`' --quo='"' -u csvfile.csv.txt Checked csvfile.csv.txt with csvcheck 2.05 using Text::CSV_XS 1.44 with perl 5.30.1 and Unicode 12.1.0 csvfile.csv.txt record 208 at line 208/323 - 2034 - EIF - Loose unesca +ped quote |75`AAAAAA`0000306808-000`AAA`AAAAAAAAA A AAAAA AAAAAAA`AA-AAA`AAA +AAA AAAAA```AAA3`AAAA`AAA3 - AAAA`AA-AAAAA`?`?`?`?`2003-01-17 00:00:0 +0`2003-12-09 00:00:00`?`2003-12-09 09:00:00`0900``````AAA1``A`A`A`A`` +``7778`7778`7000-8000`8`````A```A``A`A`A````A`0`AAAA AAAA AAAAAAAAAAA + AAAAAAAA AAAAAAA AAAAAAA AAAA (AAA) AAAAA AAAAA "X" AAAAA AAAAA AAA +AA AAAAA AAAAAAAAAAA`1\A| | + + + + ▲ + | # CSV_XS ERROR: 2034 - EIF - Loose unescaped quote @ rec 207 pos 323 f +ield 58

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
Domain Nodelet?
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others pondering the Monastery: (4)
As of 2024-03-28 17:49 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found