SQLInjectionKiller!!!

Detta borde väl vara en säkert mot sqlinjection eller????

Den borde ju vara ganska säkert att göra så här istället för koden snutten under denna kod

Function SQLInjectionKillers(strWords)

strBadWords = Array("SELECT", "DROP", ";", "--", "INSERT", "DELETE", "xp_", "UNION")
strBadWordsReplace = Array("&#83elect", "&#68rop", "&#59", "&#45-", "&#73nsert", "&#68elete", "&#120p&#95", "&#85nion")
				
For iSQL = 0 to uBound(strBadWords)
	strWords = Replace(strWords, strBadWords(iSQL), strBadWordsReplace(iSQL),1,-1,1)

Next
				
SQLInjectionKillers = strWords
End Function

istället för typ denna

 
Function Fixa(str)
  Fixa  = Replace(Trim(str),"'","''")
End function

den ersätter tydligen vissa tecken i strBadWordsReplace för så här var det inte som jag klistrade in.

Din funktion gör tyvärr ingenting.
SELECT är ekvivalent med select i sql. Inte case-sensitive.

Okej tänkte att om man erstte ord som DROP, INSERT, DELETE så skulle det kanske vara säkert.

Functionen Fixa tecken andvänder jag idag den andra var som sagt var bara en tanke...

Och när du väl säger det så väljer du ju en tabel med select men om man tar bort select ifrån det kan den då funka bra???

Din funktion är inte särskilt vettig. Enda den gör är att modifiera inkommande data vilket kan vara mycket irriterande.

När det handlar om strängar, ersätt ' med ''.
När det handlar om tal, booleans och datum typkonverterar man.

Här finner du lite mer info:
http://www.webforum.nu/showthread.php?s=&postid=1037886#post1037886

Okej och tack för länken du skickade intressant läsning!!!