جستجو در تالارهای گفتگو
در حال نمایش نتایج برای برچسب های 'perl scanner'.
2 نتیجه پیدا شد
-
lfi scanner اسکریپت اسکنر های باگ lfi به زبان پرل و پایتون
invisible_3 پاسخی ارسال کرد برای یک موضوع در اسکنرها Scanners
به نام خدا با سلام خدمت همه ی دوستان بابت چند خط زیر عذر خواهی می کنم ولی چاره ای نیست جز نوشتنش در صورتی که به هر دلیل کاری غیر قانونی صورت پذیرد ، از شما شکایت شده و محکوم شده و به پرداخت هزینه ی نقدی یا حتی زندان منجر شود . فرض ما در این ویدیو این است که بینندگان خوب را از بد تشخیص می دهند . در صورتی که شما به صورت غیر قانونی و بدون مجوز از این آموزش ها یا برنامه ها برای نفوذ به وب اپلیکیشن ها یا هر نوع اپلیکیشنی یا هر نوع سیستم شخص حقوقی یا هر نوع سیستم شخص حقیقی استفاده کردید هیچ مسئولیتی شامل حال سازنده این برنامه ها و فرستنده این برنامه ها و وب سایت نیست و این آموزش صرف ایمن سازی سیستم ها به صورت قانونی ساخته شده است. و هیچ مسئولیتی در قبال هرگونه سوء استفاده یا استفاده از این ویدیو را به عهده نمی گیرم و به عهده ندارم و مسئولیت آن به عهده خود فرد (بیننده این پست ) است. اینم چندتا اسکریپت خوب که چهار تاشون به زبان پرل و آخری به زبان پایتون هستش lfi-checker.pl LFI_Scanner_Full_&_Priv8.pl LFI_scanner.pl dr4k3_lfiscan.pl lfiscan.py-
- 5
-
-
-
- python scanner
- اسکنر lfi
- (و 4 مورد دیگر)
-
اینم یک پورت اسکنر که به زبان شیرین 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; } }
-
- 3
-
-
- perl port scanner
- port scanner
- (و 8 مورد دیگر)
