| 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 |
|
|
|
Profile 
Log in to check your private messages | 
FAQ 
Search 
Memberlist 
Usergroups 
Log in
Register
