That "Facebook Hacker by ruNe" was fake.
I hacked into his FTP server (ftp://stushepard.st.ohost.de username: stushepard password: idontfeellike)
The files are encrypted, but this should be all you need to decrypt them.


Dim pass As String = "y3t14mn0th1ngm0r3th4n4l1n31ny0urb00k"
    Dim salt As Byte() = New Byte() {2, 8, 0, 8, 2, 4, 0, 6}
    Public Function decryptData(ByVal data As Byte()) As Byte()
        Dim buffer2 As Byte()
        Dim bytes As New Security.Cryptography.Rfc2898DeriveBytes(pass, salt)
        Dim managed As New Security.Cryptography.AesManaged
        managed.Key = bytes.GetBytes(managed.Key.Length)
        managed.IV = bytes.GetBytes(managed.IV.Length)
        Dim stream2 As New IO.MemoryStream
        Dim stream As New Security.Cryptography.CryptoStream(stream2, managed.CreateDecryptor, Security.Cryptography.CryptoStreamMode.Write)
        Try
            Dim buffer As Byte() = data
            stream.Write(buffer, 0, buffer.Length)
            stream.Clear()
            stream.Close()
            managed.Clear()
            buffer2 = stream2.ToArray
        Catch exception1 As Exception
            Microsoft.VisualBasic.CompilerServices.ProjectData.SetProjectError(exception1)
            Dim exception As Exception = exception1
            buffer2 = New Byte() {0}
            Microsoft.VisualBasic.CompilerServices.ProjectData.ClearProjectError()
        End Try
        Return buffer2
    End Function