Perlihatkan Tulisan

Seksi ini mengijinkan Anda untuk melihat semua tulisan yang dibuat oleh anggota ini. Catatan bahwa Anda hanya bisa melihat tulisan yang dibuat dalam area di mana Anda memiliki akses terhadapnya.


Pesan - Metamorphic

Halaman: 1 ... 78 79 80 [81] 82 83
801
Antivirus Lokal Lainnya / Re: KEMO ANTIVIRUS
« pada: Oktober 26, 2010, 07:51:28 PM »
mirip cmc antivirus hehe...
buat flasdisk scanning mirip smadav hehe...
design udh lumayan ok her...
tinggal icon2 yg di atas itu agak sdikit diperbaiki... :-[
hanya saran gan ...  :-bd

802
Konsultasi Virus / Re: Bedah Virus Disini !
« pada: Oktober 26, 2010, 07:31:50 PM »
Ternyata untk smadav rev 8.3.4 udah gk diangGap virus lgI, yg rev 8.1 kemaren di curigai virus ama smadav di (tools-> one virvs by user)

kok bisa?  ???

803
Networking / Re: percepat modem internet lemot
« pada: Oktober 26, 2010, 04:51:28 PM »
banyak juga sekarang yg menggunakan smart(modem)
dan bnyak jg yg mulai mengeluh lemot

baru" ini aq cuba ganti DNS milik mbah google
trnyata lumayan berpengaruh,, walau cuman dikit

mungkin temen" ada trik laen buat ngatasin lemotnya
bagi" dunk
hehehehe

Ikut Nyumbang DNS ya.

68.87.68.170
68.87.64.154


 :-[ love plis

804
Antivirus Lokal Lainnya / Re: KEMO ANTIVIRUS
« pada: Oktober 26, 2010, 01:18:22 PM »
kemo . . . sy coba dlu ya

805
Programming / Re: (Ask) Registry Repair
« pada: Oktober 24, 2010, 07:18:54 PM »
Permisi saya mau nanya..saya kan ceritanya iseng2 bikin AV sendiri nih, terus mentok pas bagian full scan registry for error dan ngerepairnya..bingung nie gmana cara ngescan seluruh isi registry dan ngebenerinnya lagi..saya pake vb6..hehehe kalo ada tutorial, reference ato ada yg baik mo ngasi source codenya, makasih banget sebelonnya...

 :) :)

ini contoh kecil ya tinggal di cocokkan ke windownya.

Kutip
Private Sub fixedregistry_Change()
    Call CreateStringValue(GetClassKey("HKEY_CURRENT_USER"), "Software\Nama Software Kamu", 1, "Checking Registry", Me.fixedregistry.Text)

'lanjutkan disini
End Sub


Tinggal Masuk2in yg ada di regedit registry sesuaikan lalu masuk2in ke file diatas kasih tanda : <- titik koma

versi manual...ada di tanda call..alias per satu registry.
===========================================

ehhhhhhmmmmm.......

Jangan Lupa Minta Klik Tanda Love Ya Hehehe :D

806
Visual Basic / Re: [ASK] Realtime Protection tanpa Dependencies? (VB6)
« pada: Oktober 24, 2010, 07:01:42 PM »
wah, contohnya gimana tuh? bisa kasi contoh ga? maap masih belum terlalu ngerti assembly hehe

ini yang menggunakan bahasa vb silahkan diubah sendiri ya


Kutip
'simple bahasa vb real time protection/

Option Explicit

Private Function FindinEnvironment(File As String) As String


Dim i As Long
Dim P As String

    For i = 1 To 255
        If InStr(1, Environ$(i), "=") > 0 Then
            P = Split(Environ$(i), "=")(1)
            If InStr(1, P, ".") > 0 Then
                'P = GetPath(P) & "\"
            Else 'NOT INSTR(1,...
                If Right$(P, 1) <> "\" Then
                    P = P & "\"
                End If
            End If
            P = Replace$(P, Chr$(34), vbNullString)
            If Dire(P & File & IIf(InStr(1, File, ".") > 0, vbNullString, ".*")) Then
                FindinEnvironment = P & Dir(P & File & IIf(InStr(1, File, ".") > 0, vbNullString, ".*"))
                Exit Function
            End If
        End If
    Next i
    For i = 1 To 255
        If InStr(1, Environ$(i), "=") > 0 Then
            P = Split(Environ$(i), "=")(1)
            If InStr(1, P, ".") > 0 Then
                P = GetPath(P) & "\"
            Else 'NOT INSTR(1,...
                'If Right(P, 1) <> "\" Then P = P & "\"
            End If
            P = Replace$(P, Chr$(34), vbNullString)
            If Dire(P & File & IIf(InStr(1, File, ".") > 0, vbNullString, ".*")) Then
                FindinEnvironment = P & Dir(P & File & IIf(InStr(1, File, ".") > 0, vbNullString, ".*"))
                Exit For
            End If
        End If
    Next i

End Function

Public Function GetProgramFromCommand(ByVal Cmd As String) As String


Dim File As String
Dim P    As String

    'Dim I As Long
    On Error GoTo err
    File = Cmd
    'find rundll32
    If InStr(1, File, "rundll32 ", vbTextCompare) > 0 Then
        File = Split(File, "rundll32 ", , vbTextCompare)(1)
        If InStr(1, File, ",", vbTextCompare) > 0 Then
            File = Split(File, ",")(0)
        End If
    ElseIf InStr(1, File, "rundll32.exe ", vbTextCompare) > 0 Then 'NOT INSTR(1,...
        File = Split(File, "rundll32.exe ", , vbTextCompare)(1)
        If InStr(1, File, ",", vbTextCompare) > 0 Then
            File = Split(File, ",")(0)
        End If
    End If
