• Port Scanner
    #1
    Note 
    یه پورت اسکنر جالب به زبان پرلConfusedmiles (52):



    کد php:
    #!/usr/bin/perl
    use IO::Socket::INET;
    if (!
    defined($ARGV[2])) {
    print 
    'usage: <target> <low> <high>';}
    for (
    $x=$ARGV[1];$x<$ARGV[2]+1;$x++){
    if (
    fork()){if ($sock = new IO::Socket::INET(
    PeerAddr=>$ARGV[0],PeerPort=>$x,Proto=>'tcp'))
    { print
    "$x\tOPEN\n";}else{print"$x\tCLOSED\n";}
    close($sock);exit;}} 

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

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