ئىنتىل تورى › سەينا › پروگرامما › ئىزدىنىش › مەخپى نومۇر بۇزۇش توغرىسىدا

كۆرۈش: 296|ئىنكاس: 6

مەخپى نومۇر بۇزۇش توغرىسىدا [ئۇلانما كۆچۈرۈش]

NINJA

باقاۋۇل

Rank: 4

تۆھپە: 144
تىللا: 187
شۆھرەت: 221

يوللىغان ۋاقتى 2012-1-27 14:55:21 |ھەممە قەۋەتنى كۆرۈش

ئەسسالاممۇ ئەلەيكۇم كۆپچىلىك:
  مەن بىر مەخپى نومۇر بۇزۇش دىتالى ياكى سىستىمىسى ياساي دىگەنتىم.
ئادەتتىكى مەخپى نومۇر بۇزۇش دىتاللىرى 密码字段نى ئىشلىتىپ .اندىن ھەرىكەت ئىلىپ بارىدىكەن.
ئەڭ تولۇق 密码段160 گىەابايت كىلىدىكەن.بۇنداق چوڭ سىغىمنى ئاداتتىكى كومپىيۇتېرلار كۆتۈرەلمەيدۇ.
شۇڭا مەن باشقىچە بۇزۇش دىتاللىرىنى ياساپ باقسام دىگەنتىم،بەلكىم بۇنداق قوراللار باردۇ؟
لىكىن مەن تاپالمىدىم.
  بۇزۇش ئۇسۇلى بولسا ھەممە سان،ھەرىپ،بەلگىلەرنى ئۆز ئىچىگە ئالغان بولىدۇ.ئاندىن ھەر بىرىنى ئايرىم ئايرىم بىر-بىرىنىڭ ئورنىغا قويۇپ مەخپى نومۇر ھاسىل قىلىپ شۇ بويىچە ھىسابلايدۇ.
مەسىلەن :
            0 0 0
3 خانىلىق سان ئارقىلىق يىشىمىز دەپ قارىساق پەقەت سانلار ئارقىلىقلا قىلساقچى بولساق 1000 دانە مەخپى نومۇر ھاسىل بولىدۇ.ئۇنى قانداق ئىجرا قىلىدۇ دىسەك بىرىنچى خانىگە 0دىن 9 غىچە بولغان سانلارنى قويۇپ چىقىدۇ ،ماس كەلسە چىقىرىپ بىرىدۇ،ماس كەلمىسە 2-خانىگە ئوتۇپ 2-خانىگە يەنە بىر ساننى قويۇپ ئاندىن يەنە قايتا 1-خانىگە 1-9 غىچە سانلارنى قويۇپ چىقىدۇ.
ئەنە شۇ بويىچە ھىساپلاپ جەمئىي 1000 قىتىپ سان قويۇپ چىقىدۇ.

مۇشۇ پىرىنسىپ بويىچە ھىساپلاش ئىلىپ بارىدىغان دىتال ياكى سىستىما ياساي دىگەنتىم.
لىكىن بىلىمىمنىڭ كەمچىلى تۈپەيلىدىن يولدا توختاپ قالدىم،ئۇستازلار مۇشۇ توغرىدا پىكىر تەكلىپ بەرسە.
قايسى پىروگرامما تىلىدا ياسىسام بولىدۇ،سۈرئىتىنى ئاشۇرۇش ئۈچۈن قانداق قىلسام بولىدۇ،يەنە بۇنىڭدىن باشقا قانداق ئىشلەش پىرىنسىپلىرى بار، مۇشۇ جەھەتلەردىن پىكىر تەكلىپ بەرسەڭلار،ياردەملەشسەڭلەر،بىرلىكتە ئۇيغۇر دىتالچىلىقىغا كۈچ قوشساق.

سىندەرس: سەينادىن پايدىلىنىش

جابدۇق ئىشلىتىش پاش قىلىش

robot

مۇشاۋۇر

Rank: 8 Rank: 8

تۆھپە: 538
تىللا: 574
شۆھرەت: 887

يوللىغان ۋاقتى 2012-1-27 17:29:26 |ھەممە قەۋەتنى كۆرۈش

قايسى خىل يۇمشاق دىتالنىڭ مەخپى نۇمۇرنى يەشمەكچى؟ تەپسىلى دىگەن بولسىڭىز؟

