#!/usr/bin/perl

print "";
print " -  Sigmund Baginov NetBIOS2Lmhosts -\n";
print " - The NetBIOS Scan Output Ordinator-\n";
print " -=# Version 1.0  -  August  2001 #=-\n";
print "             odOOOOboo   __.--._\n";
print "           oOOOOOOOOOOOO°       °,\n";
print "          OOOOOOOOOOOOOOO     .-°\n";
print "         OOOOOOOOOOOOOOOOO .-°\n";
print "         OOOOOOOOOOOOOOL.-°\n";
print "      .-° OOOOOOOOOT.I°OO\n";
print "    .°     °OOOL-T°OOOO° \n";
print "    °-...--+°°OOOOOOP°°\n";
print "\n";
print "\n";

print "Insert Input File:\n";
$in = <STDIN>;

print "Output File? (usually lmhosts)\n";
$out = <STDIN>;

open (INF,"< $in");
open (OUF,"> $out");

########################################
# Definition of strings to match
########################################

$conf = "NetBIOS Name Table for Host ";
$conf2 = "<00>";
$conf3 = "UNIQUE";

###################################
# Main loop
###################################

while (!eof(INF))
{
$line = <INF>;

###################################
# Find "NetBIOS Name...etc..."
###################################

if ($line =~ /$conf+./)
    {
    $line =~ s/$conf//;
    $line =~ s/\x3A//;
    chop $line;
    $line = $line."\t";
    print OUF $line;
    $control = 1;
    }

if ($control == 1)
    {
##########################################
# Find Computer Name
##########################################
        if ($line =~ /.+$conf2+.+$conf3/)
        {
        $line =~ s/$conf2//;
        $line =~ s/$conf3//;
        $line =~ s/\W//g;
        $line = $line."\t"."#PRE"."\n";
        print OUF $line;
        $control = 0;
        }
    }
}

close(INF);
close(OUF);

print "\n";
print "Done. Control output editing lmhosts.\n";
print "Execute \"nbtstat -R\" to refresh\n";
[download]