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

tools/securenotes2hashcat.pl

@@ -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);