View previous topic :: View next topic |
Author |
Message |
arash مدير بخش سي
Joined: 27 Nov 2004 Posts: 1232 Location: www.parsx.com
|
Posted: Fri May 06, 2005 7:00 pm Post subject: یک سوال بخاطر یک دوست |
|
|
سلام
من می خواستم از طرف یکی از دوستانم سوالی رو مطرح کنم .
می خواستم بپرسم چجوری می شه به یک دیتابیس وصل شد به شکلی که خود vb پسورد دیتابیس رو برداره و به vb منتقل کنه . |
|
Back to top |
|
|
vahid بي تو هرگز
Joined: 26 Nov 2004 Posts: 3067 Location: Tehran
|
Posted: Sat May 07, 2005 8:47 am Post subject: |
|
|
| Set dbName = OpenDatabase(Path + "\parsx.mdb", False, False, "ODBC;
pwd=mypassword") |
|
|
Back to top |
|
|
unknown مدير بخش ويژوال بيسيك
Joined: 05 Dec 2004 Posts: 439 Location: Tehran
|
Posted: Sat May 07, 2005 8:23 pm Post subject: |
|
|
آرش جان این رمز Access رو پیدا می کنه البته تستش نکردم
|
'Access 95/97 password revealer function.
Private Function XorPassword(Bytes As Variant) As String
Dim XorBytes() As Variant
Dim strPassword As String
Dim intIndex As Integer
Dim CurrChar As String * 1
XorBytes = Array(&H86, &HFB, &HEC, &H37, &H5D, &H44, &H9C, &HFA, &HC6, &H5E, &H28, &HE6, &H13, &HB6, &H8A, &H60, &H54, &H94)
strPassword = vbNullString
intIndex = 0
Do
'Get a character from the password by doing a XOR with the appropriate value in XorBytes array.
CurrChar = Chr$(Bytes(intIndex + &H42) Xor XorBytes(intIndex))
'If we get a Null character, get out of the loop.
If Asc(CurrChar) = 0 Then Exit Do
'Add the password character to the accumulated password string.
strPassword = strPassword & CurrChar
intIndex = intIndex + 1
Loop Until intIndex = 17
XorPassword = strPassword
End Function
Private Function GetAccessPassword(strFilename As String) As String
Dim intFileNum As Integer
Dim Bytes(&H100) As Byte
intFileNum = FreeFile
'Open the Access filename
Open strFilename For Binary As #intFileNum
'Read first 256 bytes
Get #intFileNum, , Bytes
'Get the password from the XorPassword function
GetAccessPassword = XorPassword(Bytes)
Close #intFileNum
End Function |
|
|
Back to top |
|
|
vahid بي تو هرگز
Joined: 26 Nov 2004 Posts: 3067 Location: Tehran
|
Posted: Sat May 07, 2005 9:01 pm Post subject: |
|
|
شنیدیم مردم کتاب خارجی میخرن میخونن ... |
|
Back to top |
|
|
unknown مدير بخش ويژوال بيسيك
Joined: 05 Dec 2004 Posts: 439 Location: Tehran
|
Posted: Sun May 08, 2005 7:26 pm Post subject: |
|
|
بعضی ها می تو نن می خونن
ولی
بعضی ها هم نمی دونم چرا بچه ها رو می پیچونن
( تنها تنها می رن نمایشگاه) |
|
Back to top |
|
|
Iman بابا اينكاره
Joined: 30 Nov 2004 Posts: 474 Location: Tehran
|
Posted: Sun May 08, 2005 10:31 pm Post subject: |
|
|
unknown wrote: |
بعضی ها هم نمی دونم چرا بچه ها رو می پیچونن
( تنها تنها می رن نمایشگاه) |
از كجا معلوم تنها بوده...شايد با ضعيفه رفته |
|
Back to top |
|
|
arash مدير بخش سي
Joined: 27 Nov 2004 Posts: 1232 Location: www.parsx.com
|
Posted: Sun May 08, 2005 11:08 pm Post subject: |
|
|
60% |
|
Back to top |
|
|
arash مدير بخش سي
Joined: 27 Nov 2004 Posts: 1232 Location: www.parsx.com
|
Posted: Sun May 08, 2005 11:11 pm Post subject: |
|
|
60% |
|
Back to top |
|
|
|