marto's scratchpad

Public Scratchpad

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|
    |                                                                 
+                                                                     
+                                                                     
+                                                                     
+                                                  &#9650;            
+                              |
# CSV_XS ERROR: 2034 - EIF - Loose unescaped quote @ rec 207 pos 323 f
+ield 58
[download]

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
[download]

Benchmark (just for the pkzip hash type):

hashcat -w 4 -m 17225 --benchmark
[download]

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;
[download]