Vidul Nikolaev Petrov

#!/usr/bin/ruby

host_port = ARGV[0]
host = host_port.split(':').first
port = host_port.split(':').last

puts %x[nmap -p #{port} #{host}]

#!/usr/bin/ruby

host, port = ARGV[0].split(':')

puts %x[nmap -p #{port} #{host}]

./scan_proxy 202.105.182.87:808

#!/usr/bin/env ruby

class Hash
  def search(arg)
    self.select { |k,v| k =~ /#{arg}/ or v =~ /#{arg}/ }
  end
end

search = ARGV[0]
search =~ /^[0-9]+/ and search = search.to_i

phones = {
  "me"        => "359880101020406",
  "Hitler"     => "+49 666",
  "Van Gog" => "+31",
  "devil"      => "666",
  "God"       => "1",
}

phones.search(search).each do |person|
  print "person:#{person.first}\tnumber:#{person.last}\n"
end

alias _rmdir_empty='rmdir * 2>/dev/null'

# decimal to binary
alias d2b='ruby -e "puts ARGV.first.to_i.to_s(2)"'
# decimal to hexademical
alias d2h='ruby -e "puts ARGV.first.to_i.to_s(16)"'
# decimal to octal
alias d2o='ruby -e "puts ARGV.first.to_i.to_s(8)"'

# binary to decimal
alias b2d='ruby -e "puts eval(%q|0b| + ARGV.first)"'
# binary to hexademical
alias b2h='ruby -e "puts eval(%q|0b| + ARGV.first).to_s(16)"'
# binary to octal
alias b2o='ruby -e "puts eval(%q|0b| + ARGV.first).to_s(8)"'

# hexademical to decimal
alias h2d='ruby -e "puts eval(%q|0x| + ARGV.first)"'
# hexademical to binary
alias h2b='ruby -e "puts eval(%q|0x| + ARGV.first).to_s(2)"'
# hexademical to octal
alias h2o='ruby -e "puts eval(%q|0x| + ARGV.first).to_s(8)"'

# octal to decimal
alias o2d='ruby -e "puts eval(%q|0o| + ARGV.first)"'
# octal to binary
alias o2b='ruby -e "puts eval(%q|0o| + ARGV.first).to_s(2)"'
# octal to hexademical
alias o2h='ruby -e "puts eval(%q|0o| + ARGV.first).to_s(16)"'

#!/usr/bin/env ruby

require 'tempfile'
require 'net/http'

arg =  ARGV[0].chomp
url = 'sa.dir.bg'
h   = Net::HTTP.new(url, 80)

resp,data = h.get("/cgi/sabig.cgi?word=#{arg}", nil )
outtmp    = Tempfile.new("translator")

outtmp << data.to_s
outtmp.rewind
puts %x[html2text "#{outtmp.path}"]

__END__

# negative - spawning a new shell
mkdir -p $1 && cd $1 && $SHELL

users = File.new("/etc/passwd").collect{|x| x.split(':')[0]}

puts %x{ls}.split(/\n/).size
puts %x[ls|wc].split(/\s+/)[1]

inet = Hash.new{|h,k| h[k.split(/\s/)[0]] = k.scan(/addr:(\d+\.\d+\.\d+\.\d+)/)[0].to_s}

%x[ifconfig].to_s.split("\n\n").collect{|x| inet[x]}

# dump the structure: puts inet.inspect

#!/usr/bin/perl

use strict;
use warnings;

my $dom = shift || die "missing name\n";
my $res = qx{whois $dom};

die $1 . "for '$dom'\n" if $res =~ /(no\s+whois\s+server\s+)/i;
die "$dom is free\n"    if $res =~ /no\s+match|does\s+not\s+exist/i;
die "$dom is reserved\n";

__END__
_whois 123456.com
123456.com is reserved

_whois _123456_.com
_123456_.com is free