ADD: @go_tus 's code to generate wiegand codes from FacilityCode/SiteCode and Cardn...

[proxmark3-svn] / tools / srecswap.pl

diff --git a/tools/srecswap.pl b/tools/srecswap.pl
index 24ef8e84eac1f0a79f95f412bf31a613ebb58689..fd6f9a944bb07c7c7af9f12e00b5c9ff4347a5f3 100644 (file)
--- a/tools/srecswap.pl
+++ b/tools/srecswap.pl
@@ -1,35 +1,35 @@
-#!/usr/bin/perl\r
-\r
-# endian-swap S records; we need this because the JTAG tools we're using\r
-# expect the memory image in byte-swapped format\r
-#\r
-# Jonathan Westhues, April 2004\r
-\r
-if(@ARGV == 0) {\r
-       die "usage: $0 file-to-endian-swap.s19 > out.s19\n";\r
-}\r
-\r
-while(<>) {\r
-       chomp;\r
-\r
-       if(/^S0/) {\r
-               next;\r
-       }\r
-       if(/^S7/) {\r
-               print "$_\n";\r
-               next;\r
-       }\r
-\r
-       if(not /^S3(..)(........)(.*)(..)$/) {\r
-               die "bad S record at line $.\n";\r
-       }\r
-\r
-       $data = $3;\r
-       $checksum = $4;\r
-\r
-       print "S3$1$2";\r
-       while($data =~ m#(..)(..)(..)(..)#g) {\r
-               print "$4$3$2$1";\r
-       }\r
-       print "$checksum\n";\r
-}\r
+#!/usr/bin/perl
+
+# endian-swap S records; we need this because the JTAG tools we're using
+# expect the memory image in byte-swapped format
+#
+# Jonathan Westhues, April 2004
+
+if(@ARGV == 0) {
+       die "usage: $0 file-to-endian-swap.s19 > out.s19\n";
+}
+
+while(<>) {
+       chomp;
+
+       if(/^S0/) {
+               next;
+       }
+       if(/^S7/) {
+               print "$_\n";
+               next;
+       }
+
+       if(not /^S3(..)(........)(.*)(..)$/) {
+               die "bad S record at line $.\n";
+       }
+
+       $data = $3;
+       $checksum = $4;
+
+       print "S3$1$2";
+       while($data =~ m#(..)(..)(..)(..)#g) {
+               print "$4$3$2$1";
+       }
+       print "$checksum\n";
+}