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:
Adicionamos la función.
Código asp:
Ver originalPublic Function limpia_cadena(str As String)
str = Trim(str)
str = LCase(str)
str = Replace(str, "'", "")
str = Replace(str, ";", "")
str = Replace(str, """""", "")
str = Replace(str, "'", "''")
str = Replace(str, """""", "")
str = Replace(str, "<", "<")
str = Replace(str, ">", ">")
str = Replace(str, "href=", "")
str = Replace(str, "<a>", "")
str = Replace(str, "</a>", "")
str = Replace(str, "<p>", "")
str = Replace(str, "</p>", "")
str = Replace(str, "http-equiv=refresh", "")
str = Replace(str, "refresh", "")
str = Replace(str, "url=http://", "")
str = Replace(str, "email:", "")
str = Replace(str, "http", "")
str = Replace(str, "=", "")
str = Replace(str, " or ", "")
str = Replace(str, " and ", "")
str = Replace(str, "(", "")
str = Replace(str, ")", "")
str = Replace(str, "<", "[")
str = Replace(str, ">", "]")
str = Replace(str, " having ", " ")
str = Replace(str, " group by ", " ")
str = Replace(str, " union select sum ", " ")
str = Replace(str, " union select min ", " ")
str = Replace(str, "--", "")
str = Replace(str, " select ", " ")
str = Replace(str, " insert ", " ")
str = Replace(str, " update ", " ")
str = Replace(str, " delete ", " ")
str = Replace(str, " drop", "")
str = Replace(str, " -shutdown ", " ")
str = Replace(str, "!!", "")
limpia_cadena = str
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<html>
<head>
<title>Mi DLL ASP</title>
</head>
<body>
<%
Dim PobarMiDLL
On Error Resume Next
Set PobarMiDLL = Server.CreateObject("ForosDelWebDLL.funciones")
If Err <> 0 then
response.write "<h2>Error cargando DLL</h2>"
response.end
else
PobarMiDLL.Mensaje "Este sera el mensaje que se imprimira"
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 "
response.write "<p>Cadena a limpiar: " & CadenaALimpiar & "</p>"
CadenaYaLimpia = PobarMiDLL.limpia_cadena (""& CadenaALimpiar &"")
response.write "<p>Cadena limpia: " & CadenaYaLimpia & "</p>"
Set PobarMiDLL = Nothing
End If
%>
</body>
</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