Fix and generify legic response code

[proxmark3-svn] / tools / srecswap.pl

#!/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