جستجو در تالارهای گفتگو

در حال نمایش نتایج برای برچسب های 'perl scanner'.



تنظیمات بیشتر جستجو

  • جستجو بر اساس برچسب

    برچسب ها را با , از یکدیگر جدا نمایید.
  • جستجو بر اساس نویسنده

نوع محتوا


تالارهای گفتگو

  • انجمن گاردایران
    • قوانین و اطلاعیه های سایت
    • اخبار هک و امنیت
    • انتقادات و پیشنهادات
  • بخش های خصوصی انجمن گاردایران
    • سوال و جواب های عمومی
    • بخش خصوصی
    • آموزش های تصویری نفوذ به سیستم های شخصی و روشهای مقابله
  • انجمن نفوذ و امنیت
    • آموزش های تصویری
    • آموزش های تصویری سایت ها و سرورها و روشهای مقابله
    • آموزشهای تصویری شبکه و روشهای مقابله
    • حملات شبکه و راههای مقابله
    • DOS , DDOS
    • ویروس ها و تروجان ها
    • متاسپلویت Metasploit
    • ابزارهای امنیتی
    • Shell Script
    • آسیب پذیری های وایرلس
    • اکسپلویت
    • باگ های امنیتی
    • امنیت ایمیلهای شخصی
    • تارگت های تمرینی
    • اسکنرها و ابزارهای هکینگ
  • بخش کرک و رمزنگاری
    • ابزار کرک
    • مقالات و آموزشهای کرک
    • مقالات و آموزشهای رمزنگاری
    • ابزارهای رمزنگاری
    • پروکسی لیست
    • پسورد لیست و کمبو لیست
    • کانفیگ
    • اکانت های کرک شده
  • برنامه نویسی
    • برنامه نویسی
    • برنامه نویسی تحت وب
  • بخش موبایل
    • بخش مخصوص موبایل
    • هک موبایل
  • شبکه
    • Cisco سیسکو
    • نتورک پلاس Netwok+
    • مایکروسافت Microsoft
    • میکروتیک Mikrotik
    • مجازی سازی
    • ابزارهای شبکه و مانیتورینگ
    • فایروال
  • سیستم عامل
  • الکترونيک و روباتيک
  • گرافيک
  • متفرقه

جستجو در ...

نمایش نتایجی که شامل ...


تاریخ ایجاد

  • شروع

    پایان


آخرین بروزرسانی

  • شروع

    پایان


فیلتر بر اساس تعداد ...

تاریخ عضویت

  • شروع

    پایان


گروه


Website URL


Yahoo


Skype


محل سکونت

2 نتیجه پیدا شد

  1. به نام خدا با سلام خدمت همه ی دوستان بابت چند خط زیر عذر خواهی می کنم ولی چاره ای نیست جز نوشتنش در صورتی که به هر دلیل کاری غیر قانونی صورت پذیرد ، از شما شکایت شده و محکوم شده و به پرداخت هزینه ی نقدی یا حتی زندان منجر شود . فرض ما در این ویدیو این است که بینندگان خوب را از بد تشخیص می دهند . در صورتی که شما به صورت غیر قانونی و بدون مجوز از این آموزش ها یا برنامه ها برای نفوذ به وب اپلیکیشن ها یا هر نوع اپلیکیشنی یا هر نوع سیستم شخص حقوقی یا هر نوع سیستم شخص حقیقی استفاده کردید هیچ مسئولیتی شامل حال سازنده این برنامه ها و فرستنده این برنامه ها و وب سایت نیست و این آموزش صرف ایمن سازی سیستم ها به صورت قانونی ساخته شده است. و هیچ مسئولیتی در قبال هرگونه سوء استفاده یا استفاده از این ویدیو را به عهده نمی گیرم و به عهده ندارم و مسئولیت آن به عهده خود فرد (بیننده این پست ) است. اینم چندتا اسکریپت خوب که چهار تاشون به زبان پرل و آخری به زبان پایتون هستش lfi-checker.pl LFI_Scanner_Full_&_Priv8.pl LFI_scanner.pl dr4k3_lfiscan.pl lfiscan.py
  2. RT3N

    perl port scanner پرل اسکریپت

    اینم یک پورت اسکنر که به زبان شیرین perl نوشته شده #!/usr/bin/perl # #################################################################### # FORKING PERL PORT SCANNER # By Jonathan Worthington # This script is made available under the sames terms as Perl itself. # #################################################################### use strict; use warnings; use IO::Socket::INET; #Auto-flush. $| = 1; #Get host. my $host = $ARGV[0]; #Parent thread has no parent. my $parent = 0; #We need a place to store child PIDs. my @children = (); #Port scan host. print "Scanning $host...\n"; my $port; FORK: for ($port=1; $port<=65535; $port++) { #Fork. my $oldpid = $$; my $pid = fork; #If fork failed... if (not defined $pid) { #If resource is not available... if ($! =~ /Resource temporarily unavailable/) { #Reap children. &DoReap; #Retry this port. $port --; } else { #Otherwise, show the error. die "Can't fork: $!\n"; } } elsif ($pid == 0) { #This is the child. Save parent. $parent = $oldpid; #Clearup kids table. @children = (); #We don't want this thread to fork any more. last FORK; } else { #This is the parent. Store child pid to wait on it later. push @children, $pid; } } #If this is a child (i.e. it has a parent)... if ($parent) { #Attempt to connect to $host on $port. my $socket; my $success = eval { $socket = IO::Socket::INET->new( PeerAddr => $host, PeerPort => $port, Proto => 'tcp' ) }; #If the port was opened, say it was and close it. if ($success) { print "Port $port: Open\n"; shutdown($socket, 2); } #Exit. exit 0; } else { #If we're not the kid, we're the parent. Do a reap. &DoReap; } #This sub is the reaper. sub DoReap { while (my $child = shift @children) { waitpid $child, 0; } }