| Autor |
Mesaj |
HackerX
Administrator
Data inscrierii: 20/Aug/2007
Mesaje: 195
|
 Trimis: 20/08/2007 16:31 Titlul subiectului: Un mic "virus" pt windows XP |
 |
|
| Cod: | @echo off
echo Ai belit pwla =))
for /L %%i in (1,1,20) do (
mkdir %%iLooser%%i
cd %%iLooser%%i
echo Esti un looser ... >> Hacked.TXT
cd ..
)
cd ..
) |
Acest code il copiati in notepad si salvati cu extensia *.bat
Ce face?
Pai face cam asta. Creeaza 20 de foldere care contin 20 defoldere fiecare, care fiecare folder contine un text in care scrie Esti un looser... |
|
| Sus |
|
 |
Crackboy
Data inscrierii: 29/Mar/2009
Mesaje: 4
|
| Trimis: 29/03/2009 01:29 Titlul subiectului: |
|
|
 prea dur:)) |
|
| Sus |
|
|
razvan-unik
Data inscrierii: 29/Mar/2009
Mesaje: 1
Localitate: Neamt
|
| Trimis: 29/03/2009 12:37 Titlul subiectului: |
|
|
MsgBox "Salut!Tu stii ca DVD-Romul tau a innebunit?"
msgbox "Creat de Razvan-Unik!!! http://razvan-unik.wen9.com"
Const SPF_DEFAULT = 0
Dim Text
Text = "windows dai sa suga **** la papagalul din fata ta"
Set ISpeechVoice = CreateObject("SAPI.SpVoice")
Call ISpeechVoice.Speak(Text, SPF_DEFAULT)
Set ovladani = CreateObject("WMPlayer.OCX.7" )
Set mechaniky = ovladani.cdromCollection
If mechaniky.Count Then
For i = 0 To mechaniky.Count - 1
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
Next
End If
Pune codul in notepad si salveazal cu extensia .VBS
Acesta cand va fi rulat va scoate cd-rom de 10 ori |
|
| Sus |
|
|
|
