Монголын Цахим Залуусын Ертөнцөд Тавтай Морил !

Ms Exel Sheet пассворд эвдэх арга - Хичээл - - Mongolian Electronic Youth

Монголын Цахим Залуусын Ертөнцөд Тавтай Морил !

Туслах цэс
Харилцах цонх
Цахим блок
Шинэ сэтгэгдэл
2016-10-11
Бичсэн: bagana29
Хаана: Сайн уу? Амьдрал минь Монгол Кино [Шууд үзэх]
2016-10-06
Бичсэн: oji
Хаана: wash
2016-08-17
Бичсэн: MrRobot
Хаана: CMD command
2016-07-29
Бичсэн: mera
Хаана: Firefox-ын хуудас дуудах хурдыг нэмэх
2016-06-23
Бичсэн: monhbold
Хаана: Шилдэг 5 Байлдааны Танк
Хэрэглэгчийн булан
Шилдэг гишүүд
tsogtoo
Мэдээ: 1632
Сэтгэгдэл: 829
Нэр хүнд: 14
Цол:
TOOLS
Мэдээ: 269
Сэтгэгдэл: 721
Нэр хүнд: 1
Цол:
ByAmBaA
Мэдээ: 191
Сэтгэгдэл: 203
Нэр хүнд: 2
Цол:
WINNER
Мэдээ: 147
Сэтгэгдэл: 777
Нэр хүнд: 6
Цол:
sadness
Мэдээ: 120
Сэтгэгдэл: 1450
Нэр хүнд: 3
Цол:
Хуанли
«  12-р сар 2010  »
НяДаМяЛхПүБаБя
   1234
567891011
12131415161718
19202122232425
262728293031
Сурталчилгаа
Cтатистик
Нийт бичлэг:

Сэтгэгдэл: 15953
Хэлэлцүүлэг: 195/1942
Зураг: 538
Онлайн кино: 238
Мэдээ: 3039
Дуу хөгжим: 160
Онлайн тоглоом: 200
Зочдын дэвтэрд: 12

Гишүүдийн статистик:

Нийт: 6421
Эр: 4882
Эм: 1538
Өнөөдөр: 0
Өчигдөр: 0
Сүүлийн 7 хоногт: 0
Сүүлийн 30 хоногт: 10
Өнөөдөр зочилсон:

Яг одоо манай сайтад:
Нийт Онлайнд 6
Зочид 6
Хэрэглэгчид 0
Ms Exel Sheet пассворд эвдэх арга
poster

За юуны өмнө Пассвордтой 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 товчлуурыг дарснаар бүх зүйл хэвийн болох болно.За амжилт !!!


Сэтгэгдэлүүд: 2
2 | WINNER <<< бичсэн | 2010-12-23 | 5:12 PM ( E-mail ) Spam
ajillagaatai l yum bna
+ (0) -
1 | EVolUtioN <<< бичсэн | 2010-12-23 | 12:06 PM Spam
1t medeelel zui dre balai avahne whahah tongue tongue devil devil devil
+ (0) -
Зөвхөн гишүүд сэтгэгдэл үлдээх боломжтой !
[ Бүртгүүлэх | Нэвтрэх ]

Монголын Цахим Залуусын Ертөнцөд Тавтай Морил !

Монголын Цахим Залуусын Ертөнцөд Тавтай Морил !

Монголын Цахим Залуусын Ертөнцөд Тавтай Морил !