elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Guía actualizada para evitar que un ransomware ataque tu empresa


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP) (Moderador: kub0x)
| | | |-+  Buscar Contraseña de Conexion a DB
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Buscar Contraseña de Conexion a DB  (Leído 4,449 veces)
DannyCyl

Desconectado Desconectado

Mensajes: 4


Ver Perfil
Buscar Contraseña de Conexion a DB
« en: 24 Agosto 2015, 06:30 am »

Hola a todos!
Espero pueda ayudarme realmente ya no se que hacer ya e intentado lo poco que se. El caso es que tengo un programa en VB .net con una conexion a una base de datos Access, pero esta conexion esta hecho por un modulo el cual crea un archivo Config.ini el cual cifra la contraseña de la base de datos.
Lo que yo necesito es ver la contraseña de la base de datos ya que no la tengo y pues la conexion no la hice yo quisiera me pudieran ayudar para saber la contraseña o saber donde se aloja dicha contraseña a continuacion les paso el codigo del modulo:

Donde aparece subryado deberia de estar la contraseña y en su lugar esta la llamada al modulo hecho antes y este modulo lo que contiene es la declaracion de variables y la Public MASCARA

Un colaborador de un foro me recomendo hacer un proyecto y colocar ahi el Modulo y la classEncriptar y luego ejecutarlo paso a paso pero simplemente no se por donde ver el codio ya lo e intentado  por favor ayuda.


Código
  1. Friend Module ModInicio
  2. Public MascaraDefault As String = "yopiensoentituvivesenmimentesolafijasintreguaatodahora"
  3.  
  4. Public strDNS As String
  5.  
  6. Public strusr As String
  7.  
  8. Public strpwd As String
  9.  
  10. Public strconn As String
  11.  
  12. Public m_mascara As String
  13.  
  14. Public Usuario As String
  15.  
  16. Public Rol As Integer
  17.  
  18. Public DescRol As String
  19.  
  20. Public FechaFin As String
  21.  
  22. Private Function fAsignaMascara() As String
  23. Dim result As String
  24. If Strings.Len(ModInicio.m_mascara) <= 0 Then
  25. result = ModInicio.MascaraDefault
  26. Else
  27. result = ModInicio.m_mascara
  28. End If
  29. Return result
  30. End Function
  31.  
  32. Public Function cifrar(valor As String) As String
  33. Dim result As String
  34. Try
  35. Dim str As String = ModInicio.fAsignaMascara()
  36. Dim text As String = Conversions.ToString(Conversion.Int(9F * VBMath.Rnd() + 1F))
  37. Dim arg_2C_0 As Integer = 1
  38. Dim num As Integer = Strings.Len(valor)
  39. ' The following expression was wrapped in a checked-statement
  40. For i As Integer = arg_2C_0 To num
  41. Dim text2 As String = Conversion.Hex(Strings.Asc(Strings.Mid(valor, i, 1)) + Strings.Asc(Strings.Mid(str, i, 1)))
  42. Select Case Strings.Len(text2)
  43. Case 1
  44. text = text + "00" + text2
  45. Case 2
  46. text = text + "0" + text2
  47. Case 3
  48. text += text2
  49. End Select
  50. Next
  51. result = text
  52. Catch expr_A1 As System.Exception
  53. ProjectData.SetProjectError(expr_A1)
  54. Dim ex As System.Exception = expr_A1
  55. Interaction.MsgBox("Error en funcion cifrar " & vbCrLf + ex.Message, MsgBoxStyle.OkOnly, Nothing)
  56. result = Nothing
  57. ProjectData.ClearProjectError()
  58. End Try
  59. Return result
  60. End Function
  61.  
  62. Public Function descifrar(valor As String) As String
  63. ' The following expression was wrapped in a checked-statement
  64. Dim result As String
  65. Try
  66. Dim str As String = ModInicio.fAsignaMascara()
  67. Dim text As String = ""
  68. Dim str2 As String = Strings.Mid(valor, 2, Strings.Len(Strings.Trim(valor)))
  69. Dim arg_2B_0 As Integer = 1
  70. Dim num As Integer = Strings.Len(valor) - 1
  71. For i As Integer = arg_2B_0 To num Step 3
  72. text += Conversions.ToString(Strings.Chr(System.Convert.ToInt32(Decimal.Subtract(Conversions.ToDecimal("&H" + Strings.Mid(str2, i, 3)), New Decimal(Strings.Asc(Strings.Mid(str, Strings.Len(text) + 1, 1)))))))
  73. Next
  74. result = text
  75. Catch expr_89 As System.Exception
  76. ProjectData.SetProjectError(expr_89)
  77. Dim ex As System.Exception = expr_89
  78. Interaction.MsgBox("Error en funcion descifrar " & vbCrLf + ex.Message, MsgBoxStyle.OkOnly, Nothing)
  79. result = Nothing
  80. ProjectData.ClearProjectError()
  81. End Try
  82. Return result
  83. End Function
  84.  
  85. Public Function App_Path() As String
  86. Return System.Environment.CurrentDirectory
  87. End Function
  88.  
  89. Public Sub Conexion()
  90. Try
  91. Dim classEncriptar As ClassEncriptar = New ClassEncriptar()
  92. AddressOf classEncriptar.Archivo = ModInicio.App_Path() + "\config.ini"
  93. ModInicio.strDNS = classEncriptar.LeeIni("DBMS", "DSN")
  94. ModInicio.strusr = ModInicio.descifrar(classEncriptar.LeeIni("DBMS", "USER"))
  95. ModInicio.strpwd = ModInicio.descifrar(classEncriptar.LeeIni("DBMS", "PASS"))
  96. ModInicio.strconn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\DB_Coleccion.accdb;Persist Security Info=False;Jet OLEDB:Database Password="+ ModInicio.strpwd + ";"
  97. Catch expr_7F As System.Exception
  98. ProjectData.SetProjectError(expr_7F)
  99. Dim ex As System.Exception = expr_7F
  100. Interaction.MsgBox("Error en funcion Conexion - Modulo Inicio " & vbCrLf + ex.Message, MsgBoxStyle.OkOnly, Nothing)
  101. ProjectData.ClearProjectError()
  102. End Try
  103. End Sub
  104. End Module


