حالة الموضوع:
مغلق
  1. .:: RSS ::.

    .:: RSS ::. عضوية آلية

    الأنتساب:
    ‏9 سبتمبر 2011
    المشاركات:
    14,005
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:
    36
    الإقامة:
    IQ-T34M
    <div><div align="center">السلام عليكم ورحمة الله وبركاته


    معي اداتين بلغة البيرل لجمع المعلومات وكل شئ بتفصل عن

    الاهداف تستحق التجربه

    الاولي


    [​IMG]



    كود:
    #!/usr/bin/perl

    use strict;
    use warnings;
    use LWP::UserAgent;

    main();

    sub main{
    print '
    $$ \ $$\ $$$$$$$\ $$$$$$\ $$\ $$\ $$$$$$\ $$$$$$$$\ $$$$$$$$\
    $$ | $$ | $$ __$$ \ $$ __$$\ $$ | $$ | \_$$ _| \__$$ __| $$ _____|
    $$ |$$ / $$ | $$ | $$ / $$ | $$ |$$ / $$ | $$ | $$ |
    $$$$$ / $$$$$$$ | $$ | $$ | $$$$$ / $$ | $$ | $$$$$\
    $$$ $$ \ $$ __$$ | $$ | $$ | $$ $$| $$ | $$ | $$ __|
    $$ |\$$\ $$ | $$ | $$ | $$ | $$ |\$$\ $$ | $$ | $$ |
    $$ | \$$\ $$ | $$ | $$$$$$ | $$ | \$$\ $$$$$$\ $$ | $$$$$$$$\
    \__| \__| \__| \__| \______/ \__| \__| \______| \__| \________|
    '."\n";

    echo("[+] Please Report any Bug to http://krokite.com");
    echo("[+] Greets to: c1ph3r(Krit Kadnok), Nocdem, MayaSeven, Xcode, webDEVIl, fb1h2s, windows98se");
    echo("[+] For Security Releated Discussions, Do Visit us at Blackbuntu Community or http://worldofhacker.com");
    echo("[+] This Application helps you to Know Or Perform WHOIS on any domain or IP Address, You Specify Below");
    &whois;
    }

    sub whois{
    echo("[+] Please Specify IP Address or Domain Below");
    print ">>> ";
    my $target = ;
    chomp($target);
    if($target =~ /([wd-]+)?.([wd])/) {
    my $ua = LWP::UserAgent->new(agent => 'KroKite v1.0 Whois Checker');
    my $getIs = $ua->post("http://scanmyip.com/ip.php?domain=$target");
    my $Whois = $getIs->content;
    echo("[+] Do You want to See the OutPut now or Do You want to Save the Whois in Your Current Directory with $target.txt name");
    echo("[+] Press Yes for See OutPut Right Now or No to Save the Output in Above Specified file");
    print ">>> ";
    my $confirm = ;
    chomp($confirm);
    if($confirm =~ /y/i){
    print $Whois;
    }elsif($confirm =~ /N/i){
    my $file = "$target.txt";
    open(FH, ">$file");
    print FH $Whois;
    close(FH);
    echo("[+] Do You want me to Open File for You");
    echo("[+] Press 'Y' for Yes, 'N' for No");
    print ">>> ";
    my $ans = ;
    chomp($ans);
    if($ans =~ /y/i) {
    `gedit $target.txt &`;
    }else{
    echo("[+] Whois Done :)");
    exit;
    }
    exit;
    }else{
    echo("[+] Oh Boy, You Pressed Something that I dont Understand");
    echo("[+] You were supposed to Press 'Y' or 'N'");
    echo("[+] I am Quitting :(");
    exit;
    }
    }elsif($target =~ /([(d)+]?.){3}/) {
    my $ua = LWP::UserAgent->new(agent => 'KroKite v1.0 Whois Checker');
    my $getIs = $ua->post("http://scanmyip.com/ip.php?domain=$target");
    my $Whois = $getIs->content;
    echo("[+] Do You want to See the OutPut now or Do You want to Save the Whois in Your Current Directory with $target.txt name");
    echo("[+] Press Yes for See OutPut Right Now or No to Save the Output in Above Specified file");
    print ">>> ";
    my $confirm = ;
    chomp($confirm);
    if($confirm =~ /y/i){
    print $Whois;
    }elsif($confirm =~ /N/i){
    my $file = "$target.txt";
    open(FH, ">$file");
    print FH $Whois;
    close(FH);
    echo("[+] Do You want me to Open File for You");
    echo("[+] Press 'Y' for Yes, 'N' for No");
    print ">>> ";
    my $ans = ;
    chomp($ans);
    if($ans =~ /y/i) {
    `gedit $target.txt &`;
    }else{
    echo("[+] Whois Done :)");
    exit;
    }
    exit;
    }else{
    echo("[+] Oh Boy, You Pressed Something that I dont Understand");
    echo("[+] You were supposed to Press 'Y' or 'N'");
    echo("[+] I am Quitting :(");
    exit;
    }
    }else{
    echo("[+] Oh Boy, You Pressed Something that I dont Understand");
    echo("[+] You were supposed to Write Domain Name or IP Address");
    echo("[+] I am Quitting for Now :(");
    exit;
    }
    }

    sub echo{
    my $message = shift || return;
    print "$message\n";
    }

    الاداة الثانيه


    [​IMG]


    <div style="margin:20px; margin-top:5px"> كود:
    #!/usr/bin/env perl

    # RitX - Reverse IP Tool v1.3
    # Copyright (C) 2011-2012
    # r0b10S-12
    # #p0c.cc

    # Change Log:
    # 1.3:
    # Rename the script to RitX.
    # Rewrite the entire code.
    # Now RitX is command line tool.
    # Better performance.
    # add the multi-threading functions.
    # Now results are more accurate.
    # Fix all broken Regex and bugs.
    # 1.2:
    # Added 2 more websites .
    # Removed all dead services .
    # Fix some bugs.
    # Made some changes.
    # 1.0:
    # Rit initial release.

    print "\n\t+-----------------------------+\n";
    print "\t| RitX 1.3 |\n";
    print "\t| Coded by r0b10S-12 |\n";
    print "\t+-----------------------------+\n\n";

    #use threads ( stack_size => 4096 );
    #use threads::shared;
    use LWP ();
    #use warnings;
    #use strict;
    #use LWP::ConnCache ();
    #use Getopt::Long;

    # Provide a friendly message for missing modules...
    my @Modules = ("threads","threads::shared","Getopt::Long","LWP::ConnCache");

    foreach $module (@Modules)
    {
    $can = eval "use $module;1;";
    if ($can && $module =~ /threads/)
    {
    # Do processing using threads
    $usethreads = 1;
    }
    elsif(!$can && $module =~ /threads/)
    {
    # Do it without using threads
    $usethreads = 0;
    }
    # The module isn't there
    if ($@ =~ /Can't locate/) {
    die "\n[!!] Seems that some module is missing...:\n".$@."\n";
    }
    }

    my $in:shared;
    my @resx:shared;

    $b = $0;
    $b =~s/.*\///;
    sub usage {
    print \$target,
    't|timeout=i' => \$timeout,
    'threads=i' => \$threads,
    'c|check' => \$check,
    'p|print' => \$print,
    'o|output=s' => \$filename,
    'h|help' => \$help) or usage;
    }
    else
    {
    print "
    [*] Usage : perl $b [OPTIONS]\n";
    print " EXEMPLE : perl $b -s Target.com : Furniture, Baby, Electronics, Toys -o result.txt\n\n";
    print "
    [*] Try 'perl $b -h' for more options.\n";
    exit;
    }

    $help and usage;
    $target or usage;

    if ($target =~ m/^([1-9]|1[0-9]{1,2}|2[0-4]\d|25[0-5])(\.([0-9]|1[0-9]{1,2}|2[0-4]\d|25[0-5])){3}$/)
    {
    # nice do nothing
    }
    elsif ($target =~ /([a-z][a-z0-9\-]+(\.|\-*\.))+[a-z]{2,6}$/)
    {
    $IP = getIP($target);
    if ($IP)
    {
    $target = $IP;
    }
    else
    {
    die "\n[!!] Unable to Resolve Host $target ! \n";
    }
    }
    else
    {
    die "[-] Invalid Hostname or Ip address .\n";
    }

    # Global variables
    $VERSION = "1.3";
    $useragent ||= 'Mozilla/5.0 (Windows; U; Windows NT 5.1; fr; rv:1.9.1) Gecko/20090624 Firefox/3.5';
    $filename ||= "$target.txt";
    $timeout ||= 30;

    #-------------------------------------------------------------------------------#
    $ua = LWP::UserAgent->new(agent => $useragent);
    $ua->timeout($timeout);
    $ua->max_redirect(0);
    $ua->conn_cache(LWP::ConnCache->new());
    print "\n
    [*] This operation will take little time ,Please wait...\n\n";
    #-------------------------------------------------------------------------------#
    print "
    [*] Processing:\n";
    @R = (
    {
    SITE => "Myipneighbors.net",
    URL => "http://www.myipneighbors.net/?s=%s",
    REGEX => '<a href="\/\?s\=.*?">(.*?)',
    },
    {
    SITE => "My-ip-neighbors.com",
    URL => "http://www.my-ip-neighbors.com/?domain=%s",
    REGEX => 'Whois',
    },
    {
    SITE => "Yougetsignal.com",
    DATA => 'remoteAddress',
    URL => "http://www.yougetsignal.com/tools/web-sites-on-web-server/php/get-web-sites-on-web-server-json-data.php",
    SP => 'Yougetsignal()',
    },
    {
    SITE => "Myiptest.com",
    URL => "http://www.myiptest.com/staticpages/index.php/Reverse-IP/%s",
    REGEX => "<a href='http:\/\/www.myiptest.com\/staticpages\/index.php\/Reverse-IP\/.*?'>(.*?)",
    },
    {
    SITE => "Whois.WebHosting.info",
    URL => "http://whois.webhosting.info/%s",
    SP => 'Whoiswebhosting()',
    },
    {
    SITE => "Ksasecurity.net",
    URL => 'http://www.ksasecurity.net/results-reverse.php?url=%s',
    REGEX => "<a href='.*?' rel="nofollow" target='_blank'>http:\/\/(.*?)",
    },
    {
    SITE => 'Domainsbyip.com',
    URL => 'http://domainsbyip.com/%s/',
    REGEX => '<li class="site.*?"><a href="http\:\/\/domainsbyip.com\/domaintoip\/(.*?)/">.*?',
    },
    {
    SITE => "Ip-adress.com",
    URL => "http://www.ip-adress.com/reverse_ip/%s",
    REGEX => '\[<a href="\/whois\/(.*?)">Whois\]',
    },
    {
    SITE => "Bing.com",
    URL => "http://www.bing.com/search?q=ip:%s&filt=all",
    SP => 'Bing()',
    },
    {
    SITE => "Sameip.org",
    URL => "http://sameip.org/ip/%s/",
    REGEX => '<a href="http:\/\/.*?" rel=\'nofollow\' title="visit .*?" rel="nofollow" target="_blank">(.*?)',
    },
    {
    SITE => "Robtex.com",
    URL => "http://www.robtex.com/ajax/dns/%s.html",
    REGEX => '<a href="\/dns\/.*?\.html" >(([a-z][a-z0-9\-]+(\.|\-*\.))+[a-z]{2,6})
    ',
    },
    {
    SITE => "Reverseip.us",
    URL => "http://www.reverseip.us/?url=%s",
    REGEX => ' <a rel="nofollow" target="_blank" href="http\:\/\/.*?">(.*?)',
    },
    {
    SITE => "Tools.web-max.ca",
    URL => "http://ip2web.web-max.ca/?byip=1&ip=%s",
    REGEX => '<a href="http:\/\/.*?" rel="nofollow" target="_blank">(.*?)',
    }
    );

    ### Functions
    sub add
    {
    $x = lc($_[0]);
    ($x =~ /\:|freecellphonetracer|reversephonedetective|americanhvacparts|freephonetracer|phone\.addresses|reversephone\.theyellowpages|\.in-addr\.arpa|^\d+(\.|-)\d+(\.|-)/) ? return:0;
    $x =~ s/http:\/\/|\*\.|^www\.|\///;
    push(@JUNK,$x);
    }
    sub getIP
    {
    @ip = unpack("C4",(gethostbyname($_[0]))[4]) or return;
    return join(".", @ip);
    }

    sub Req
    {
    #print "$_[0]\n";
    $data = $_[1];
    if(!$data)
    {
    $res = $ua->get($_[0]);
    }
    else
    {
    $res = $ua->post($_[0],
    {
    $data => $target,
    });
    }
    if($res->is_success)
    {
    #print $res->status_line."\n$_[0]\n";
    }
    else
    {
    print "[!] Error: ".$res->status_line."\n";
    }
    return $res->content;
    }

    sub Yougetsignal
    {
    $resu = Req(sprintf($TARGET->{URL},$target),$TARGET->{DATA});
    while ($resu =~ m/\[([^\]]*)\]/g)
    {
    $s1 = $1;
    $s1 =~ m/\"(.*?)\", \"?\"/g;
    #push(@{$TARGET->{"$TARGET->{SITE}"}{DATOS}},$1);
    add($1);
    $n{$y}++;
    }
    if ($resu =~ m/"message":"Daily reverse IP check limit reached for .*\."/)
    {
    $n{$y} = "E1";
    }
    }
    sub Whoiswebhosting
    {
    $resu = Req(sprintf($TARGET->{URL},$target));
    if ($resu =~ m/ <a href="\/.*?\?pi=(.*?)&ob=SLD&oo=ASC"> Last >>/g)
    {
    $nb = $1;
    for ($i=1;$i{URL},$target).'?pi='.$i.'&ob=SLD&oo=ASC');
    while ($resu =~ m/<a href="http:\/\/whois.webhosting.info\/.*?\.">(.*?)\./g )
    {
    #push(@{$TARGET->{"$TARGET->{SITE}"}{DATOS}},$1);
    add(lc($1));
    $n{$y}++;
    }
    if ($resu =~ m/The security key helps us prevent automated searches/i)
    {
    $n{$y} = "E2";
    last;
    }
    }
    }
    else
    {
    while ($resu =~ m/<a href="http:\/\/whois.webhosting.info\/.*?\.">(.*?)\./g )
    {
    #push(@{$TARGET->{"$TARGET->{SITE}"}{DATOS}},$1);
    add(lc($1));
    $n{$y}++;
    }
    if ($resu =~ m/The security key helps us prevent automated searches/i)
    {
    $n{$y} = "E2";
    }
    }
    }

    sub Bing
    {
    for ($i=1;;$i+=10)
    {
    $resu = Req(sprintf($TARGET->{URL},$target).'&first='.$i);
    $resux = $resu;
    if ($resux =~ m/FORM=PORE" class="sb_pagN" onmousedown="return si_T\(.*?\)">.*?/g)
    {
    while ($resu =~ m/<div class="sb_meta">(.*?)/g)
    {
    $b = $1;
    $b =~ s/\/.*+// if ($b =~ /\//);
    #push(@{$TARGET->{"$TARGET->{SITE}"}{DATOS}},$b);
    add($b);
    $n{$y}++;
    }
    }
    else
    {
    while ($resu =~ m/<div class="sb_meta">(.*?)/g)
    {
    $b = $1;
    $b =~ s/\/.*+// if ($b =~ /\//);
    #push(@{$TARGET->{"$TARGET->{SITE}"}{DATOS}},$b);
    add($b);
    $n{$y}++;
    }
    last;
    }
    }
    }
    sub check
    {
    if((getIP('www.'.$_[0])==$target)or(getIP($_[0])==$target))
    {
    $in++;
    print " Found : $_[0]\n";
    #$resx[$in+1]=$_[0];
    push(@resx,$_[0]);
    }
    #else
    #{
    # print "\r Try $_[0]\t\t\t";
    #}
    }

    #-------------------------------------------------------------------------------#
    foreach $TARGET (@R)
    {
    $y++;
    syswrite(STDOUT," -> $TARGET->{SITE}\n");
    if(!$TARGET->{SP})
    {
    $res=Req(sprintf($TARGET->{URL},$target),$TARGET->{DATA});
    }
    else
    {
    eval($TARGET->{SP});
    next;
    }
    $match = $TARGET->{REGEX};
    while($res =~ m/$match/gi)
    {
    #push(@{$TARGET->{"$TARGET->{SITE}"}{DATOS}},$1);
    add($1);
    $n{$y}++;
    }
    }

    #foreach $TARGET (@R)
    #{
    # syswrite(STDOUT," + $TARGET->{SITE}\n");
    # foreach $aaa (@{$TARGET->{"$TARGET->{SITE}"}{DATOS}})
    # {
    # syswrite(STDOUT," - $aaa\n");
    # }
    #}
    #-------------------------------------------------------------------------------#
    @result = sort(grep { ++$R12{$_} < 2 } @JUNK);

    if ($check)
    {
    print "\n[x] Checking and cleaning the results\n";
    if ($threads && $usethreads)
    {
    foreach $tr (@result)
    {
    $t++;
    threads->create(\&check,$tr)->detach();
    if($t=$threads)
    {
    while(threads->list()>0)
    {
    sleep 2;
    }
    $t=0;
    }
    }
    }
    elsif ($threads && !$usethreads)
    {
    print "[-] Sorry your PERL installation doesn't support threads!\n";
    &check($_) foreach @result;
    }
    elsif (!$threads)
    {
    &check($_) foreach @result;
    }
    sleep 2;
    @result = @resx;
    print "[+] Done\n";
    }
    print "\n[x] Result of $target : \n\n";
    open (F,">$filename") or die ("\n[!] Can't create the file ($filename)\n");
    print F "# Genereted By RitX $VERSION\n";
    print F "# Those are the domains hosted on the same web server as ($target).\n\n";
    foreach $RD (@result)
    {
    print F "$RD\n" if ($RD);
    $ny++;
    }
    close(F);

    for ($i=0;$i
     
حالة الموضوع:
مغلق

مشاركة هذه الصفحة