re:
    'has param
    If InStr(1, File, " ") > 0 Then
        'Has path
        If Right$(Left$(File, 2), 1) = ":" Then
        If UBound(Split(File, " ")) > 0 Then
        If InStr(1, File, ".exe") > 0 Then File = Split(File, ".exe")(0) & ".exe"
        If InStr(1, File, ".com") > 0 Then File = Split(File, ".com")(0) & ".com"
        If InStr(1, File, ".scr") > 0 Then File = Split(File, ".scr")(0) & ".scr"
        If InStr(1, File, ".bat") > 0 Then File = Split(File, ".bat")(0) & ".bat"
        If InStr(1, File, ".pif") > 0 Then File = Split(File, ".pif")(0) & ".pif"
        
        If UBound(Split(File, " ")) > 0 Then
        If InStr(1, File, ".") > 0 Then File = Split(File, ".")(0) & "." & Right(Split(File, ".")(1), 3)
        End If
        
        Else
            File = Split(File, " ")(0)
            End If
            'Has Environmental Var
        ElseIf Left$(File, 1) = "%" Then 'NOT RIGHT$(LEFT$(FILE,...
            File = Replace$(Environ$(Split(File, "%")(1)) & "\" & Split(File, "%")(2), "%", vbNullString)
            GoTo re
            'Has File Ext
        ElseIf InStr(1, File, ".") > 0 Then 'NOT LEFT$(FILE,...
            File = Split(File, " ")(0)
            P = FindinEnvironment(File)
            If LenB(P) Then
                File = P
            End If
            'Dont Have File Ext
        ElseIf InStr(1, File, ".") <= 0 Then 'NOT INSTR(1,...
            File = Split(File, " ")(0)
            P = FindinEnvironment(File)
            If LenB(P) Then
                File = P
            End If
        End If
    End If
    'Dont have param
    If InStr(1, File, " ") <= 0 Then
        'If file exists then ok
        If Dire(File) Then
            GoTo Found
        Else 'DIRE(FILE) = FALSE/0
            'find in its path
            If InStr(1, File, ".") <= 0 Then
                If LenB(Dir(File & ".*")) Then
                    File = IIf(InStr(1, File, ":") > 0, GetPath(File) & "\", vbNullString) & Dir(File & ".*")
                    GoTo Found
                End If
            End If
        End If
        'Has Environmental Var
        If Left$(File, 1) = "%" Then
            File = Replace$(Environ$(Split(File, "%")(1)) & Split(File, "%")(2), "%", vbNullString)
            GoTo re
            'Has File Ext
        ElseIf InStr(1, File, ".") > 0 Then 'NOT LEFT$(FILE,...
            P = FindinEnvironment(File)
            If LenB(P) Then
                File = P
            End If
            'Dont Have File Ext
        ElseIf InStr(1, File, ".") <= 0 Then 'NOT INSTR(1,...
            P = FindinEnvironment(File)
            If LenB(P) Then
                File = P
            End If
        End If
    End If
err:
    err.Clear
Found:
    If Not Dire(File) Then
        'File = File
    End If
    GetProgramFromCommand = File

End Function


'file split dan kegunaan silahkan di ubah sendiri.


Jangan Lupa Klik Love Yah hehehe... Tanda Terima Kasih :D

807
Visual Basic / Re: [ASK] Realtime Protection tanpa Dependencies? (VB6)
« pada: Oktober 24, 2010, 06:15:03 PM »
emang kk pake cara RTP yang mana?

Dicoba kompilasikan dengan bahasa assembly aja gan
gimana ? hehe

808
Antivirus Lokal Lainnya / Re: Antivirus Lokal Baru
« pada: Oktober 24, 2010, 04:17:32 PM »
Silahkan dicoba <=)

http://www.4shared.com/file/VQp6wYJF/Install_BRIGADE_6050.html

Buatan Anak Bangsa Indonesia
Thanks  :-bd

809
Konsultasi Virus / Re: Re: Upload VIRUS ke Forum..
« pada: September 29, 2010, 02:24:18 PM »
Oh Ternyata Disini Toh.. Buat Isi2 Virus Wkwkwkw.... Baru Tau Gue  ;D ;D ;D
Parah !

810
Antivirus Lokal Lainnya / -= Berbagi 1 Virus Untuk Penambahan Signature =-
« pada: September 28, 2010, 04:26:55 PM »
Bagi yg mau berbagi... silahkan....

Dimulai dari BRIGADE TeaM  :-bd

Virus ini Berasal dari Kota Cirebon, Virusnya kecil namun cukup untuk mengobrak abrik komputer yang lengah,
saya udh coba detect pakai Hampir semua AV di Baik Luar maupun Dalam Negeri.
Hampir tidak sama sekali di Deteksi. :o :o
Ini lampiran data dari saya...

ScreenShoot :

ini dari kami :

1 Virus cukup kuat : XadaL.exe

Download disini : http://www.4shared.com/file/EQaIQGXe/XadaL.html


Fungsi virus : merusak dan merekam pergerakan AV lalu memberikan informasi kepada pemilik virus tsb.

====================================
Bagi yg baik ... silahkan berbagi  :-bd :-bd :-bd

Halaman: 1 ... 78 79 80 [81] 82 83