PERL 74
Redump.pl Guest on 9th April 2021 12:45:23 PM
  1. #!/usr/bin/perl -w
  2. use strict;
  3.  
  4. my $adr=0;
  5.  
  6. # This tool generates dump commands for reachable pages of an existing dump directry, to re-dump only reachable pages and skipping non-reachable pages
  7.  
  8.   while($adr<0x100000000)
  9.   {
  10.     my $adrx=sprintf("%X",$adr);
  11.     if(-s "ssdgood/mem0x$adrx")
  12.     {
  13.       print "dump_image ssdbad/mem0x$adrx 0x$adrx 0x10000\n";
  14.     }
  15.     $adr+=0x10000;
  16.   }

Paste-bin is for source code and general debugging text.

Login or Register to edit, delete and keep track of your pastes and more.

Raw Paste

Login or Register to edit or fork this paste. It's free.