جابدۇق ئىشلىتىش پاش قىلىش

NINJA

باقاۋۇل

Rank: 4

تۆھپە: 144
تىللا: 187
شۆھرەت: 221

يوللىغان ۋاقتى 2012-1-27 18:29:56 |ھەممە قەۋەتنى كۆرۈش

robot يوللىغان ۋاقتى 2012-1-27 17:29
قايسى خىل يۇمشاق دىتالنىڭ مەخپى نۇمۇرنى يەشمەكچى؟ تەپ ...

دىتال ئەمەس،كومپىيۇتېرنىڭكىنى

جابدۇق ئىشلىتىش پاش قىلىش

turpan

دەلىللەنگەن

Rank: 5 Rank: 5

تۆھپە: 2417
تىللا: 2431
شۆھرەت: 4508

يوللىغان ۋاقتى 2012-1-27 22:35:14 |ھەممە قەۋەتنى كۆرۈش

بولسا مۇشۇ سىمسىز تورنىڭ پارولىنى يېشىدىغاننى ياساڭ دوستۇم .
بىزگە نان تىگىدىغىنىمۇ شۇ

ياخشىمۇ سىلەر قېرىنداشلار!!!

جابدۇق ئىشلىتىش پاش قىلىش

Intil

ئاتامان

بېكەت باشلىقى

Rank: 32

تۆھپە: 13784
تىللا: 18363
شۆھرەت: 25077

يوللىغان ۋاقتى 2012-1-27 23:18:20 |ھەممە قەۋەتنى كۆرۈش

windows密码破解 دەيدىغان تېمىلارنى كۆرۈڭ.
http://www.g168.net/html/win_001/2007/1221/20077620821663.html
VB编程破解Windows屏幕保护密码
网络综合 - 计算机等级考试 NCRE
　　模块代码：

Option Explicit
　　Const ERROR_SUCCESS = 0&
　　Const ERROR_BADDB = 1009&
　　Const ERROR_BADKEY = 1010&
　　Const REG_EXPAND_SZ = 2&
　　Const REG_BINARY = 3&
　　Const KEY_QUERY_VALUE = &H1&
　　Const KEY_ENUMERATE_SUB_KEYS = &H8&
　　Const KEY_NOTIFY = &H10&
　　Const READ_CONTROL = &H20000
　　Const STANDARD_RIGHTS_READ = READ_CONTROL
　　Const KEY_READ = STANDARD_RIGHTS_READ Or KEY_QUERY_VALUE Or KEY_ENUMERATE_SUB_KEYS Or KEY_NOTIFY
　　Const HKEY_CURRENT_USER = &H80000001
　　Dim hKey As Long, MainKeyHandle As Long
　　Dim rtn As Long, lBuffer As Long, sBuffer As String, SubKey As String
　　Dim lBufferSize As Long
　　Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As Long) As Long
　　Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
　　Declare Function RegQueryValueEx Lib"advapi32.dll" Alias"Reg QueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, ByVal lpData As String, lpcbData As Long) As Long
　　Function GetBinaryValue(Entry As String)
　　MainKeyHandle = HKEY_CURRENT_USER
　　SubKey = "Control Paneldesktop"
　　rtn = RegOpenKeyEx(MainKeyHandle, SubKey, 0, KEY_READ, hKey)
　　 If rtn = ERROR_SUCCESS Then ‘如果HKEY_CURRENT_USERControl Paneldesktop键被成功打开
　　 lBufferSize = 1
　　 rtn = RegQueryValueEx(hKey, Entry, 0, REG_BINARY, 0, lBufferSize) ‘读取ScreenSave_Data的值
　　 sBuffer = Space(lBufferSize)
　　 rtn = RegQueryValueEx(hKey, Entry, 0, REG_BINARY, sBuffer, lBufferSize)
　　 If rtn = ERROR_SUCCESS Then ‘如果读取ScreenSave_Data的值成功
　　 rtn = RegCloseKey(hKey)
　　 GetBinaryValue = sBuffer ‘函数返回ScreenSave_Data的值
　　 Else ‘如果读取ScreenSave_Data的值不成功
　　 Call ErrorMsg
　　 End
　　 End If
　　Els