Foro de elhacker.net

Programación => .NET (C#, VB.NET, ASP) => Mensaje iniciado por: DannyCyl en 24 Agosto 2015, 06:30 am


Título: Buscar Contraseña de Conexion a DB
Publicado por: DannyCyl 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

Título: Re: Buscar Contraseña de Conexion a DB
Publicado por: MCKSys Argentina 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!

Título: Re: Buscar Contraseña de Conexion a DB
Publicado por: DannyCyl 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

Título: Re: Buscar Contraseña de Conexion a DB
Publicado por: MCKSys Argentina 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.

Título: Re: Buscar Contraseña de Conexion a DB
Publicado por: DannyCyl 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

Título: Re: Buscar Contraseña de Conexion a DB
Publicado por: BARTBOSS 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"




Cita de: MCKSys Argentina 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.

Título: Re: Buscar Contraseña de Conexion a DB
Publicado por: MCKSys Argentina 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í (https://www.tutorialspoint.com/compile_vb.net_online.php), 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)

Título: Re: Buscar Contraseña de Conexion a DB
Publicado por: BARTBOSS 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.


Cita de: MCKSys Argentina 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í (https://www.tutorialspoint.com/compile_vb.net_online.php), 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)


Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines