Muitos sites de toques de celular têm seu próprio programa anti-sanguessuga, mas esse programa foi projetado apenas para prevenir cavalheiros, não ladrões. Vamos apresentar brevemente a função: um objeto ASP ServerVariables (variável de ambiente do servidor) é usado. Através desta variável de ambiente, o endereço de download real pode ser obtido e então a integridade do endereço real pode ser destruída por meio de algumas funções simples integradas ao VBS. Alcance a função de enganar o download de software. O código-fonte agora está anexado para que todos possam aprender.
Copie o código do código da seguinte forma:
<% Função DownloadFIle(StrFIle)
StrFIlename=StrFIle
Response.Buffer = Verdadeiro
Resposta.Limpar
Definir S=Server.CreateObJect(ADODB.Stream)
S.Aberto
S.Tipo=1
em caso de erro, retomar próximo
Definir Fso=Server.CreateObJect(ScrIptIng.FIleSystemObJect)
Se não for Fso.FIleExists(StrFIleName) então
From_Url=Cstr(Request.ServerVarIables(HTTP_REFERER))
Serv_Url=Cstr(Request.ServerVarIables(SERVER_NAME))
Se MId(From_Url,8,len(Serv_Url)) <> Serv_Url Então
Response.WrIte O arquivo não existe ou foi excluído.
Resposta.Fim
Terminar se
Response.RedIrect Solicitação.ServerVarIables(HTTP_REFERER)
Resposta.Fim
Terminar se
FileExt=MId(StrFIlename,InStrRev(StrFIleName, .)+1)
Selecione Caso UCase(FIleExt)
Caso ASP, ASA, ASPX, ASAX, MDB, PHP, JSP, SHTML, HTML, HTM, TV, DADOS
From_Url=Cstr(Request.ServerVarIables(HTTP_REFERER))
Serv_Url=Cstr(Request.ServerVarIables(SERVER_NAME))
Se MId(From_Url,8,len(Serv_Url)) <> Serv_Url Então
Response.WrIte O arquivo não existe ou foi excluído.
Resposta.Fim
Terminar se
Response.RedIrect Solicitação.ServerVarIables(HTTP_REFERER)
Resposta.Fim
Finalizar seleção
Definir F=Fso.GetFIle(StrFIlename)
IntFIlelength=F.SIze
s.LoadFromFIle(StrFIlename)
Se errar então
From_Url=Cstr(Request.ServerVarIables(HTTP_REFERER))
Serv_Url=Cstr(Request.ServerVarIables(SERVER_NAME))
Se MId(From_Url,8,len(Serv_Url)) <> Serv_Url Então
Response.WrIte Os dados do arquivo estão incompletos ou danificados.
Resposta.Fim
Terminar se
Response.RedIrect Solicitação.ServerVarIables(HTTP_REFERER)
Resposta.Fim
Terminar se
Definir Upload=Server.CreateObJect(PersIts.Upload)
Se o upload não for nada, então
Response.AddHeader Content-DIsposItIon,anexo;
Response.AddHeader Content-Length,IntFilelength
Response.CharSet=UTF-8
Response.ContentType=aplicativo/x-download
Resposta.BinaryWrite S.Read
Resposta.Flush
S.Fechar
Definir s = Nada
Outro
Upload.SendBinary StrFIlename,True,aplicativo/x-download,Falso
Terminar se
Função final
%>
Use: <%Chamar DownloadFIle(DownloadFIle)%>.