Many perl scripts: Print errors and usage to stderr

Author: magnumripper

run/cisco2john.pl

@@ -53,8 +53,8 @@
 
 sub usage {
 	my $dn = $0; $dn =~ s/(.*)\/cisco2john.pl/$1/;
-	print "Usage:\t$0 [cisco config file(s)] >>hashfile 2>>seed.txt\n";
-	print "\t${dn}/john -format:md5 -wordlist:seed.txt -rules hashfile\n\n";
+	print STDERR "Usage:\t$0 [cisco config file(s)] >>hashfile 2>>seed.txt\n";
+	print STDERR "\t${dn}/john -format:md5 -wordlist:seed.txt -rules hashfile\n\n";
 	exit 1;
 }
 

run/itunes_backup2john.pl

@@ -181,35 +181,35 @@ sub itunes_plist_get_hash
 
     if (! defined ($WPKY))
     {
-      print "ERROR: WPKY could not be found in '$file_name'\n";
+      print STDERR "ERROR: WPKY could not be found in '$file_name'\n";
 
       return "";
     }
 
     if (! defined ($SALT))
     {
-      print "ERROR: SALT could not be found in '$file_name'\n";
+      print STDERR "ERROR: SALT could not be found in '$file_name'\n";
 
       return "";
     }
 
     if (! defined ($ITER))
     {
-      print "ERROR: ITER could not be found in '$file_name'\n";
+      print STDERR "ERROR: ITER could not be found in '$file_name'\n";
 
       return "";
     }
 
     if (length ($WPKY) != 40)
     {
-      print "ERROR: the WPKY within the file '$file_name' should be exactly 40 bytes long\n";
+      print STDERR "ERROR: the WPKY within the file '$file_name' should be exactly 40 bytes long\n";
 
       return "";
     }
 
     if (length ($SALT) != 20)
     {
-      print "ERROR: the SALT within the file '$file_name' should be exactly 20 bytes long\n";
+      print STDERR "ERROR: the SALT within the file '$file_name' should be exactly 20 bytes long\n";
 
       return "";
     }
@@ -218,14 +218,14 @@ sub itunes_plist_get_hash
     {
       if (int ($DPIC) < 1)
       {
-        print "ERROR: the DPIC within the file '$file_name' has an invalid value ($DPIC)\n";
+        print STDERR "ERROR: the DPIC within the file '$file_name' has an invalid value ($DPIC)\n";
 
         return "";
       }
 
       if (length ($DPSL) != 20)
       {
-        print "ERROR: the DPSL within the file '$file_name' should be exactly 20 bytes long\n";
+        print STDERR "ERROR: the DPSL within the file '$file_name' should be exactly 20 bytes long\n";
 
         return "";
       }

run/lion2john-alt.pl

@@ -16,7 +16,7 @@
 use Data::Plist::BinaryReader;
 
 sub usage {
-  print "Usage: $0 <plist file> ...\n";
+  print STDERR "Usage: $0 <plist file> ...\n";
   exit(1);
 }
 

run/netntlm.pl

@@ -37,18 +37,18 @@
 );
 
 sub showUsage {
-  print "john-netntlm.pl v$VERSION\n\n";
-  print "JoMo-Kun <jmk\@foofus.net>\n\n";
-  print "Usage: $0 [OPTIONS]\n";
-  print " $0\n";
-  print "   --seed [RainbowCrack/HalfLM Response Password]\n";
-  print "   --file [File Containing LM/NTLM challenge/responses (.lc format)]\n";
-  print "          Ex: Domain\\User:::LM response:NTLM response:challenge";
-  print "\n";
-  print " Ex:\n";
-  print " $0 --file capture.lc\n";
-  print " $0 --seed \"GERGE!!\"--file capture.lc\n";
-  print "\n";
+  print STDERR "john-netntlm.pl v$VERSION\n\n";
+  print STDERR "JoMo-Kun <jmk\@foofus.net>\n\n";
+  print STDERR "Usage: $0 [OPTIONS]\n";
+  print STDERR " $0\n";
+  print STDERR "   --seed [RainbowCrack/HalfLM Response Password]\n";
+  print STDERR "   --file [File Containing LM/NTLM challenge/responses (.lc format)]\n";
+  print STDERR "          Ex: Domain\\User:::LM response:NTLM response:challenge";
+  print STDERR "\n";
+  print STDERR " Ex:\n";
+  print STDERR " $0 --file capture.lc\n";
+  print STDERR " $0 --seed \"GERGE!!\"--file capture.lc\n";
+  print STDERR "\n";
   exit(1);
 }
 
@@ -70,7 +70,7 @@ sub showUsage {
   while(<HAND>) {
     next if ( /\d+ password hashes cracked, \d+ left/ );
     last if /^$/;
-    print "\t$_";
+    print STDERR "\t$_";
     push @{ $data{'cracked-lm'} }, $_;
   }
   close(HAND);
@@ -80,7 +80,7 @@ sub showUsage {
   while(<HAND>) {
     next if ( /\d+ password hashes cracked, \d+ left/ );
     last if /^$/;
-    print "\t$_";
+    print STDERR "\t$_";
     push @{ $data{'cracked-ntlm'} }, $_;
   }
   close(HAND);

run/potcheck.pl

@@ -51,17 +51,17 @@
 
 
 sub usage {
-	print "usage:  $0 [args]\n";
-	print "\targs:\n";
-	print "\t -? | -help    Provide this help screen\n";
-#	print "\t -quiet        Less output (multiple -q allowed)\n";
-	print "\t -verbose      More output\n";
-	print "\t -validate     Returns 0 if .pot valid, or 1 if any lines are problems\n";
-#	print "\t -stoponerror  If there is any fatal problem, stop\n";
-#	print "\t -canonize_fix Apply canonizaton rules to convert formats\n";
-#	print "\t -encode_fix   Fix encoding issues (cannonize to utf8)\n";
-	print "\t -longline_fix Overlong lines are converted to short .pot format\n";
-	print "\nThe program is a filter. stdin/stdout are used for input and output\n";
+	print STDERR "usage:  $0 [args]\n";
+	print STDERR "\targs:\n";
+	print STDERR "\t -? | -help    Provide this help screen\n";
+#	print STDERR "\t -quiet        Less output (multiple -q allowed)\n";
+	print STDERR "\t -verbose      More output\n";
+	print STDERR "\t -validate     Returns 0 if .pot valid, or 1 if any lines are problems\n";
+#	print STDERR "\t -stoponerror  If there is any fatal problem, stop\n";
+#	print STDERR "\t -canonize_fix Apply canonizaton rules to convert formats\n";
+#	print STDERR "\t -encode_fix   Fix encoding issues (cannonize to utf8)\n";
+	print STDERR "\t -longline_fix Overlong lines are converted to short .pot format\n";
+	print STDERR "\nThe program is a filter. stdin/stdout are used for input and output\n";
 	exit (0);
 }