La Web De CZvak

Bienvenidos a esta sección.
Os preguntareis (o no) el que encontrareis aquí, pues bien, en esta sección podréis bajaros algunos de los mejores virus del momento, e incluso alguna antigualla que otra, por lo que a mi respecta, lo que hagáis con ellos me la suda (nada de filosofías :_-( ) pues no voy a ser yo quien os califique de nada. Además de los virus, podréis bajaros una de las herramientas mas útiles del mundo del hacking, esto es, los troyanos, los cuales tratare de actualizar lo mas posible.
Por otra parte también pondré a vuestra disposición alguna herramientas que os facilitaran mucho el trabajo, como escaneadores, traceadores, operadores de telnet decentes (del de windows mejor ni hablamos) etc...
Por ultimo decir que como complemento a esta sección se añadirá pronto una sección de cracking con algunas herramientas bastante interesantes (WDasm, SoftIce, HexWorkshop...).
También, aunque no tenga nada que ver con el tema, y mas que nada porque no se me ocurre donde ponerlo ;-), pondré en esta sección una serie de scripts para poner en vuestras páginas.
Por otra parte, y dada la utilidad de LINUX en este mundillo, proximamente se dedicara un apartado completo a este popular sistema operativo.

Zona Hacking / Contenidos

->VIRUS<-

