It has been a while..

Woi.. lama tak ngepost. hak hak.. Sorry la busy. Sejak kawin nih.. Anak plak ramai.. tu la henjut kuat sangat..adoi.. blog ni ada la aku sharing skit-skit, nak close terus..kijam plak.. nanti ada orang nak buat rujukan ke.. mana taw ann..



Time fly like butterfly, eh.. Take care semua. Maafkan salah dan silap aku.. :'(

Bye ~

XSS - PTPTN blacklist Hacked!

Kali Linux - Cara hidupkan rangkaian

Hari ni test image VMware Kali Linux 1.0.9. Bila dah siap download. Aku pun transfer ke dalam VMware dan mula. Semua berjalan lancar kecuali network-manager tak dapat nak sambung dengan NAT ataupun Bridge yang aku buat. Godek punya godek, ada bug rupanya pada Debian Linux (Base yang Kali Linux guna).

Cara nak selesaikan masalah ni ialah dengan cara berikut:

# leafpad /etc/NetworkManager/NetworkManager.conf

Pada ruang managed=false tukarkan kepada managed=true kemudian save!

# service network-manager restart

Arahan ni untuk 'restart' sambungan rangkaian. Ok cun, dah jalan dan bersambung dengan NAT ataupun Bridge yang dah ditetapkan. Yeaah!

Hacked - UpahBuatSistemPhp.com !

Opss ! 

VB.net : Geo Location

ADDR = IP 'HOLDS IP ADDRESS
    If VALIDATE_IP(ADDR) = True Then 'FUNCTION TO VALIDATE IP BY USING THIS PATTERN: ^(([01]?\d\d?|2[0-4]\d|25[0-5])\.){3}([01]?\d\d?|25[0-5]|2[0-4]\d)$
        BUFFER = SOURCE("http://www.geobytes.com/IpLocator.htm?GetLocation&IpAddress=" & ADDR) 'FUNCTION THAT FETCHES THE URL SOURCE
        DATA = Split(BUFFER, """ value=")
        FLAG = Split(BUFFER, "<a href=" & Chr(34) & "FreeServices.htm" & Chr(34) & "><img border=" & Chr(34) & "0" & Chr(34) & "src=" & Chr(34) & "http://www.geobytes.com/Flags/") 'LAZY XD
        FLAG = Split(FLAG(1), Chr(34))
        PIC = "http://www.geobytes.com/Flags/" & FLAG(0)
        LOAD_PIC PIC 'FUNCTION TO DOWNLOAD THE PICTURE AND DISPLAY IT
        If UBound(DATA()) > 33 Then
            For M = 13 To 34
                DAT = Split(DATA(M), Chr(34))
                GEOLOC.G(Val(M) - 13).Caption = DAT(0) 'GET GEO LOCATIONS AND DISPLAY THEM
                DoEvents
            Next M
        End If
    Else
        MsgBox "INVALID IP!", vbInformation, ""
        GEOLOC.IP.Text = vbNullString
    End If