1. المٌقدمة الأولي :دورة إختبار ثغرات حقن قواعد البيانات SQLI الإحترافية لعام 2017 عام 2018
    تٌعد ثغرات حقن قواعد البينات الثغرة رقم واحد فى العالم والمصنفة تحت بند الإخطر
    والفريق التابع له بإختراق أكبر المواقع الصهيونية قرائة الموضوع
  2. المٌقدمة الثانية : دورة إختبار ثغرات حقن قواعد البيانات SQLI الإحترافية لعام 2017 عام 2018
    في هذه المٌثقدمة الثانية والأخيرة سوف نتعرف على قواعد علم حقن قواعد البيانات
    حتى يتثنى لنا علم يٌساعدنا على القيام بعمليات الحقن بالطرق الصحيحه قرائة الموضوع
  3. دورة كشف دمج والتلغيم حصريا على أرض عراق تيم(2017)
    بعد ماقمت بعمل دورة الكشف دمج والتلغيم وستكملت الدوره وتحتوي على 12 درس
    كانت دروس حصريا على عراق تيم وشرح واضح جدا ومفهوم الى المبتدأ والى المبدع قرائة الموضوع

ادوات جمع المعلومات عن الاهداف

الموضوع في 'الـقـسـم الـعـام' بواسطة .:: RSS ::., بتاريخ ‏12 سبتمبر 2012.

كاتب الموضوع : .:: RSS ::. المشاهدات : 1,882 الردود : 0 ‏12 سبتمبر 2012
حالة الموضوع:
مغلق
  1. غير متصل

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

    عضو منذ:
    ‏9 سبتمبر 2011
    عدد المشاركات:
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:
    الإقامة:

    <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
     


    جاري تحميل الصفحة...
حالة الموضوع:
مغلق

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

جاري تحميل الصفحة...