Ansonsten halt schnell mit Perl:
Code:
#GREP-Ersatz 1.0
use strict;
use warnings;

my ($file,$out) = (shift,shift);


open(FL,$file);
open(OUT,">>$out");
my @arr = <FL>;

foreach my $l (@arr) {

    $l =~/.+:(.+):([0-9a-z]{32})</;
    print "$1:$2\n";
    print OUT "$1:$2\n";
    
}
close(FL);
close(OUT);
Code:
C:\Dokumente und Einstellungen\Fred\Desktop> perl test.pl test.txt out.txt
toB:2b388bfad4dcd74b090973c9a699b383
toB:2b388bfad4dcd74b090973c9a699b383
toB:2b388bfad4dcd74b090973c9a699b383
toB:2b388bfad4dcd74b090973c9a699b383