comment
IRC Chat
play_arrow
Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

[VB.NET] Opera Password Viewer

  • 0 Respuestas
  • 1667 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado fudmario

  • *
  • Cramel
  • *
  • Mensajes: 193
  • Actividad:
    1.67%
  • Reputación 11
    • Ver Perfil
    • fudmario - GitHub
  • Skype: fudmario
« en: Diciembre 07, 2016, 11:06:08 pm »
Opera Test: Versión 41.0.2353.69 (WoW64)



Se necesita de la Clase SqliteHandler, la pueden copiar de You are not allowed to view links. Register or Login


Código: vb.net
  1. Dim loginPath As String = Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData), "Opera Software\Opera Stable\Login Data")
  2. Dim sb As New StringBuilder
  3. Dim sqlDataBase As New SqLiteHandler(loginPath)
  4.       sqlDataBase.ReadTable("logins")
  5. Dim count As Integer = sqlDataBase.GetRowCount()
  6. For i = 0 To count - 1
  7.                 Dim mUrl As String = sqlDataBase.GetValue(i, "origin_url")
  8.                 Dim mUserName As String = sqlDataBase.GetValue(i, "username_value")
  9.                 Dim mPassword As String = Decode(sqlDataBase.GetValue(i, "password_value"))
  10.                 sb.AppendLine("User: " & mUserName)
  11.                 sb.AppendLine("Url: " & mUrl)
  12.                 sb.AppendLine("Password: " & mPassword)
  13. Next i
  14.  
  15. Messagebox.Show(sb.ToString)
  16.  

Para decifrar las contraseñas, agregar Referencias a: System.Security e Importar: System.Security.Cryptography

Código: vb.net
  1.     Private Function Decode(ByVal data As String) As String
  2.         If String.IsNullOrEmpty(data) Then
  3.             Return String.Empty
  4.         Else
  5.             Dim encryptedData As Byte() = Encoding.Default.GetBytes(data)
  6.             Dim decryptedData As Byte() = ProtectedData.Unprotect(encryptedData, Nothing, DataProtectionScope.CurrentUser)
  7.             Return Encoding.UTF8.GetString(decryptedData)
  8.         End If
  9.     End Function
  10.  



SQLiteHandler Class:


