Монголын цахим залуусын нэгдэл!
Site menu
Section categories
Видео бичлэг Сонин хачин
Гар утсанд Программ
Tоглоом Хичээл
График Флэш
Chat Box
Statistics
Нийт Онлайнд 5
Зочид 5
Хэрэглэгчид 0

9:14 AM
Ms Exel Sheet пассворд эвдэх арга

За юуны өмнө Пассвордтой Exel файлаа нээгээд alt+f11 товчлуурыг зэрэг дарна. Ингэснээр дараах цонх нээгдэнэ.

Цонх нээгдсэний дараа VBAProject(Book.xlsx)
                        Sheet1
                        Sheet2 гэсэн хэсгээс
Sheet1 гэсэн дээр 2 товшиж цагаан цонх гарч ирэх ба дараах кодыг

Sub PasswordBreaker()
 
  Dim i As Integer, j As Integer, k As Integer
  Dim l As Integer, m As Integer, n As Integer
  Dim i1 As Integer, i2 As Integer, i3 As Integer
  Dim i4 As Integer, i5 As Integer, i6 As Integer
  On Error Resume Next
  For i = 65 To 66: For j = 65 To 66: For k = 65 To 66
  For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66
  For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66
  For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126
    
       
 ActiveSheet.Unprotect Chr(i) & Chr(j) & Chr(k) & _
      Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
      Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
  If ActiveSheet.ProtectContents = False Then
      MsgBox "One usable password is " & Chr(i) & Chr(j) & _
          Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _
          Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
   ActiveWorkbook.Sheets(1).Select
   Range("a1").FormulaR1C1 = Chr(i) & Chr(j) & _
          Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _
          Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
       Exit Sub
  End If
  Next: Next: Next: Next: Next: Next
  Next: Next: Next: Next: Next: Next


End Sub

хуулж бичээд Exel рүүгээ ороод View цэс рүү ороод Macro-View Macro сонголтыг хийхэд жижиг цонх нээгдэх ба эхний мөрөнд
 Sheet1.PasswordBreaker гэсэн үг харагдах ба тэр цонхноос RUN гэсэн товчлуур дээр дарна. Ингэсний дараа Exel дээрх файл чинь
хэсэг унших ба пассвордыг харуулна.Ингээд OK товчлуурыг дарснаар бүх зүйл хэвийн болох болно.За амжилт !!!


Category: Хичээл | Views: 1425 | Added by: ByAmBaA | Rating: 0.0/0
Total comments: 2
2 WINNER  
0
ajillagaatai l yum bna

1 EVolUtioN  
0
1t medeelel zui dre balai avahne whahah tongue tongue devil devil devil

Only registered users can add comments.
[ Sign Up | Log In ]
Log In
Search
Calendar
«  12-р сар 2010  »
Ня Да Мя Лх Пү Ба Бя
   1234
567891011
12131415161718
19202122232425
262728293031
Entries archive
Site friends
Тохиромжтой дэлгэц: 1440х990+, тохиромжтой хөтөч: Firefox 3+.. , Copyright© 2025 eZaluuS Team.Hosted by uCoz