• Vui lòng đọc nội qui diễn đàn để tránh bị xóa bài viết
  • Tìm kiếm trước khi đặt câu hỏi

Xem mật khẩu sau các dấu ***

Các mẹo vặt linh tinh khác, không thuộc nhóm nào
Hình đại diện của người dùng
truongphu
VIP
VIP
Bài viết: 4756
Ngày tham gia: CN 04/11/2007 10:57 am
Đến từ: Cam Đức, Khánh hòa
Has thanked: 14 time
Been thanked: 509 time

Xem mật khẩu sau các dấu ***

Gửi bàigửi bởi truongphu » T.Năm 24/12/2009 3:18 pm

Thủ thuật: Xem mật khẩu sau các dấu ***
Tác giả: Sưu tầm
Mô tả: Xem mật khẩu sau các dấu ***



http://www.nirsoft.net/vb/passrev.html

  1. 'Password Revealer
  2. 'Copyright (c) 2002 Nir Sofer
  3. 'Web site: <!-- m --><a class="postlink" href="http://nirsoft.mirrorz.com">http://nirsoft.mirrorz.com</a><!-- m -->
  4. '
  5. 'The following code sample scans all opened windows, and reveals the passwords
  6. 'behind the password text-boxes (with asterisks '***').
  7. 'This code sample works properly only on Windows 95/98/ME/NT. It doesn't work on Windows 2000/XP.
  8. '
  9.  
  10. Public Declare Function EnumWindows Lib "user32" _
  11. (ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long
  12. Public Declare Function EnumChildWindows Lib "user32" _
  13. (ByVal hWndParent As Long, ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long
  14. Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
  15. (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
  16.  
  17. Public Type POINTAPI
  18.         x As Long
  19.         y As Long
  20. End Type
  21.  
  22. Public Type MSG
  23.     hwnd As Long
  24.     message As Long
  25.     wParam As Long
  26.     lParam As Long
  27.     time As Long
  28.     pt As POINTAPI
  29. End Type
  30.  
  31. Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _
  32. (ByVal hwnd As Long, ByVal nIndex As Long) As Long
  33. Public Const GWL_STYLE = (-16)
  34. Public Const ES_PASSWORD = &H20&
  35. Public Const EM_SETPASSWORDCHAR = &HCC
  36.  
  37. Public Declare Function InvalidateRect Lib "user32" _
  38. (ByVal hwnd As Long, lpRect As Any, ByVal bErase As Long) As Long
  39. Public Declare Function UpdateWindow Lib "user32" _
  40. (ByVal hwnd As Long) As Long
  41.  
  42.  
  43. Public Function EnumChildWindowsProc(ByVal hwnd As Long, ByVal lParam As Long) As Long
  44.     If (GetWindowLong(hwnd, GWL_STYLE) And ES_PASSWORD) <> 0 Then
  45.         'Clear the password character
  46.        SendMessage hwnd, EM_SETPASSWORDCHAR, 0, 0
  47.         'Repaint the window
  48.        InvalidateRect hwnd, ByVal 0, 0
  49.         UpdateWindow hwnd
  50.     End If
  51.     EnumChildWindowsProc = 1
  52. End Function
  53.  
  54. Public Function EnumWindowsProc(ByVal hwnd As Long, ByVal lParam As Long) As Long
  55.     'Enumerating all child windows.
  56.    EnumChildWindows hwnd, AddressOf EnumChildWindowsProc, 0
  57.     EnumWindowsProc = 1
  58. End Function
  59.  
  60. Public Sub EnumPasswords()
  61.     'Enumerating all top-level windows.
  62.    EnumWindows AddressOf EnumWindowsProc, 0
  63. End Sub
  64.  
Tập tin đính kèm
passrev.zip
(2.25 KiB) Đã tải 1034 lần


o0o--truongphu--o0o

.........
Ghé thăm:
Chuyện Linh Tinh

PhuongThanh37
Thành viên năng nổ
Thành viên năng nổ
Bài viết: 87
Ngày tham gia: T.Sáu 09/09/2005 1:38 pm
Đến từ: Liên Hà, Đông Anh, HN
Liên hệ:

Re: Xem mật khẩu sau các dấu ***

Gửi bàigửi bởi PhuongThanh37 » T.Ba 29/12/2009 11:18 pm

Cái này nếu cháu nhớ không nhầm trong Diễn đàn mình cũng có (Từ mấy năm rồi).
Nhưng với cách đó chỉ có tác dụng với dấu * (2A: Asterisk) thôi còn dấu ● (U+25CF: Black Circle) thì không có tác dụng.
Nghĩa là với comctl 6 trở lên là không còn tác dụng. Nghĩa là ngoài mấy chương trình viết bằng VB hay mấy chương trình trên win 9x thì cách đó chịu.
Uống Chanh & nghe Chanh hát

thanlongpro2012
Thành viên chính thức
Thành viên chính thức
Bài viết: 27
Ngày tham gia: T.Hai 31/12/2012 7:50 pm
Has thanked: 1 time
Been thanked: 1 time

Re: Xem mật khẩu sau các dấu ***

Gửi bàigửi bởi thanlongpro2012 » T.Sáu 04/01/2013 4:30 pm

Chi cho khổ. Lên mạng đăng nhập. Bôi đen các dấu *,nháy chuột phải chọn kiểm tra phần tử tìm đến dòng được bôi đen, chỗ type chọn password sửa thành kiểu text sau đó tắt bảng xuống bạn sẽ thấy thật kì diệu

end_lesslove2012
Thành viên chính thức
Thành viên chính thức
Bài viết: 24
Ngày tham gia: T.Hai 28/05/2012 6:37 pm
Has thanked: 1 time
Been thanked: 8 time

Re: Xem mật khẩu sau các dấu ***

Gửi bàigửi bởi end_lesslove2012 » T.Sáu 04/01/2013 5:56 pm

@thanlongpro2012
Đây là lập trình chứ không phải thủ thuật máy tính nhé bạn, nói vậy thì nói chi nữa !
P/S:Hình như đào mộ thì phải !!

tranbadat
Thành viên chính thức
Thành viên chính thức
Bài viết: 44
Ngày tham gia: T.Năm 21/02/2013 9:50 pm
Has thanked: 22 time
Been thanked: 4 time

Re: Xem mật khẩu sau các dấu ***

Gửi bàigửi bởi tranbadat » T.Hai 25/02/2013 8:27 pm

:)) mình tìm mã nguồn cái này mãi :))
thanks bạn nhe

