Visto che Tantissimi di voi sono interessati a non rimetterci le mutandine per un bug dello Snitz vi indico le operazioni che occorre seguire per eliminare il Bug (" Il bug riscontrato permette non solo di accedere alla fonte dei dati degli utenti ma anche a quella degli amministratori !!!!!!!!!!!")
La versione dello Snitz Forum che ha il bug è la 3.0
******* FILE MEMBERS.ASP ********
TROVATE QUESTE RIGHE DI CODICE
if Request.QueryString("method") <> "" then
SortMethod = Request.QueryString("method")
end if
SearchName = Request("M_NAME")
if SearchName = "" then
SearchName = Request.Form("M_NAME")
end if
srchUName = Request("UserName")
srchFName = Request("FirstName")
srchLName = Request("LastName")
srchInitial = Request("INITIAL")
mypage = request("whichpage")
SOSTITUITELE CON
if trim(chkString(Request.QueryString("method"),"SQLString")) <> "" then
SortMethod = trim(chkString(Request.QueryString("method"),"SQLString"))
end if
SearchName = trim(chkString(Request("M_NAME"),"SQLString"))
if SearchName = "" then
SearchName = trim(chkString(Request.Form("M_NAME"),"SQLString"))
end if
srchUName = trim(chkString(Request("UserName"),"SQLString"))
srchFName = trim(chkString(Request("FirstName"),"SQLString"))
srchLName = trim(chkString(Request("LastName"),"SQLString"))
srchInitial = trim(chkString(Request("INITIAL"),"SQLString"))
if IsNumeric(srchUName) <> True then srchUName = "1"
if IsNumeric(srchFName) <> True then srchFName = "0"
if IsNumeric(srchLName) <> True then srchLName = "0"
if IsNumeric(srchInitial) <> True then srchInitial = "0"
mypage = trim(chkString(request("whichpage"),"SQLString"))
**********FILE INC_FUNCTIONS.ASP****
cambiare la seguente riga
sInvalidChars = "!#$%^&*()=+{}[]|\;:/?>,<"
con
sInvalidChars = "!#$%^&*()=+{}[]|\;:/?>,<'"
*********FILE SEARCH.ASP**********
RIGA 125
if cnt < keycnt then strSql = strSql & Request.Form("andor")
CAMBIARE IN
if cnt < keycnt then strSql = strSql & ChkString(Request.Form("andor"), "SQLString")
RIGA 142
if cnt < keycnt then strSql = strSql & Request.Form("andor")
CAMBIARE IN
if cnt < keycnt then strSql = strSql & ChkString(Request.Form("andor"), "SQLString")
RIGA 158
strSql = strSql & " AND " & strTablePrefix & "FORUM.FORUM_ID = " & Request.Form("Forum") & " "
CAMBIARE IN
strSql = strSql & " AND " & strTablePrefix & "FORUM.FORUM_ID = " & ChkString(Request.Form("Forum"), "SQLString") & " "
RIGHE 155-156
strSql = strSql & " AND (" & strMemberTablePrefix & "MEMBERS.MEMBER_ID = " & Request.Form("SearchMember") & " "
strSql = strSql & " OR " & strActivePrefix & "REPLY.R_AUTHOR = " & Request.Form("SearchMember") & ") "
CAMBIARE IN
strSql = strSql & " AND (" & strMemberTablePrefix & "MEMBERS.MEMBER_ID = " & ChkString(Request.Form("SearchMember"), "SQLString") & " "
strSql = strSql & " OR " & strActivePrefix & "REPLY.R_AUTHOR = " & ChkString(Request.Form("SearchMember"), "SQLString") & ") "
************nel file inc_FUNCTIONS.ASP, nel codice riguardante il ReplaceImageTags trovare queste righe
(forse avrete solo le prime due o tre, in tal caso aggiungiete anche le altre CHE VEDETE)
strUrlText = replace(strUrlText, """", "") ' ## filter out "
'## Added to exclude Javascript and other potentially hazardous characters
strUrlText = replace(strUrlText, "&", "", 1, -1, 1) ' ## filter out &
strUrlText = replace(strUrlText, "#", "", 1, -1, 1) ' ## filter out #
strUrlText = replace(strUrlText, ";", "", 1, -1, 1) ' ## filter out ;
strUrlText = replace(strUrlText, "+", "", 1, -1, 1) ' ## filter out +
strUrlText = replace(strUrlText, "(", "", 1, -1, 1) ' ## filter out (
strUrlText = replace(strUrlText, ")", "", 1, -1, 1) ' ## filter out )
strUrlText = replace(strUrlText, "[", "", 1, -1, 1) ' ## filter out [
strUrlText = replace(strUrlText, "]", "", 1, -1, 1) ' ## filter out ]
strUrlText = replace(strUrlText, "=", "", 1, -1, 1) ' ## filter out =
strUrlText = replace(strUrlText, "*", "", 1, -1, 1) ' ## filter out *
strUrlText = replace(strUrlText, "'", "", 1, -1, 1) ' ## filter out '
strUrlText = replace(strUrlText, "javascript", "", 1, -1, 1) ' ## filter out javascript
aggiungete anche queste alla fine
strUrlText = replace(strUrlText, "vbscript", "", 1, -1, 1) ' ## filter out vbscript
strUrlText = replace(strUrlText, "mailto", "", 1, -1, 1) ' ## filter out mailto
P.s : Sono indicate anche le righe a cui fare riferimento però non prendetele per buone così come postate....... magari nel vostro caso tale istruzione si trova 5 o 6 righe prima o dopo
Spero di essere stato utile a qualcuno
Rome Webmaster
