Ver Mensaje Individual
  #6 (permalink)  
Antiguo 23/09/2008, 09:20
Avatar de JuanRAPerez
JuanRAPerez
Colaborador
 
Fecha de Ingreso: octubre-2003
Mensajes: 2.393
Antigüedad: 21 años, 5 meses
Puntos: 27
Respuesta: Crear una DLL ActiveX partiendo de mi codigo ASP

continuando con la idea aquí hay una función para limpiar cadenas (la cual puede ser modificada al antojo)

de nuevo abrimos el proyecto y pegamos la siguiente información:

Adicionamos a las declaraciones de variables al inicio de la aplicación:
Código asp:
Ver original
  1. Public str As String

Adicionamos la función.
Código asp:
Ver original
  1. Public Function limpia_cadena(str As String)
  2.     str = Trim(str)
  3.     str = LCase(str)
  4.     str = Replace(str, "'", "")
  5.     str = Replace(str, ";", "")
  6.     str = Replace(str, """""", "")
  7.     str = Replace(str, "'", "''")
  8.     str = Replace(str, """""", "")
  9.     str = Replace(str, "<", "&lt;")
  10.     str = Replace(str, ">", "&gt;")
  11.     str = Replace(str, "href=", "")
  12.     str = Replace(str, "<a>", "")
  13.     str = Replace(str, "</a>", "")
  14.     str = Replace(str, "<p>", "")
  15.     str = Replace(str, "</p>", "")
  16.     str = Replace(str, "http-equiv=refresh", "")
  17.     str = Replace(str, "refresh", "")
  18.     str = Replace(str, "url=http://", "")
  19.     str = Replace(str, "email:", "")
  20.     str = Replace(str, "http", "")
  21.     str = Replace(str, "=", "")
  22.     str = Replace(str, " or ", "")
  23.     str = Replace(str, " and ", "")
  24.     str = Replace(str, "(", "")
  25.     str = Replace(str, ")", "")
  26.     str = Replace(str, "<", "[")
  27.     str = Replace(str, ">", "]")
  28.     str = Replace(str, " having ", " ")
  29.     str = Replace(str, " group by ", " ")
  30.     str = Replace(str, " union select sum ", " ")
  31.     str = Replace(str, " union select min ", " ")
  32.     str = Replace(str, "--", "")
  33.     str = Replace(str, " select ", " ")
  34.     str = Replace(str, " insert ", " ")
  35.     str = Replace(str, " update ", " ")
  36.     str = Replace(str, " delete ", " ")
  37.     str = Replace(str, " drop", "")
  38.     str = Replace(str, " -shutdown ", " ")
  39.     str = Replace(str, "!!", "")
  40.     limpia_cadena = str
  41. End Function

Luego:
+ Generamos la DLL
+ Ejecutamos el BAT de registro
+ Esperamos que termine el Bat

Editamos nuestra página asp y quedaría así:

Código asp:
Ver original
  1. <html>
  2. <head>
  3.     <title>Mi DLL ASP</title>
  4. </head>
  5. <body>
  6.     <%
  7.     Dim PobarMiDLL
  8.     On Error Resume Next
  9.         Set PobarMiDLL = Server.CreateObject("ForosDelWebDLL.funciones")
  10.     If Err <> 0 then
  11.         response.write "<h2>Error cargando DLL</h2>"
  12.         response.end
  13.     else
  14.         PobarMiDLL.Mensaje "Este sera el mensaje que se imprimira"
  15.         CadenaALimpiar = "Esta es la cadena que limpiaremos; así drop la tabla hara un delete de estos comandos ;;;; si o si -- comando insert into mitabla values "
  16.         response.write "<p>Cadena a limpiar: " & CadenaALimpiar & "</p>"
  17.         CadenaYaLimpia = PobarMiDLL.limpia_cadena (""& CadenaALimpiar &"")
  18.         response.write "<p>Cadena limpia: " & CadenaYaLimpia & "</p>"
  19.         Set PobarMiDLL = Nothing
  20.     End If
  21.     %>
  22. </body>
  23. </html>

El resultado en el navegador seria


Dado que las imágenes no las puedo subir a este sitio, y en los sitios que puedo no debo, prometo pronto subir la versión de pdf de este material.

suerte
__________________
JuanRa Pérez
San Salvador, El Salvador

Última edición por JuanRAPerez; 24/09/2008 a las 14:04