Mod: Los códigos deben ir en etiquetas GeSHi, movido cada tema tiene su subforo


« Última modificación: 24 Agosto 2015, 06:47 am por DannyCyl » En línea

MCKSys Argentina
Moderador Global
***
Desconectado Desconectado

Mensajes: 5.513


Diviértete crackeando, que para eso estamos!


Ver Perfil
Re: Buscar Contraseña de Conexion a DB
« Respuesta #1 en: 24 Agosto 2015, 07:21 am »

Hola!

Por lo que veo, la pass está en el file Config.ini. Al parecer, está en fomrato INI, osea que debería ser algo como:

Código:
[DBMS]
PASS=EstaEsLaPassword

Donde EstaEsLaPassword sería la pass cifrada, la cual descifras con la función descifrar (cosa muy sencilla pues tienes todo el fuente).

Además, si la base es un MDB (Access), puedes sacar la pass fácilmente con tooles de recuperación de pass, como, por ej., Passware Kit Enterprise o Forensics (búscalos con Google).

Saludos!


« Última modificación: 24 Agosto 2015, 07:58 am por MCKSys Argentina » En línea

MCKSys Argentina

"Si piensas que algo está bien sólo porque todo el mundo lo cree, no estás pensando."

DannyCyl

Desconectado Desconectado

Mensajes: 4


Ver Perfil
Re: Buscar Contraseña de Conexion a DB
« Respuesta #2 en: 24 Agosto 2015, 07:29 am »

