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:
parent
77f7ea52a5
commit
f21137a129
@ -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);
|
||||||
|
Loading…
Reference in New Issue
Block a user