Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer
 
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 studying the Monastery: (3)
As of 2024-04-20 05:47 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found