Hola.
antes que nada gracias por tomarte el tiempo de responder.
te cuento, ya  he buscado otras pero en formato .mdb pero esta esta en formato .accdb el cual  he intentado con varios programas para buscar el pass pero no he tenido buenos resultados, intentare con los que me dices.

La pas si esta en un archivo Config.ini, pero no se como hacer esa funcion para desencriptarla, pues apenas me estoy iniciando en este lenguaje

[DBMS]

USER= "50BA0D30DD0D20D3"
PASS= "70BD09F0BE0AD0980C40A30C30A60920A60990A50AA"
esto contiene el archivo .ini

Saludos
En línea

MCKSys Argentina
Moderador Global
***
Desconectado Desconectado

Mensajes: 5.513


Diviértete crackeando, que para eso estamos!


Ver Perfil
Re: Buscar Contraseña de Conexion a DB
« Respuesta #3 en: 24 Agosto 2015, 07:57 am »

Hola!

Prueba con esta pass:

Código:
D0ND3V0TA$2015

Usé este código para sacarla (1 Form con 1 botón):

Código
  1. Public Class Form1
  2.  
  3.    Public Function descifrar(valor As String) As String
  4.        Dim result As String
  5.        Try
  6.            Dim str As String = "yopiensoentituvivesenmimentesolafijasintreguaatodahora"
  7.            Dim text As String = ""
  8.            Dim str2 As String = Strings.Mid(valor, 2, Strings.Len(Strings.Trim(valor)))
  9.            Dim arg_2B_0 As Integer = 1
  10.            Dim num As Integer = Strings.Len(valor) - 1
  11.            Dim a As Decimal = 0
  12.            Dim b As Decimal = 0
  13.  
  14.            For i As Integer = arg_2B_0 To num Step 3
  15.                Dim s As String = Strings.Mid(str2, i, 3)
  16.                a = System.Convert.ToInt32(s, 16)
  17.                b = Strings.Asc(Strings.Mid(str, Strings.Len(text) + 1, 1))
  18.                text += System.Convert.ToString(Strings.Chr(System.Convert.ToInt32(Decimal.Subtract(a, b))))
  19.            Next
  20.            result = text
  21.        Catch expr_89 As System.Exception
  22.            Dim ex As System.Exception = expr_89
  23.            Interaction.MsgBox("Error en funcion descifrar " & vbCrLf + ex.Message, MsgBoxStyle.OkOnly, Nothing)
  24.            result = Nothing
  25.        End Try
  26.        Return result
  27.    End Function
  28.  
  29.    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
  30.        Debug.Print(descifrar("70BD09F0BE0AD0980C40A30C30A60920A60990A50AA"))
  31.    End Sub
  32. End Class
  33.  

Saludos!

PD: El valor sale en la ventana de Output.
En línea

MCKSys Argentina

"Si piensas que algo está bien sólo porque todo el mundo lo cree, no estás pensando."

DannyCyl

Desconectado Desconectado

Mensajes: 4


Ver Perfil
Re: Buscar Contraseña de Conexion a DB
« Respuesta #4 en: 24 Agosto 2015, 08:00 am »

Gracias
Enserio te debo la vida

muchas gracias si funciono!!!!!


gracias me haz ayudado como no tienes idea mil gracias
En línea

BARTBOSS

Desconectado Desconectado

Mensajes: 2


Ver Perfil
Re: Buscar Contraseña de Conexion a DB
« Respuesta #5 en: 11 Febrero 2019, 23:40 pm »

Hola, buenas tardes.  soy nuevo en esto de programar. ya intente de todas las formas  y no puedo obtener el pass.

USER= "50BA0D30DD0D20D3"
PASS= "70BD0BE0BE0AD0980C40C20C30A60920A60990A50AD"




Hola!

Prueba con esta pass:

Código:
D0ND3V0TA$2015

Usé este código para sacarla (1 Form con 1 botón):

