Avatar billede ttopholm Nybegynder
08. december 2006 - 08:55 Der er 1 løsning

ssl proxy script

Jeg har dette script:

<%
function extract(str)
    Dim querystr, i
    querystr = ""
    myarray = split(str, "?")
   
    for i=1 To Ubound(myarray)
        querystr = querystr & myarray(i)
    next
    returnarray = array(myarray(0), querystr)
    extract = returnarray
end function

Function regex(input, searchstr, replacestr)
    set objRegEx = New RegExp
    objRegEx.Global = True
    objRegEx.IgnoreCase = True
    objRegEx.Pattern = searchstr
    regex = objRegEx.Replace(input, replacestr)
End Function


proxy = "https://localhost:8080/proxy.asp?"
MyArray = extract(Request.QueryString)
url = myarray(0)
querystr = myarray(1)
fetchurl = Request.QueryString

path_prefix = proxy & "http://localhost:8080"


Set HTTP = server.CreateObject("Msxml2.serverXMLHTTP")
HTTP.Open "GET", "" & fetchurl & "" , False, "", ""
HTTP.Send ""
Content = HTTP.ResponseText
Set HTTP = Nothing

if Response.ContentType = "text/html" then
'Til a href
Content = regex(Content,"<a([^>]+)href=""/([^""]*)""","<a$1href=""" & path_prefix & "/$2""")
Content = regex(Content,"<a([^>]+)href='/([^""]*)'","<a$1href=""" & path_prefix & "/$2""")


' til link
Content = regex(Content,"<link([^>]+)href=""/([^""]*)""","<link$1href=""" & path_prefix & "/$2""")
Content = regex(Content,"<link([^>]+)href='/([^""]*)'","<link$1href=""" & path_prefix & "/$2""")
Content = regex(Content,"<link([^>]+)href='http://([^""]*)'","<link$1href=""" & proxy & "http://$2""")
Content = regex(Content,"<link([^>]+)href=""http://([^""]*)""","<link$1href=""" & proxy & "http://$2""")

Content = regex(Content,"src=""http://([^']*)""","src=""" & proxy & "http://$1""")
Content = regex(Content,"src=""/([^""]*)""","src=""" & path_prefix & "/$1""")
Content = regex(Content,"src='http://([^""]*)'","src=""" & proxy & "http://$1""")
Content = regex(Content,"src='/([^']*)'","src=""" & path_prefix & "/$1""")



'Til stylesheet
Content = regex(Content,"url\(([^\)]*)\)","url(" & path_prefix & "/$1)")

end if

Response.Write(Content)
%>

Hvor den omskriver alt til at kører via scriptet, så det kan være bag en  ssl-løsning, men mit problem opstår ved billeder, da de disse også skal vises via ssl proxy'en hvordan gøres dette.
Avatar billede ttopholm Nybegynder
18. februar 2007 - 13:00 #1
Lukker
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester