Getting ip addresses from log file

Jan 08
2008
Comments Off 
perl -ne '$_{$1}=1 if /(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})/;eof&&{print join("\n", sort keys %_)}' access.log
Written by Vidul in: Perl, SA |

Fast ICMP scanner (Perl oneliner)

Jan 08
2008
Comments Off

[localhost]$

time perl -MNet::Ping -e '$p = Net::Ping->new();
@hosts = qw(
127.0.0.1
172.16.0.1
172.16.0.2
172.16.0.5
172.16.0.254);
#the significant detail
$p->{"timeout"} = 0.005;
for (@hosts) { print "$_ is ".($p->ping($_) ? "up" : "down").$/ }'

127.0.0.1 is up
172.16.0.1 is up
172.16.0.2 is down
172.16.0.5 is up
172.16.0.254 is down

real 0m0.062s
user 0m0.040s
sys 0m0.000s

Written by Vidul in: Perl, SA, oneliners |

Simple file hiding

Jan 08
2008
Comments Off

irb console

$/ = "\r\n"
 
# addition of .mp3 file to .gif file
File.open('test.gif', 'a') do |fh|
  fh < < "\r\n#{File.readlines('test.mp3')}"
end
 
# extraction of the .mp3 content
File.open('extracted.mp3', 'w') do |fh|
  fh << File.readlines('test.gif')[1..-1]
end
Written by Vidul in: Ruby, SA |

Six happy numbers

Jan 07
2008
Comments Off 
numbers = Hash.new
loop{numbers[rand(50)]=true && numbers.keys.size==6 && break}
p numbers.keys.sort.join(%q/ /)

#or just

p (1..49).to_a.sort_by{rand}.[](1..6)
Written by Vidul in: Ruby, scripts | Tags:
Newer Entries »

Calendar

January 2008
M T W T F S S
« Dec   Feb »
 123456
78910111213
14151617181920
21222324252627
28293031  

Tags