http://y7egb5vi45k74makeixpfb7jnimfxm3gf233lb3ke2ldonozjk55nvad.onion/samples_scripts.html
\n";
read FD, $buff, 0x100000;
close FD;
}
$devs = decode_json($buff);
}
sub substitute {
my ($str, $p) = @_;
my $ret;
while ($str =~ /\$(\d+)/) {
$ret .= $` . $p->[$1 - 1];
$str = $';
}
$ret .= $str;
return $ret;
}
sub ip2num {
my @a = split(/\./, $_[0]);
return ($a[0]<<24) + ($a[1] << 16) + ($a[2] << 8) + $a[3];
}
sub num2ip {
my $n = shift;
return sprintf("%d.