ترجمة النجوم ***** في كلمات السر الى حروف عادية

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

ترجمة النجوم ***** في كلمات السر الى حروف عادية

مُساهمة من طرف أيمن الإبراهيم في الثلاثاء فبراير 04, 2014 2:16 pm

اهلا وسهلا بكم في منتدى مصر التقني 
---------------------------------
كود برنامج يقوم بفك شيفرة النجوم مستخدمة لكلمات السر     
قم بفتح مشروع جديد
قم بكتابة كود التالي في شيفرة خاصة بالفورم

الكود:

Private Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Long, ByVal yPoint As Long) As Long
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Type POINTAPI
      x As Long
      y As Long
End Type
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub Form_Load()
Timer1.Interval = 10
End Sub

Private Sub Timer1_Timer()
Const EM_SETPASSWORDCHAR = &HCC
Dim coord As POINTAPI

s = GetCursorPos(coord)
x = coord.x
y = coord.y

h = WindowFromPoint(x, y)

Dim NewChar As Integer
NewChar = CLng(0)
retval = SendMessage(h, EM_SETPASSWORDCHAR, ByVal NewChar, 0)
End Sub

  
قم بنسخ النجوم ولسقها بالبرنامج ومبروك عليك كلمة السر
مع تحياتي
avatar
أيمن الإبراهيم
........
........

تاريخ التسجيل : 19/03/2013
المساهمات : 251
النقاط : 397
التقيم : 0
الدولة : سوريا
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

ترجمة النجوم

مُساهمة من طرف alnilensf في الأحد يناير 10, 2016 6:01 am

احسنت صنعا وبارك الله فيك
avatar
alnilensf
.
.

تاريخ التسجيل : 09/01/2016
المساهمات : 4
النقاط : 4
التقيم : 0
الدولة : العراق
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى