1
mirror of https://github.com/hashcat/hashcat synced 2024-12-19 23:15:54 +01:00

Switch from \r\n to \n line terminators in tools/securenotes2hashcat.pl

This commit is contained in:
jsteube 2017-12-13 12:56:20 +01:00
parent 77f7ea52a5
commit f21137a129

View File

@ -1,35 +1,35 @@
#!/usr/bin/env perl #!/usr/bin/env perl
## ##
## Author......: See docs/credits.txt ## Author......: See docs/credits.txt
## License.....: MIT ## License.....: MIT
## ##
use strict; use strict;
use warnings; use warnings;
use DBI; use DBI;
use DBD::SQLite; use DBD::SQLite;
die "usage: $0 NoteStore.sqlite\n" unless (scalar @ARGV == 1); die "usage: $0 NoteStore.sqlite\n" unless (scalar @ARGV == 1);
my $database = shift @ARGV; my $database = shift @ARGV;
my $dsn = "DBI:SQLite:dbname=$database"; my $dsn = "DBI:SQLite:dbname=$database";
my $userid = ""; my $userid = "";
my $password = ""; my $password = "";
my $dbh = DBI->connect ($dsn, $userid, $password, { RaiseError => 1 }) or die $DBI::errstr; my $dbh = DBI->connect ($dsn, $userid, $password, { RaiseError => 1 }) or die $DBI::errstr;
my $sth = $dbh->prepare ("SELECT Z_PK,ZCRYPTOITERATIONCOUNT,ZCRYPTOSALT,ZCRYPTOWRAPPEDKEY FROM ZICCLOUDSYNCINGOBJECT WHERE ZISPASSWORDPROTECTED=1"); my $sth = $dbh->prepare ("SELECT Z_PK,ZCRYPTOITERATIONCOUNT,ZCRYPTOSALT,ZCRYPTOWRAPPEDKEY FROM ZICCLOUDSYNCINGOBJECT WHERE ZISPASSWORDPROTECTED=1");
$sth->execute () or die $DBI::errstr; $sth->execute () or die $DBI::errstr;
while (my $row = $sth->fetchrow_arrayref ()) while (my $row = $sth->fetchrow_arrayref ())
{ {
printf ("\$ASN\$*%d*%d*%s*%s\n", $row->[0], $row->[1], unpack ("H*", $row->[2]), unpack ("H*", $row->[3])); printf ("\$ASN\$*%d*%d*%s*%s\n", $row->[0], $row->[1], unpack ("H*", $row->[2]), unpack ("H*", $row->[3]));
} }
$sth->finish; $sth->finish;
$dbh->disconnect (); $dbh->disconnect ();
exit (0); exit (0);