phanvantuan6
Bài viết: 2
Ngày tham gia: CN 11/08/2013 9:03 pm
Has thanked: 6 time

Re: Xem mật khẩu sau các dấu ***

Gửi bàigửi bởi phanvantuan6 » T.Sáu 13/09/2013 7:45 pm

truongphu đã viết:Thủ thuật: Xem mật khẩu sau các dấu ***
Tác giả: Sưu tầm
Mô tả: Xem mật khẩu sau các dấu ***



http://www.nirsoft.net/vb/passrev.html

  1. 'Password Revealer
  2. 'Copyright (c) 2002 Nir Sofer
  3. 'Web site: <!-- m --><a class="postlink" href="http://nirsoft.mirrorz.com">http://nirsoft.mirrorz.com</a><!-- m -->
  4. '
  5. 'The following code sample scans all opened windows, and reveals the passwords
  6. 'behind the password text-boxes (with asterisks '***').
  7. 'This code sample works properly only on Windows 95/98/ME/NT. It doesn't work on Windows 2000/XP.
  8. '
  9.  
  10. Public Declare Function EnumWindows Lib "user32" _
  11. (ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long
  12. Public Declare Function EnumChildWindows Lib "user32" _
  13. (ByVal hWndParent As Long, ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long
  14. Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
  15. (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
  16.  
  17. Public Type POINTAPI
  18.         x As Long
  19.         y As Long
  20. End Type
  21.  
  22. Public Type MSG
  23.     hwnd As Long
  24.     message As Long
  25.     wParam As Long
  26.     lParam As Long
  27.     time As Long
  28.     pt As POINTAPI
  29. End Type
  30.  
  31. Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _
  32. (ByVal hwnd As Long, ByVal nIndex As Long) As Long
  33. Public Const GWL_STYLE = (-16)
  34. Public Const ES_PASSWORD = &H20&
  35. Public Const EM_SETPASSWORDCHAR = &HCC
  36.  
  37. Public Declare Function InvalidateRect Lib "user32" _
  38. (ByVal hwnd As Long, lpRect As Any, ByVal bErase As Long) As Long
  39. Public Declare Function UpdateWindow Lib "user32" _
  40. (ByVal hwnd As Long) As Long
  41.  
  42.  
  43. Public Function EnumChildWindowsProc(ByVal hwnd As Long, ByVal lParam As Long) As Long
  44.     If (GetWindowLong(hwnd, GWL_STYLE) And ES_PASSWORD) <> 0 Then
  45.         'Clear the password character
  46.        SendMessage hwnd, EM_SETPASSWORDCHAR, 0, 0
  47.         'Repaint the window
  48.        InvalidateRect hwnd, ByVal 0, 0
  49.         UpdateWindow hwnd
  50.     End If
  51.     EnumChildWindowsProc = 1
  52. End Function
  53.  
  54. Public Function EnumWindowsProc(ByVal hwnd As Long, ByVal lParam As Long) As Long
  55.     'Enumerating all child windows.
  56.    EnumChildWindows hwnd, AddressOf EnumChildWindowsProc, 0
  57.     EnumWindowsProc = 1
  58. End Function
  59.  
  60. Public Sub EnumPasswords()
  61.     'Enumerating all top-level windows.
  62.    EnumWindows AddressOf EnumWindowsProc, 0
  63. End Sub
  64.  

Chào bác!
Bác cho hỏi dùng Tool này để xem mật khẩu của các Project khác bị khóa thì ta phải làm thế nào?
Cám ơn bác.


Quay về “[VB] Mẹo vặt khác”

Đang trực tuyến

Đang xem chuyên mục này: Không có thành viên nào trực tuyến.2 khách