• سورس نمایش اطلاعات وبسایت به زبان پرل
    #1
    Note 
    کد php:
    =**************************************
    NameGet Server Header
    Description:This code will get the header of the server and print it out
    ByDamian myerscough
    =
    Inputs:Host
    =
    Returns:Server header
    =
    =
    This code is copyrighted and haslimited warranties.Please see http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=578&lngWId=6=for details.=**************************************

    #!/usr/bin/perl
    #
    #
    use IO::Socket;
    @
    Header;
    print
    "Enter The Host: ";
    $Host = <STDIN>;
    chop($Host);
    $Socket = new IO::Socket::INET(PeerAddr => $Host,
    PeerPort => 80,
    Proto=> 'tcp') || die "Could not Connect $!\n";
    print
    "Connected.\n";
    print
    "Getting Header\n";
    print 
    $Socket "GET / HTTP/1.0\n\n";
    $i 0;
    while(<
    $Socket>)
    {
    @
    Header[$i] = $_;
    $i++;
    }
    system("clear");
    $i 0;
    print
    "+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+\n";
    while(
    $i <= 8)
    {
    print
    " @Header[$i++]\n";
    }
    print
    "+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+\n\n";
    print
    $Host Finished\n"

    پاسخ
    ایجاد موضوع جدید   پاسخ به موضوع  

    موضوعات مرتبط با این موضوع...
    موضوع نویسنده پاسخ بازدید آخرین ارسال
    Note سورس Site crawler به زبان پرل SOFTAFZAR 1 801 17-07-2014 ساعت 14:31
    آخرین ارسال: imanpajand
    Note سورس تبدیل string به hexadecimal SOFTAFZAR 0 699 01-11-2012 ساعت 12:56
    آخرین ارسال: SOFTAFZAR
    Note سورس خواندن فایل متنی به زبان Perl SOFTAFZAR 0 676 15-07-2012 ساعت 18:07
    آخرین ارسال: SOFTAFZAR

    کاربرانِ درحال بازدید از این موضوع:   1 مهمان