Código: vb.net
  1.  
  2. ' ***********************************************************************
  3. ' Assembly         : SQLiteHandler
  4. ' Author           : ??????
  5. ' Created          : ??-??-????
  6. '' ***********************************************************************
  7.  
  8. Imports System.IO
  9. Imports System.Runtime.InteropServices
  10. Imports Microsoft.VisualBasic.CompilerServices
  11. Public Class SqLiteHandler
  12.     Private db_bytes As Byte()
  13.     Private mEncoding As ULong
  14.     Private field_names As String()
  15.     Private master_table_entries As sqlite_master_entry()
  16.     Private page_size As UShort
  17.     Private SQLDataTypeSize As Byte() = New Byte() {0, 1, 2, 3, 4, 6, 8, 8, 0, 0}
  18.     Private table_entries As table_entry()
  19.  
  20.     Public Sub New(baseName As String)
  21.         If File.Exists(baseName) Then
  22.             FileSystem.FileOpen(1, baseName, OpenMode.Binary, OpenAccess.Read, OpenShare.[Shared], -1)
  23.             Dim str As String = Strings.You are not allowed to view links. Register or Login(CInt(FileSystem.You are not allowed to view links. Register or Login(1)))
  24.             FileSystem.FileGet(1, str, -1L, False)
  25.             FileSystem.FileClose(New Integer() {1})
  26.             Me.db_bytes = System.Text.Encoding.Default.GetBytes(str)
  27.             If String.Compare(System.Text.Encoding.Default.GetString(Me.db_bytes, 0, 15), "SQLite format 3", StringComparison.Ordinal) <> 0 Then
  28.                 Throw New Exception("Not a valid SQLite 3 Database File")
  29.             End If
  30.             If Me.db_bytes(&H34) <> 0 Then
  31.                 Throw New Exception("Auto-vacuum capable database is not supported")
  32.             End If
  33.             Me.page_size = CUShort(Me.ConvertToInteger(&H10, 2))
  34.             Me.mEncoding = Me.ConvertToInteger(&H38, 4)
  35.             If Decimal.Compare(New Decimal(Me.mEncoding), Decimal.Zero) = 0 Then
  36.                 Me.mEncoding = 1L
  37.             End If
  38.             Me.ReadMasterTable(100L)
  39.         End If
  40.     End Sub
  41.  
  42.     Private Function ConvertToInteger(startIndex As Integer, Size As Integer) As ULong
  43.         If (Size > 8) Or (Size = 0) Then
  44.             Return 0L
  45.         End If
  46.         Dim num2 As ULong = 0L
  47.         Dim num4 As Integer = Size - 1
  48.         For i As Integer = 0 To num4
  49.             num2 = (num2 << 8) Or Me.db_bytes(startIndex + i)
  50.         Next
  51.         Return num2
  52.     End Function
  53.  
  54.     Private Function CVL(startIndex As Integer, endIndex As Integer) As Long
  55.         endIndex += 1
  56.         Dim buffer As Byte() = New Byte(7) {}
  57.         Dim num4 As Integer = endIndex - startIndex
  58.         Dim flag As Boolean = False
  59.         If (num4 = 0) Or (num4 > 9) Then
  60.             Return 0L
  61.         End If
  62.         If num4 = 1 Then
  63.             buffer(0) = CByte(Me.db_bytes(startIndex) And &H7F)
  64.             Return BitConverter.ToInt64(buffer, 0)
  65.         End If
  66.         If num4 = 9 Then
  67.             flag = True
  68.         End If
  69.         Dim num2 As Integer = 1
  70.         Dim num3 As Integer = 7
  71.         Dim index As Integer = 0
  72.         If flag Then
  73.             buffer(0) = Me.db_bytes(endIndex - 1)
  74.             endIndex -= 1
  75.             index = 1
  76.         End If
  77.         Dim num7 As Integer = startIndex
  78.         Dim i As Integer = endIndex - 1
  79.         While i >= num7
  80.             If (i - 1) >= startIndex Then
  81.                 buffer(index) = CByte((CByte(Me.db_bytes(i) >> ((num2 - 1) And 7)) And (CInt(&HFF) >> num2)) Or CByte(Me.db_bytes(i - 1) << (num3 And 7)))
  82.                 num2 += 1
  83.                 index += 1
  84.                 num3 -= 1
  85.             ElseIf Not flag Then
  86.                 buffer(index) = CByte(CByte(Me.db_bytes(i) >> ((num2 - 1) And 7)) And (CInt(&HFF) >> num2))
  87.             End If
  88.             i += -1
  89.         End While
  90.         Return BitConverter.ToInt64(buffer, 0)
  91.     End Function
  92.  
  93.     Public Function GetRowCount() As Integer
  94.         Return Me.table_entries.Length
  95.     End Function
  96.  
  97.     Public Function GetTableNames() As String()
  98.         Dim strArray2 As String() = Nothing
  99.         Dim index As Integer = 0
  100.         Dim num3 As Integer = Me.master_table_entries.Length - 1
  101.         For i As Integer = 0 To num3
  102.             If Me.master_table_entries(i).item_type = "table" Then
  103.                 strArray2 = DirectCast(Utils.CopyArray(DirectCast(strArray2, Array), New String(index) {}), String())
  104.                 strArray2(index) = Me.master_table_entries(i).item_name
  105.                 index += 1
  106.             End If
  107.         Next
  108.         Return strArray2
  109.     End Function
  110.  
  111.     Public Function GetValue(row_num As Integer, field As Integer) As String
  112.         If row_num >= Me.table_entries.Length Then
  113.             Return Nothing
  114.         End If
  115.         If field >= Me.table_entries(row_num).content.Length Then
  116.             Return Nothing
  117.         End If
  118.         Return Me.table_entries(row_num).content(field)
  119.     End Function
  120.  
  121.     Public Function GetValue(row_num As Integer, field As String) As String
  122.         Dim num As Integer = -1
  123.         Dim length As Integer = Me.field_names.Length - 1
  124.         For i As Integer = 0 To length
  125.             If Me.field_names(i).ToLower().CompareTo(field.ToLower()) = 0 Then
  126.                 num = i
  127.                 Exit For
  128.             End If
  129.         Next
  130.         If num = -1 Then
  131.             Return Nothing
  132.         End If
  133.         Return Me.GetValue(row_num, num)
  134.     End Function
  135.  
  136.     Private Function GVL(startIndex As Integer) As Integer
  137.         If startIndex > Me.db_bytes.Length Then
  138.             Return 0
  139.         End If
  140.         Dim num3 As Integer = startIndex + 8
  141.         For i As Integer = startIndex To num3
  142.             If i > (Me.db_bytes.Length - 1) Then
  143.                 Return 0
  144.             End If
  145.             If (Me.db_bytes(i) And &H80) <> &H80 Then
  146.                 Return i
  147.             End If
  148.         Next
  149.         Return (startIndex + 8)
  150.     End Function
  151.  
  152.     Private Function IsOdd(value As Long) As Boolean
  153.         Return ((value And 1L) = 1L)
  154.     End Function
  155.  
  156.     Private Sub ReadMasterTable(Offset As ULong)
  157.         If Me.db_bytes(CInt(Offset)) = 13 Then
  158.             Dim num2 As UShort = Convert.ToUInt16(Decimal.Subtract(New Decimal(Me.ConvertToInteger(Convert.ToInt32(Decimal.Add(New Decimal(Offset), 3D)), 2)), Decimal.One))
  159.             Dim length As Integer = 0
  160.             If Me.master_table_entries IsNot Nothing Then
  161.                 length = Me.master_table_entries.Length
  162.                 Me.master_table_entries = DirectCast(Utils.CopyArray(DirectCast(Me.master_table_entries, Array), New sqlite_master_entry((Me.master_table_entries.Length + num2)) {}), sqlite_master_entry())
  163.             Else
  164.                 Me.master_table_entries = New sqlite_master_entry(num2) {}
  165.             End If
  166.             Dim num13 As Integer = num2
  167.             For i As Integer = 0 To num13
  168.                 Dim num As ULong = Me.ConvertToInteger(Convert.ToInt32(Decimal.Add(Decimal.Add(New Decimal(Offset), 8D), New Decimal(i * 2))), 2)
  169.                 If Decimal.Compare(New Decimal(Offset), 100D) <> 0 Then
  170.                     num += Offset
  171.                 End If
  172.                 Dim endIndex As Integer = Me.GVL(CInt(num))
  173.                 Dim num7 As Long = Me.CVL(CInt(num), endIndex)
  174.                 Dim num6 As Integer = Me.GVL(Convert.ToInt32(Decimal.Add(Decimal.Add(New Decimal(num), Decimal.Subtract(New Decimal(endIndex), New Decimal(num))), Decimal.One)))
  175.                 Me.master_table_entries(length + i).row_id = Me.CVL(Convert.ToInt32(Decimal.Add(Decimal.Add(New Decimal(num), Decimal.Subtract(New Decimal(endIndex), New Decimal(num))), Decimal.One)), num6)
  176.                 num = Convert.ToUInt64(Decimal.Add(Decimal.Add(New Decimal(num), Decimal.Subtract(New Decimal(num6), New Decimal(num))), Decimal.One))
  177.                 endIndex = Me.GVL(CInt(num))
  178.                 num6 = endIndex
  179.                 Dim num5 As Long = Me.CVL(CInt(num), endIndex)
  180.                 Dim numArray As Long() = New Long(4) {}
  181.                 Dim index As Integer = 0
  182.                 Do
  183.                     endIndex = num6 + 1
  184.                     num6 = Me.GVL(endIndex)
  185.                     numArray(index) = Me.CVL(endIndex, num6)
  186.                     If numArray(index) > 9L Then
  187.                         If Me.IsOdd(numArray(index)) Then
  188.                             numArray(index) = CLng(Math.Round(CDbl(CDbl(numArray(index) - 13L) / 2.0)))
  189.                         Else
  190.                             numArray(index) = CLng(Math.Round(CDbl(CDbl(numArray(index) - 12L) / 2.0)))
  191.                         End If
  192.                     Else
  193.                         numArray(index) = Me.SQLDataTypeSize(CInt(numArray(index)))
  194.                     End If
  195.                     index += 1
  196.                 Loop While index <= 4
  197.                 If Decimal.Compare(New Decimal(Me.mEncoding), Decimal.One) = 0 Then
  198.                     Me.master_table_entries(length + i).item_type = System.Text.Encoding.Default.GetString(Me.db_bytes, Convert.ToInt32(Decimal.Add(New Decimal(num), New Decimal(num5))), CInt(numArray(0)))
  199.                 ElseIf Decimal.Compare(New Decimal(Me.mEncoding), 2D) = 0 Then
  200.                     Me.master_table_entries(length + i).item_type = System.Text.Encoding.Unicode.GetString(Me.db_bytes, Convert.ToInt32(Decimal.Add(New Decimal(num), New Decimal(num5))), CInt(numArray(0)))
  201.                 ElseIf Decimal.Compare(New Decimal(Me.mEncoding), 3D) = 0 Then
  202.                     Me.master_table_entries(length + i).item_type = System.Text.Encoding.BigEndianUnicode.GetString(Me.db_bytes, Convert.ToInt32(Decimal.Add(New Decimal(num), New Decimal(num5))), CInt(numArray(0)))
  203.                 End If
  204.                 If Decimal.Compare(New Decimal(Me.mEncoding), Decimal.One) = 0 Then
  205.                     Me.master_table_entries(length + i).item_name = System.Text.Encoding.Default.GetString(Me.db_bytes, Convert.ToInt32(Decimal.Add(Decimal.Add(New Decimal(num), New Decimal(num5)), New Decimal(numArray(0)))), CInt(numArray(1)))
  206.                 ElseIf Decimal.Compare(New Decimal(Me.mEncoding), 2D) = 0 Then
  207.                     Me.master_table_entries(length + i).item_name = System.Text.Encoding.Unicode.GetString(Me.db_bytes, Convert.ToInt32(Decimal.Add(Decimal.Add(New Decimal(num), New Decimal(num5)), New Decimal(numArray(0)))), CInt(numArray(1)))
  208.                 ElseIf Decimal.Compare(New Decimal(Me.mEncoding), 3D) = 0 Then
  209.                     Me.master_table_entries(length + i).item_name = System.Text.Encoding.BigEndianUnicode.GetString(Me.db_bytes, Convert.ToInt32(Decimal.Add(Decimal.Add(New Decimal(num), New Decimal(num5)), New Decimal(numArray(0)))), CInt(numArray(1)))
  210.                 End If
  211.                 Me.master_table_entries(length + i).root_num = CLng(Me.ConvertToInteger(Convert.ToInt32(Decimal.Add(Decimal.Add(Decimal.Add(Decimal.Add(New Decimal(num), New Decimal(num5)), New Decimal(numArray(0))), New Decimal(numArray(1))), New Decimal(numArray(2)))), CInt(numArray(3))))
  212.                 If Decimal.Compare(New Decimal(Me.mEncoding), Decimal.One) = 0 Then
  213.                     Me.master_table_entries(length + i).sql_statement = System.Text.Encoding.Default.GetString(Me.db_bytes, Convert.ToInt32(Decimal.Add(Decimal.Add(Decimal.Add(Decimal.Add(Decimal.Add(New Decimal(num), New Decimal(num5)), New Decimal(numArray(0))), New Decimal(numArray(1))), New Decimal(numArray(2))), New Decimal(numArray(3)))), CInt(numArray(4)))
  214.                 ElseIf Decimal.Compare(New Decimal(Me.mEncoding), 2D) = 0 Then
  215.                     Me.master_table_entries(length + i).sql_statement = System.Text.Encoding.Unicode.GetString(Me.db_bytes, Convert.ToInt32(Decimal.Add(Decimal.Add(Decimal.Add(Decimal.Add(Decimal.Add(New Decimal(num), New Decimal(num5)), New Decimal(numArray(0))), New Decimal(numArray(1))), New Decimal(numArray(2))), New Decimal(numArray(3)))), CInt(numArray(4)))
  216.                 ElseIf Decimal.Compare(New Decimal(Me.mEncoding), 3D) = 0 Then
  217.                     Me.master_table_entries(length + i).sql_statement = System.Text.Encoding.BigEndianUnicode.GetString(Me.db_bytes, Convert.ToInt32(Decimal.Add(Decimal.Add(Decimal.Add(Decimal.Add(Decimal.Add(New Decimal(num), New Decimal(num5)), New Decimal(numArray(0))), New Decimal(numArray(1))), New Decimal(numArray(2))), New Decimal(numArray(3)))), CInt(numArray(4)))
  218.                 End If
  219.             Next
  220.         ElseIf Me.db_bytes(CInt(Offset)) = 5 Then
  221.             Dim num11 As UShort = Convert.ToUInt16(Decimal.Subtract(New Decimal(Me.ConvertToInteger(Convert.ToInt32(Decimal.Add(New Decimal(Offset), 3D)), 2)), Decimal.One))
  222.             Dim num14 As Integer = num11
  223.             For j As Integer = 0 To num14
  224.                 Dim startIndex As UShort = CUShort(Me.ConvertToInteger(Convert.ToInt32(Decimal.Add(Decimal.Add(New Decimal(Offset), 12D), New Decimal(j * 2))), 2))
  225.                 If Decimal.Compare(New Decimal(Offset), 100D) = 0 Then
  226.                     Me.ReadMasterTable(Convert.ToUInt64(Decimal.Multiply(Decimal.Subtract(New Decimal(Me.ConvertToInteger(startIndex, 4)), Decimal.One), New Decimal(Me.page_size))))
  227.                 Else
  228.                     Me.ReadMasterTable(Convert.ToUInt64(Decimal.Multiply(Decimal.Subtract(New Decimal(Me.ConvertToInteger(CInt(Offset + startIndex), 4)), Decimal.One), New Decimal(Me.page_size))))
  229.                 End If
  230.             Next
  231.             Me.ReadMasterTable(Convert.ToUInt64(Decimal.Multiply(Decimal.Subtract(New Decimal(Me.ConvertToInteger(Convert.ToInt32(Decimal.Add(New Decimal(Offset), 8D)), 4)), Decimal.One), New Decimal(Me.page_size))))
  232.         End If
  233.     End Sub
  234.  
  235.     Public Function ReadTable(TableName As String) As Boolean
  236.         Dim index As Integer = -1
  237.         Dim length As Integer = Me.master_table_entries.Length - 1
  238.         For i As Integer = 0 To length
  239.             If String.Compare(Me.master_table_entries(i).item_name.ToLower(), TableName.ToLower(), StringComparison.Ordinal) = 0 Then
  240.                 index = i
  241.                 Exit For
  242.             End If
  243.         Next
  244.         If index = -1 Then
  245.             Return False
  246.         End If
  247.         Dim strArray As String() = Me.master_table_entries(index).sql_statement.Substring(Me.master_table_entries(index).sql_statement.IndexOf("(", StringComparison.Ordinal) + 1).You are not allowed to view links. Register or Login(New Char() {","c})
  248.         Dim num6 As Integer = strArray.Length - 1
  249.         For j As Integer = 0 To num6
  250.             strArray(j) = (strArray(j)).TrimStart()
  251.             Dim num4 As Integer = strArray(j).IndexOf(" ", StringComparison.Ordinal)
  252.             If num4 > 0 Then
  253.                 strArray(j) = strArray(j).Substring(0, num4)
  254.             End If
  255.             If strArray(j).IndexOf("UNIQUE", StringComparison.Ordinal) = 0 Then
  256.                 Exit For
  257.             End If
  258.             Me.field_names = DirectCast(Utils.CopyArray(DirectCast(Me.field_names, Array), New String(j) {}), String())
  259.             Me.field_names(j) = strArray(j)
  260.         Next
  261.         Return Me.ReadTableFromOffset(CULng((Me.master_table_entries(index).root_num - 1L) * Me.page_size))
  262.     End Function
  263.  
  264.     Private Function ReadTableFromOffset(offset As ULong) As Boolean
  265.         If Me.db_bytes(CInt(offset)) = 13 Then
  266.             Dim num2 As Integer = Convert.ToInt32(Decimal.Subtract(New Decimal(Me.ConvertToInteger(Convert.ToInt32(Decimal.Add(New Decimal(offset), 3D)), 2)), Decimal.One))
  267.             Dim length As Integer = 0
  268.             If Me.table_entries IsNot Nothing Then
  269.                 length = Me.table_entries.Length
  270.                 Me.table_entries = DirectCast(Utils.CopyArray(DirectCast(Me.table_entries, Array), New table_entry((Me.table_entries.Length + num2)) {}), table_entry())
  271.             Else
  272.                 Me.table_entries = New table_entry(num2) {}
  273.             End If
  274.             Dim num16 As Integer = num2
  275.             For i As Integer = 0 To num16
  276.                 Dim _fieldArray As record_header_field() = Nothing
  277.                 Dim num As ULong = Me.ConvertToInteger(Convert.ToInt32(Decimal.Add(Decimal.Add(New Decimal(offset), 8D), New Decimal(i * 2))), 2)
  278.                 If Decimal.Compare(New Decimal(offset), 100D) <> 0 Then
  279.                     num += offset
  280.                 End If
  281.                 Dim endIndex As Integer = Me.GVL(CInt(num))
  282.                 Dim num9 As Long = Me.CVL(CInt(num), endIndex)
  283.                 Dim num8 As Integer = Me.GVL(Convert.ToInt32(Decimal.Add(Decimal.Add(New Decimal(num), Decimal.Subtract(New Decimal(endIndex), New Decimal(num))), Decimal.One)))
  284.                 Me.table_entries(length + i).row_id = Me.CVL(Convert.ToInt32(Decimal.Add(Decimal.Add(New Decimal(num), Decimal.Subtract(New Decimal(endIndex), New Decimal(num))), Decimal.One)), num8)
  285.                 num = Convert.ToUInt64(Decimal.Add(Decimal.Add(New Decimal(num), Decimal.Subtract(New Decimal(num8), New Decimal(num))), Decimal.One))
  286.                 endIndex = Me.GVL(CInt(num))
  287.                 num8 = endIndex
  288.                 Dim num7 As Long = Me.CVL(CInt(num), endIndex)
  289.                 Dim num10 As Long = Convert.ToInt64(Decimal.Add(Decimal.Subtract(New Decimal(num), New Decimal(endIndex)), Decimal.One))
  290.                 Dim j As Integer = 0
  291.                 While num10 < num7
  292.                     _fieldArray = DirectCast(Utils.CopyArray(DirectCast(_fieldArray, Array), New record_header_field(j) {}), record_header_field())
  293.                     endIndex = num8 + 1
  294.                     num8 = Me.GVL(endIndex)
  295.                     _fieldArray(j).type = Me.CVL(endIndex, num8)
  296.                     If _fieldArray(j).type > 9L Then
  297.                         _fieldArray(j).size = If(Me.IsOdd(_fieldArray(j).type), CLng(Math.Round(CDbl(CDbl(_fieldArray(j).type - 13L) / 2.0))), CLng(Math.Round(CDbl(CDbl(_fieldArray(j).type - 12L) / 2.0))))
  298.                     Else
  299.                         _fieldArray(j).size = Me.SQLDataTypeSize(CInt(_fieldArray(j).type))
  300.                     End If
  301.                     num10 = (num10 + (num8 - endIndex)) + 1L
  302.                     j += 1
  303.                 End While
  304.                 Me.table_entries(length + i).content = New String((_fieldArray.Length - 1)) {}
  305.                 Dim num4 As Integer = 0
  306.                 Dim num17 As Integer = _fieldArray.Length - 1
  307.                 For k As Integer = 0 To num17
  308.                     If _fieldArray(k).type > 9L Then
  309.                         If Not Me.IsOdd(_fieldArray(k).type) Then
  310.                             If Decimal.Compare(New Decimal(Me.mEncoding), Decimal.One) = 0 Then
  311.                                 Me.table_entries(length + i).content(k) = System.Text.Encoding.Default.GetString(Me.db_bytes, Convert.ToInt32(Decimal.Add(Decimal.Add(New Decimal(num), New Decimal(num7)), New Decimal(num4))), CInt(_fieldArray(k).size))
  312.                             ElseIf Decimal.Compare(New Decimal(Me.mEncoding), 2D) = 0 Then
  313.                                 Me.table_entries(length + i).content(k) = System.Text.Encoding.Unicode.GetString(Me.db_bytes, Convert.ToInt32(Decimal.Add(Decimal.Add(New Decimal(num), New Decimal(num7)), New Decimal(num4))), CInt(_fieldArray(k).size))
  314.                             ElseIf Decimal.Compare(New Decimal(Me.mEncoding), 3D) = 0 Then
  315.                                 Me.table_entries(length + i).content(k) = System.Text.Encoding.BigEndianUnicode.GetString(Me.db_bytes, Convert.ToInt32(Decimal.Add(Decimal.Add(New Decimal(num), New Decimal(num7)), New Decimal(num4))), CInt(_fieldArray(k).size))
  316.                             End If
  317.                         Else
  318.                             Me.table_entries(length + i).content(k) = System.Text.Encoding.Default.GetString(Me.db_bytes, Convert.ToInt32(Decimal.Add(Decimal.Add(New Decimal(num), New Decimal(num7)), New Decimal(num4))), CInt(_fieldArray(k).size))
  319.                         End If
  320.                     Else
  321.                         Me.table_entries(length + i).content(k) = Conversions.ToString(Me.ConvertToInteger(Convert.ToInt32(Decimal.Add(Decimal.Add(New Decimal(num), New Decimal(num7)), New Decimal(num4))), CInt(_fieldArray(k).size)))
  322.                     End If
  323.                     num4 += CInt(_fieldArray(k).size)
  324.                 Next
  325.             Next
  326.         ElseIf Me.db_bytes(CInt(offset)) = 5 Then
  327.             Dim num14 As UShort = Convert.ToUInt16(Decimal.Subtract(New Decimal(Me.ConvertToInteger(Convert.ToInt32(Decimal.Add(New Decimal(offset), 3D)), 2)), Decimal.One))
  328.             Dim num18 As Integer = num14
  329.             For m As Integer = 0 To num18
  330.                 Dim num13 As UShort = CUShort(Me.ConvertToInteger(Convert.ToInt32(Decimal.Add(Decimal.Add(New Decimal(offset), 12D), New Decimal(m * 2))), 2))
  331.                 Me.ReadTableFromOffset(Convert.ToUInt64(Decimal.Multiply(Decimal.Subtract(New Decimal(Me.ConvertToInteger(CInt(offset + num13), 4)), Decimal.One), New Decimal(Me.page_size))))
  332.             Next
  333.             Me.ReadTableFromOffset(Convert.ToUInt64(Decimal.Multiply(Decimal.Subtract(New Decimal(Me.ConvertToInteger(Convert.ToInt32(Decimal.Add(New Decimal(offset), 8D)), 4)), Decimal.One), New Decimal(Me.page_size))))
  334.         End If
  335.         Return True
  336.     End Function
  337.  
  338.     <StructLayout(LayoutKind.Sequential)>
  339.     Private Structure record_header_field
  340.         Public size As Long
  341.         Public type As Long
  342.     End Structure
  343.  
  344.     <StructLayout(LayoutKind.Sequential)>
  345.     Private Structure sqlite_master_entry
  346.         Public row_id As Long
  347.         Public item_type As String
  348.         Public item_name As String
  349.         Public astable_name As String
  350.         Public root_num As Long
  351.         Public sql_statement As String
  352.     End Structure
  353.  
  354.     <StructLayout(LayoutKind.Sequential)>
  355.     Private Structure table_entry
  356.         Public row_id As Long
  357.         Public content As String()
  358.     End Structure
  359. End Class
  360.  
  361.  



Descarga del Proyecto Ejemplo: You are not allowed to view links. Register or Login
« Última modificación: Diciembre 07, 2016, 11:22:47 pm por fudmario »


 

¿Te gustó el post? COMPARTILO!



[VB.NET] WifiHelper(Password Dumper) By fudmario

Iniciado por fudmario

Respuestas: 3
Vistas: 2183
Último mensaje Marzo 29, 2017, 05:07:36 pm
por s1sm0x0
[VB.NET] Chrome Password Viewer

Iniciado por fudmario

Respuestas: 6
Vistas: 2775
Último mensaje Marzo 31, 2018, 10:43:27 pm
por Som€body