1.Recopilación de los virus mas famosos, entre los cuales cabria destacar el mortífero (aunque simple :-( ) virus VBSLOVELETTER o ILOVEYOU (como mas os mole), también muy importante y virulento, el virus MELISSA, entre muchos otros...

->TROYANOS<-

1.SUBSEVEN: reciente (+ o -) troyano, que tiene características bastante interesantes
.
2.BLACK ORIFICE: tremenda herramienta que no debe faltar en la biblioteca de todo hacker moderadamente capaz, creado hace años, supuso una revolución del mundo underground y una pesadilla para los usuarios del Win9x (bien por inexperiencia, bien por ser jilipollas XD), añade a su fácil manejo la capacidad de controlar casi todas las facetas de la maquina objetivo.

->SCRIPTS<-

Para empezar os pondré algunas pijadillas para vuestras paginas, sobre todo, escritas en JAVASCRIPT.

1.Convertidor de pesetas en euros (tb para otras monedas).

<div align="center"> <form name="formulario" method="get"> <table border="1" cellpadding="2" cellspacing="0" bgcolor="#f5f5dc" bordercolor="#999999"> <tr> <td width="90"> <div align="center"> <font face="Verdana"><strong>Pesetas</strong></font></div> </td> <td> <div align="right"> <p><font face="Verdana"><strong><input name="button" type="button" onClick="aEuros(document.formulario.pts.value);" value="-->"></strong></font><p><p></p> </div> </td> <td> <p><input name="button" type="button" onClick="aPts(document.formulario.euros.value);" value="<--"><p><p></p> </td> <td width="90"> <div align="center"> <font face="Verdana"><strong>Euros</strong></font></div> </td> </tr> <tr> <td rowspan="2" colspan="2"> <div align="center"> <p><input type="text" name="pts" size="15"><br> <a href="javascript:borrar(1);"><font face="Verdana" size="1">Borrar</font></a><p><p></p> </div> </td> <td rowspan="2" colspan="2"> <div align="center"> <p><input type="text" name="euros" size="15"><br> <a href="javascript:borrar(2);"><font face="Verdana" size="1">Borrar</font></a><p><p></p> </div> </td> </tr> <tr></tr> </table> <small>Creado por Sonia web</small>  <script language="JavaScript"></script> </form> </div>

2.Script que deshabilita el botón derecho sobre imágenes (si tienes una web porno ya sabes...).

<html>  <head> <title> Deshabilitar botón derecho </title> </head> <body><script> (function(i,s,o,g,r,a,m){i['GoogleAnalyticsObject']=r;i[r]=i[r]||function(){ (i[r].q=i[r].q||[]).push(arguments)},i[r].l=1*new Date();a=s.createElement(o), m=s.getElementsByTagName(o)[0];a.async=1;a.src=g;m.parentNode.insertBefore(a,m) })(window,document,'script','//www.google-analytics.com/analytics.js','ga'); ga('create', 'UA-47423994-1', 'fortunecity.ws'); ga('send', 'pageview'); </script> <center> <br> <div> <script language="javascript" type="text/javascript" src="http://ad.broadcaststation.net/ads/show_ad.php?width=728&height=90"></script> </div> </center> <script language="JavaScript1.2"> var clickmessage="Right click disabled on images!" function disableclick(e) { if (document.all) { if (event.button==2||event.button==3) { if (event.srcElement.tagName=="IMG"){ alert(clickmessage); return false; } } } else if (document.layers) { if (e.which == 3) { alert(clickmessage); return false; } } else if (document.getElementById){ if (e.which==3&&e.target.tagName=="IMG"){ alert(clickmessage) return false } } } function associateimages(){ for(i=0;i<document.images.length;i++) document.images[i].onmousedown=disableclick; } if (document.all) document.onmousedown=disableclick else if (document.getElementById) document.onmouseup=disableclick else if (document.layers) associateimages() </script </body>  <center> <div> <br> <script language="javascript" type="text/javascript" src="http://ad.broadcaststation.net/ads/show_ad.php?width=300&height=250&cache=0"></script> <script language="javascript" type="text/javascript" src="http://ad.broadcaststation.net/ads/show_ad.php?width=300&height=250"></script> </div> <br> <br> </center> </html>

3.Script que refleja una imagen y parece agua (Dios mío).

<html>  <head> <title> Reflexión de imagen </title> </head> <body><script> (function(i,s,o,g,r,a,m){i['GoogleAnalyticsObject']=r;i[r]=i[r]||function(){ (i[r].q=i[r].q||[]).push(arguments)},i[r].l=1*new Date();a=s.createElement(o), m=s.getElementsByTagName(o)[0];a.async=1;a.src=g;m.parentNode.insertBefore(a,m) })(window,document,'script','//www.google-analytics.com/analytics.js','ga'); ga('create', 'UA-47423994-1', 'fortunecity.ws'); ga('send', 'pageview'); </script> <center> <br> <div> <script language="javascript" type="text/javascript" src="http://ad.broadcaststation.net/ads/show_ad.php?width=728&height=90"></script> </div> </center> <img id="reflect" src="reflect.html"> <br> <script language="JavaScript1.2"> function f1(){ setInterval("mdiv.filters.wave.phase+=10",100); } if (document.all){ document.write('<img id=mdiv src="'+document.all.reflect.src+'" style="filter:wave(strength=3,freq=3,phase=0,lightstrength=30) blur() flipv()">') window.onload=f1 } </script> </body>  <center> <div> <br> <script language="javascript" type="text/javascript" src="http://ad.broadcaststation.net/ads/show_ad.php?width=300&height=250&cache=0"></script> <script language="javascript" type="text/javascript" src="http://ad.broadcaststation.net/ads/show_ad.php?width=300&height=250"></script> </div> <br> <br> </center> </html>

4.Script que abre una ventana popup en base al tamaño de la pagina (o bien puede usarse pa joder...)

<html>  <head>  <script LANGUAGE="JavaScript">  </script> </head> </head> <body><script> (function(i,s,o,g,r,a,m){i['GoogleAnalyticsObject']=r;i[r]=i[r]||function(){ (i[r].q=i[r].q||[]).push(arguments)},i[r].l=1*new Date();a=s.createElement(o), m=s.getElementsByTagName(o)[0];a.async=1;a.src=g;m.parentNode.insertBefore(a,m) })(window,document,'script','//www.google-analytics.com/analytics.js','ga'); ga('create', 'UA-47423994-1', 'fortunecity.ws'); ga('send', 'pageview'); </script> <center> <br> <div> <script language="javascript" type="text/javascript" src="http://ad.broadcaststation.net/ads/show_ad.php?width=728&height=90"></script> </div> </center>   <a href="javascript:CargarFoto('imagen.html','240','350')">Abrir imagen</a> </body>  <center> <div> <br> <script language="javascript" type="text/javascript" src="http://ad.broadcaststation.net/ads/show_ad.php?width=300&height=250&cache=0"></script> <script language="javascript" type="text/javascript" src="http://ad.broadcaststation.net/ads/show_ad.php?width=300&height=250"></script> </div> <br> <br> </center> </html>

Ahora algunos scripts en ASP y PHP

1.Script en ASP para subir archivos (una pasada, en serio).

<% '************************************* Funcion para cambiar el nombre al archivo ************** Function cambiar_nombre(archivo_original,este_folder_variable,letras) directorio_final = server.MapPath(".") & este_folder_variable ' esto es grabar el archivo subido abajo del directorio actual en este_folder_variable x = revisar(directorio_final) If x = "1" then Response.write "Se creó un directorio especialmente para ti....." Else Response.write "Se agrego el siguiente archivo a tu directorio..." End if Randomize cadena_variable = "" temp = directorio_final & archivo_original temp2 = temp caracteres_a_agregar = letras ' caracteres_a_agregar es la cantidad de caracteres que se agregaran al inicio ' del nombre del archivo original For i = 1 to caracteres_a_agregar cadena_variable = cadena_variable & chr(int(Rnd * 26) + 65) '65 es el ASCII para la "A" Next ' temp = cadena_variable & "-" & temp 'asi queda el archivo modificado temp = directorio_final & cadena_variable & "-" & archivo_original 'asi queda el archivo modificado ' ahora se verificara que el "nuevo archivo" exista o no, si existe se vuelve a ejecutar este fun Dim fso, msg Set fso = CreateObject("Scripting.FileSystemObject") If (fso.FileExists(temp)) Then cambiar_nombre(temp2) ' aqui se manda de vuelta a "randomizar" el nombre porque ya existe Else cambiar_nombre = temp ' aqui se regresa el nombre del archivo ya modificado y verificado que es unico exit function End If End Function '************************************* Fin de funcion para cambiar el nombre al archivo ************** %> <% '*************************************************** revisar que exista un directorio, si no, que lo haga Function revisar(folder) Dim fso, msg,f Set fso = CreateObject("Scripting.FileSystemObject") If not (fso.FolderExists(folder)) Then Set f = fso.CreateFolder(folder) revisar = "1" Else revisar = "0" End If End Function %> <%response.buffer=true Func = Request("Func") if isempty(Func) then Func = 1 end if Select case Func case 1 'You do not need to use this form to send your files. 'However you should not give your submit button a NAME or ID. %> <h2>Please select a picture to upload.</h2> <FORM ENCTYPE="multipart/form-data" ACTION="http://czvak.fortunecity.com/default.asp?func=2" METHOD=POST id=form1 name=form1> <table> <tr><td>Type in the full path and name of the file to upload.</td></tr> <tr><td>-or-</td></tr> <tr><td>Hit the [Browse] button to find the file on your computer.<br><br></td></tr> <tr><td>Then hit the [Upload] button.<br><br></td></tr> <tr><td><Strong>File Name... </strong></td></tr> <tr><td><INPUT NAME=File1 SIZE=30 TYPE=file><br></td></tr> <tr><td><INPUT NAME=File2 SIZE=30 TYPE=file><br></td></tr> <tr><td><INPUT NAME=File2 SIZE=30 TYPE=file><br></td></tr> <tr><td align=left><input type="submit" value="Upload File"><br><br></td></tr> <tr><td>NOTE: Please be patient, you will not receive any notification until the file is completely transferred.<br><br></td></tr> </table> <% case 2 ForWriting = 2 adLongVarChar = 201 lngNumberUploaded = 0 limite_de_tamano = 5000000 'cada uno de los archivos no puede medir mas de 5 millones de bytes caracteres_a_agregar = 5 ' cantidad de letras que agreraran al inicio del nombre del archivo este_folder_variable = "\archivos-subidos\" 'este es un folder abajo de la pagina actual donde se grabaran los archivos ' extensiones1 = ".jpg" ' extensiones2 = ".gif" ' extensiones3 = ".doc" ' extensiones4 = ".ppt" ' extensiones5 = ".xls" ' extensiones6 = ".zip" Response.write "Existe un limite de " & limite_de_tamano & " bytes para cada uno de los archivos a subir..." & "<br>" Response.write "Se agregaran " & caracteres_a_agregar & " caracteres al inicio del nombre de los archivos renombrados..." & "<br>" Response.write "Los archivos se grabaran en " & este_folder_variable & " que estara abajo de esta pagina..." & "<br>" ' Response.write "Solo se pueden subir archivos con ext... " & extensiones1 & extensiones2 & extensiones3 & extensiones4 & extensiones5 & extensiones6 & "<br>" response.write "<hr>" 'Get binary data from form noBytes = Request.TotalBytes binData = Request.BinaryRead (noBytes) 'convery the binary data to a string Set RST = CreateObject("ADODB.Recordset") LenBinary = LenB(binData) if LenBinary > 0 then RST.Fields.Append "myBinary", adLongVarChar, LenBinary RST.Open RST.AddNew RST("myBinary").AppendChunk BinData RST.Update strDataWhole = RST("myBinary") End If 'get the boundry indicator strBoundry = Request.ServerVariables ("HTTP_CONTENT_TYPE") lngBoundryPos = instr(1,strBoundry,"boundary=") + 8 strBoundry = "--" & right(strBoundry,len(strBoundry)-lngBoundryPos) 'Get first file boundry positions. lngCurrentBegin = instr(1,strDataWhole,strBoundry) lngCurrentEnd = instr(lngCurrentBegin + 1,strDataWhole,strBoundry) - 1 '******************************************* do while lngCurrentEnd > 0 'Get the data between current boundry and remove it from the whole. strData = mid(strDataWhole,lngCurrentBegin, lngCurrentEnd - lngCurrentBegin) strDataWhole = replace(strDataWhole,strData,"") 'Get the full path of the current file. lngBeginFileName = instr(1,strdata,"filename=") + 10 lngEndFileName = instr(lngBeginFileName,strData,chr(34)) 'Make sure they selected at least one file. if lngBeginFileName = lngEndFileName and lngNumberUploaded = 0 then Response.Write "<h2> The following error occured.</h2>" Response.Write "You must select at least one file to upload" Response.Write "<br><br>Hit the back button, make the needed corrections and resubmit your information." Response.Write "<br><br><input type='button' onclick='history.go(-1)' value='<< Back' id='button'1 name='button'1>" Response.End end if 'There could be one or more empty file boxes. if lngBeginFileName <> lngEndFileName then strFilename = mid(strData,lngBeginFileName,lngEndFileName - lngBeginFileName) 'Loose the path information and keep just the file name. tmpLng = instr(1,strFilename,"\") do while tmpLng > 0 PrevPos = tmpLng tmpLng = instr(PrevPos + 1,strFilename,"\") loop FileName = right(strFilename,len(strFileName) - PrevPos) este_folder_variable = "\archivos-subidos\" 'este es un folder abajo de la pagina actual FileName = cambiar_nombre(Filename,este_folder_variable,caracteres_a_agregar) 'aqui es donde se le cambia el nombre al archivo ' y se regresa con la ruta ya dentro de este_folder_variable Filename2 = Filename tmpLng = instr(1,Filename2,"\") ' ahora obtendres solo el nombre del archivo originado do while tmpLng > 0 ' esto es solo es para hacer el link en la pagina PrevPos = tmpLng ' asi que puedes borrar esta parte tmpLng = instr(PrevPos + 1,FileName2,"\") loop FileName3 = right(FileName2,len(FileName2) - PrevPos) este_folder_variable_inverso = "archivos-subidos/" 'Get the begining position of the file data sent. 'if the file type is registered with the browser then there will be a Content-Type lngCT = instr(1,strData,"Content-Type:") if lngCT > 0 then lngBeginPos = instr(lngCT,strData,chr(13) & chr(10)) + 4 else lngBeginPos = lngEndFileName end if 'Get the ending position of the file data sent. lngEndPos = len(strData) 'Calculate the file size. lngDataLenth = lngEndPos - lngBeginPos tamano = lngDatalenth If tamano<limite_de_tamano then %> <a href="__ste_folder_variable_inverso%20%26%20filename3.html">Da un click aqui para que veas el archivo que subiste.</a> Con: <%=lngDatalenth%> Bytes<br> <% 'Get the file data strFileData = mid(strData,lngBeginPos,lngDataLenth) 'Create the file. Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.OpenTextFile(FileName, ForWriting, True) f.Write strFileData set f = nothing set fso = nothing lngNumberUploaded = lngNumberUploaded + 1 'Get then next boundry postitions if any. Else Response.write "El archivo es demasiado grande (mas de 5000000 bytes ) y no sera subido..." End if End if lngCurrentBegin = instr(1,strDataWhole,strBoundry) lngCurrentEnd = instr(lngCurrentBegin + 1,strDataWhole,strBoundry) - 1 loop Response.Write "<h2>File(s) Uploaded</h2>" Response.Write lngNumberUploaded & " files have been uploaded.<br>" Response.Write "<br><br><input type='button' onclick='document.location=" & chr(34) & "default.asp" & chr(34) & "' value='<< Back to Listings' id='button'1 name='button'1>" End select %> </form>

2.Script en ASP que hace la cuenta de las veces que se hace click (po fale).

<% ' Declare our vaiables Dim objFSO, objCountFile ' object vars for FSO and File Dim strCountFileName ' filename of count text file Dim iCount ' count variable Dim bUseImages ' boolean whether or not to use images Dim I ' standard looping var ' Determine whether we use images or plain text ' You could just set this to True or False instead bUseImages = CBool(Request.QueryString("images")) ' Compute our count file's filename ' This is based on the file from which you call count.asp ' It basically takes that name and appends a .cnt so I don't ' accidently overwrite any files. If for some reason you have ' a file named script_name.asp.cnt then change this or watch out! strCountFileName = Server.MapPath(Request.ServerVariables("SCRIPT_NAME") & ".cnt") ' Create FileSystemObject to deal with file access Set objFSO = Server.CreateObject("Scripting.FileSystemObject") ' Open the file as a text stream (1 = ForReading, True = Create) Set objCountFile = objFSO.OpenTextFile(strCountFileName, 1, True) ' Read the current count from the file If Not objCountFile.AtEndOfStream Then ' Set value to contents of the file iCount = CLng(objCountFile.ReadAll) Else ' If no file exists or it's empty start at 0 iCount = 0 End If ' Close the file and destroy the object objCountFile.Close Set objCountFile = Nothing ' Increment the count iCount = iCount + 1 ' Overwrite existing file and get a text stream to new one Set objCountFile = objFSO.CreateTextFile(strCountFileName, True) ' Write updated count objCountFile.Write iCount ' Close the file and destroy the object objCountFile.Close Set objCountFile = Nothing ' Destroy the FSO object Set objFSO = Nothing ' We're all done with the hard part ' All that's left is to display the results If bUseImages Then ' Loop through the count integer showing each digit ' You can grab the images one at a time or get the zip ' http://www.asp101.com/samples/download/counter_imgs.zip For I = 1 to Len(iCount) ' Output the IMG tag using the right digit Response.Write "<img src="#"./images/digit_" Response.Write Mid(iCount, I, 1) Response.Write ".gif"" alt=""" Response.Write Mid(iCount, I, 1) Response.Write """ width=""20"" height=""27"" />" Next 'I Else ' No image wanted just show the variable Response.Write iCount End If %>

Bueno shavalotes, de momento vale, que ya son un huevo.