View Cisco Jabber History

How To Take Perminit Control Of A Computer Localy From CMD To Abituary Code!
Admin
Site Admin
Posts: 955
Joined: Thu Aug 23, 2007 10:35 am

View Cisco Jabber History

Postby Admin » Wed Oct 11, 2017 9:45 pm

You need to import sqlite reference binary for this to work.

Code: Select all

Imports System.Text.RegularExpressions

Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim strDB As String = "Data Source=" & "C:\Users\USERNAMEGOESHERE\AppData\Local\Cisco\Unified Communications\Jabber\CSF\History\USERNAMEGOESHERE@emc.org.db" & ";pooling=false"
        Using Sqlight As SQLite.SQLiteConnection = New SQLite.SQLiteConnection(strDB)
            Using Sqlcmd As SQLite.SQLiteCommand = Sqlight.CreateCommand()
                Sqlcmd.CommandText = "Select * from history_message order by date desc"
                Sqlight.Open()
                Try
                    Using myReader As SQLite.SQLiteDataReader = Sqlcmd.ExecuteReader()
                        While myReader.Read
                            Dim pattern As String = "(?:<div>)(.+)<\/div>"
                            Dim R As Regex = New Regex(pattern, RegexOptions.IgnoreCase)
                            Dim m As Match = R.Match(myReader.GetString(2))
                            Dim Epoch As Integer = myReader.GetInt32(3)
                            'Debug.WriteLine(myReader.GetString(4) & " - " & FromUnix(Epoch, False) & ":" & m.Groups(1).ToString)
                            Debug.WriteLine(myReader.GetString(4) & " - " & m.Groups(1).ToString)
                        End While
                    End Using
                Catch ex As Exception
                    Debug.WriteLine(ex.Message)
                End Try
            End Using
        End Using
        End
    End Sub
    Public ReadOnly Property Epoch() As DateTime
        Get
            Return New DateTime(1970, 1, 1, 0, 0, 0, DateTimeKind.Utc)
        End Get
    End Property

    Public Function FromUnix(ByVal seconds As Integer, local As Boolean) As DateTime
        Dim dt = Epoch.AddSeconds(seconds)
        If local Then dt = dt.ToLocalTime
        Return dt
    End Function

    Public Function ToUnix(ByVal dt As DateTime) As Integer
        If dt.Kind = DateTimeKind.Local Then dt = dt.ToUniversalTime
        Return CInt((dt - Epoch).TotalSeconds)
    End Function

End Class

Return to “Local Exploits”

Who is online

Users browsing this forum: No registered users and 1 guest