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