Código
  1. Public Class Form1
  2.  
  3.    Public Function descifrar(valor As String) As String
  4.        Dim result As String
  5.        Try
  6.            Dim str As String = "yopiensoentituvivesenmimentesolafijasintreguaatodahora"
  7.            Dim text As String = ""
  8.            Dim str2 As String = Strings.Mid(valor, 2, Strings.Len(Strings.Trim(valor)))
  9.            Dim arg_2B_0 As Integer = 1
  10.            Dim num As Integer = Strings.Len(valor) - 1
  11.            Dim a As Decimal = 0
  12.            Dim b As Decimal = 0
  13.  
  14.            For i As Integer = arg_2B_0 To num Step 3
  15.                Dim s As String = Strings.Mid(str2, i, 3)
  16.                a = System.Convert.ToInt32(s, 16)
  17.                b = Strings.Asc(Strings.Mid(str, Strings.Len(text) + 1, 1))
  18.                text += System.Convert.ToString(Strings.Chr(System.Convert.ToInt32(Decimal.Subtract(a, b))))
  19.            Next
  20.            result = text
  21.        Catch expr_89 As System.Exception
  22.            Dim ex As System.Exception = expr_89
  23.            Interaction.MsgBox("Error en funcion descifrar " & vbCrLf + ex.Message, MsgBoxStyle.OkOnly, Nothing)
  24.            result = Nothing
  25.        End Try
  26.        Return result
  27.    End Function
  28.  
  29.    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
  30.        Debug.Print(descifrar("70BD09F0BE0AD0980C40A30C30A60920A60990A50AA"))
  31.    End Sub
  32. End Class
  33.  

Saludos!

PD: El valor sale en la ventana de Output.
En línea

MCKSys Argentina
Moderador Global
***
Desconectado Desconectado

Mensajes: 5.513


Diviértete crackeando, que para eso estamos!


Ver Perfil
Re: Buscar Contraseña de Conexion a DB
« Respuesta #6 en: 12 Febrero 2019, 00:19 am »

Hola!

El código que puse te resuelve el problema, sólo debes cambiar el valor que dió el otro usuario por el tuyo y ejecutarlo en Visual Studio.

Si no dispones de Visual Studio, puedes ejecutar el código aquí, pero quedaría de otra forma:

Código
  1. Module VBModule
  2.    Public Function descifrar(valor As String) As String
  3.        Dim result As String
  4.        Try
  5.            Dim str As String = "yopiensoentituvivesenmimentesolafijasintreguaatodahora"
  6.            Dim text As String = ""
  7.            Dim str2 As String = Strings.Mid(valor, 2, Strings.Len(Strings.Trim(valor)))
  8.            Dim arg_2B_0 As Integer = 1
  9.            Dim num As Integer = Strings.Len(valor) - 1
  10.            Dim a As Decimal = 0
  11.            Dim b As Decimal = 0
  12.  
  13.            For i As Integer = arg_2B_0 To num Step 3
  14.                Dim s As String = Strings.Mid(str2, i, 3)
  15.                a = System.Convert.ToInt32(s, 16)
  16.                b = Strings.Asc(Strings.Mid(str, Strings.Len(text) + 1, 1))
  17.                text += System.Convert.ToString(Strings.Chr(System.Convert.ToInt32(Decimal.Subtract(a, b))))
  18.            Next
  19.            result = text
  20.        Catch expr_89 As System.Exception
  21.            Dim ex As System.Exception = expr_89
  22.            Interaction.MsgBox("Error en funcion descifrar " & vbCrLf + ex.Message, MsgBoxStyle.OkOnly, Nothing)
  23.            result = Nothing
  24.        End Try
  25.        Return result
  26.    End Function
  27.  
  28.    Sub Main()
  29.        Console.WriteLine(descifrar("70BD0BE0BE0AD0980C40C20C30A60920A60990A50AD"))
  30.    End Sub
  31.  
  32. End Module
  33.  

Saludos!

PD: De la pass, sólo ha cambiado 1 caracter.  ;)

EDIT: Te he respondido, pero no deberías responder en temas tan viejos. Lee las reglas del foro antes de seguir posteando (link en mi firma)
« Última modificación: 12 Febrero 2019, 00:21 am por MCKSys Argentina » En línea

MCKSys Argentina

"Si piensas que algo está bien sólo porque todo el mundo lo cree, no estás pensando."

BARTBOSS

Desconectado Desconectado

Mensajes: 2


Ver Perfil
Re: Buscar Contraseña de Conexion a DB
« Respuesta #7 en: 12 Febrero 2019, 00:34 am »

Muchas gracia.  Por supuesto leeré las  reglas. y me esta facinando esto de la programación. me pasare más seguido por este foro. Muchas Gracias.. saludos.


Hola!

El código que puse te resuelve el problema, sólo debes cambiar el valor que dió el otro usuario por el tuyo y ejecutarlo en Visual Studio.

Si no dispones de Visual Studio, puedes ejecutar el código aquí, pero quedaría de otra forma:

Código
  1. Module VBModule
  2.    Public Function descifrar(valor As String) As String
  3.        Dim result As String
  4.        Try
  5.            Dim str As String = "yopiensoentituvivesenmimentesolafijasintreguaatodahora"
  6.            Dim text As String = ""
  7.            Dim str2 As String = Strings.Mid(valor, 2, Strings.Len(Strings.Trim(valor)))
  8.            Dim arg_2B_0 As Integer = 1
  9.            Dim num As Integer = Strings.Len(valor) - 1
  10.            Dim a As Decimal = 0
  11.            Dim b As Decimal = 0
  12.  
  13.            For i As Integer = arg_2B_0 To num Step 3
  14.                Dim s As String = Strings.Mid(str2, i, 3)
  15.                a = System.Convert.ToInt32(s, 16)
  16.                b = Strings.Asc(Strings.Mid(str, Strings.Len(text) + 1, 1))
  17.                text += System.Convert.ToString(Strings.Chr(System.Convert.ToInt32(Decimal.Subtract(a, b))))
  18.            Next
  19.            result = text
  20.        Catch expr_89 As System.Exception
  21.            Dim ex As System.Exception = expr_89
  22.            Interaction.MsgBox("Error en funcion descifrar " & vbCrLf + ex.Message, MsgBoxStyle.OkOnly, Nothing)
  23.            result = Nothing
  24.        End Try
  25.        Return result
  26.    End Function
  27.  
  28.    Sub Main()
  29.        Console.WriteLine(descifrar("70BD0BE0BE0AD0980C40C20C30A60920A60990A50AD"))
  30.    End Sub
  31.  
  32. End Module
  33.  

Saludos!

PD: De la pass, sólo ha cambiado 1 caracter.  ;)

EDIT: Te he respondido, pero no deberías responder en temas tan viejos. Lee las reglas del foro antes de seguir posteando (link en mi firma)
En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Contraseña en Conexion WinSock
Programación Visual Basic
CGST 1 1,516 Último mensaje 20 Febrero 2011, 06:42 am
por BlackZeroX
conexion ssh por key sin contraseña en windows
Redes
annubis 2 2,255 Último mensaje 24 Septiembre 2012, 05:18 am
por annubis
¿Se puede buscar la contraseña de su Facebook?
Foro Libre
dermot 2 1,994 Último mensaje 11 Septiembre 2013, 00:53 am
por beholdthe
Problema al buscar MENSAJE DE ERROR: CONTRASEÑA INCORRECTA. « 1 2 »
Ingeniería Inversa
indi.co 17 9,361 Último mensaje 8 Octubre 2014, 08:05 am
por indi.co
Conexion a pagina web con contraseña (java)
Java
Mivi 4 3,823 Último mensaje 31 Mayo 2017, 11:30 am
por Mivi
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines