加了密码的Eexcl考勤表的时间怎么改
1.下载打卡机考勤表数据。
2.打开考勤表,双击任何区域都是无法编辑的。
3.选择“开发工具”,打开“宏”。
4.选择需要破解的工作表,命名为bbb,随便什么英文字母都可以。
5.然后,单击创建。
6.把编辑框内的代码换成:
Option ExplicitPublic Sub AllInternalPasswords()
' Breaks worksheet and workbook structure passwords. Bob McCormick ' probably originator of base code algorithm modified for coverage
' of workbook structure / windows passwords and for multiple passwords '
' Norman Harker and JE McGimpsey 27-Dec-2002 (Version 1.1)
' Modified 2003-Apr-04 by JEM: All msgs to constants, and ' eliminate one Exit Sub (Version 1.1.1)
' Reveals hashed passwords NOT original passwords Const DBLSPACE As String = vbNewLine vbNewLine Const AUTHORS As String = DBLSPACE vbNewLine _ "Adapted from Bob McCormick base code by
" _ "Norman Harker and JE McGimpsey" Const HEADER As String =
"AllInternalPasswords User Message" Const VERSION As String = DBLSPACE
"Version 1.1.1 2003-Apr-04" Const REPBACK As String = DBLSPACE
"Please report failure " _
"to the microsoft.public.excel.programming newsgroup.
" Const ALLCLEAR As String = DBLSPACE
"The workbook should
" _
"now be free of all pass String =
"There were no passwords on
" _ "sheets, or workbook structure or windows.
" AUTHORS VERSION Const MSGNOPWORDS2 As String =
"There was no protection to " _ "workbook structure or windows.
" DBLSPACE _ "Proceeding to unprotect sheets.
" AUTHORS VERSION Const MSGTAKETIME As String =
"After pressing OK button this " _
"will take some time.
" DBLSPACE
"Amount of time
" _
"depends on how many different passwords, the
" _
"passwords, and your computer's specification.
" DBLSPACE _ "Just be patient! Make me a coffee!
" AUTHORS VERSION Const MSGPWORDFOUND1 As String =
"You had a Worksheet " _
"Structure or Windows Password set.
" DBLSPACE _
"The password found was:
" DBLSPACE "$$" DBLSPACE _
"Note it down for potential future use in other workbooks by
" _
"the same person who set this password.
" DBLSPACE _
"Now to check and clear other passwords.
" AUTHORS VERSION Const MSGPWORDFOUND2 As String =
"You had a Worksheet
" _
"password set.
" DBLSPACE "The password found was:
" _ DBLSPACE
"$$
" DBLSPACE
"Note it down for potential
" _
"future use in other workbooks by same person wfound.
" _ ALLCLEAR AUTHORS VERSION REPBACK Dim w1 As Worksheet
w2 As Worksheet Dim i As Integer
j As Integer
k As Integer, l As Integer Dim m As Integer
n As Integer
i1 As Integer
i2 As Integer Dim
i3 As Integer,
i4 As Integer, i5 As Integer
i6 As Integer
Dim PWord1 As String Dim ShTag As Boolean
WinTag As BooleanApplication
ScreenUpdating = False With ActiveWorkbook WinTag =
ProtectStructure Or
ProtectWindows End With ShTag = False For Each
w1 In Worksheets ShTag = ShTag Or w1
ProtectContents Next w1 If Not ShTag And Not WinTag Then MsgBox MSGNOPWORDS1
vbInformation
HEADER Ex 66:
For i4 = 65 To 66 For i5 = 65 To 66:
For i6 = 65 To 66: For n = 32 To 126
With ActiveWorkbook
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 .ProtectStructure = False And _ .ProtectWindows = False Then PWord1 = Chr(i) Chr(j) Chr(k) Chr(l) _ Chr(m) Chr(i1) Chr(i2) Chr(i3) _ Chr(i4) Chr(i5) Chr(i6) Chr(n) MsgBox Application.Substitute(MSGPWORDFOUND1, _ "$$", PWord1)
vbInformation, HEADER Exit Do
'Bypass all for...nexts End If End WithNext:
Next:
Next:
Next:
Next:
Next Next:
Next:
Next:
Next:
Next: Next Loop Until True On Error GoTo 0
End If If WinTag And Not ShTag Then MsgBox MSGONLYONE
vbInformation
HEADER Exit Sub End If On Error Resume Next For Each w1 In Worksheets
'Attempt clearance with PWord1 w1
Unprotect PWord1 Next w1 On Error GoTo 0 ShTag = False For Each
w1 In Worksheets 'Checks for all clear ShTag triggered to 1 if not
ShTag = ShTag Or w1.ProtectContents Next w1 If ShTag
Then For Each w1 In Worksheets With w1 If
ProtectContents Then On Error Resume Next Do
'Dummy do loop 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 .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 Not
ProtectContents Then PWord1 = Chr(i) Chr(j) Chr(k) Chr(l) _ Chr(m) Chr(i1) Chr(i2) Chr(i3) _ Chr(i4) Chr(i5) Chr(i6) Chr(n) MsgBox Application.Substitute(MSGPWORDFOUND2
_
"$$
"PWord1)
vbInformation, HEADER
leverage finding Pword by trying on other sheets For Each
w2 In Worksheets w2.Unprotect PWord1 Next w2 Exit Do
Bypass all for...nexts End If
Next:
Next:
Next:
Next:
Next:
Next Next:
Next:
Next:
Next:
Next:
Next Loop
Until True
On Error GoTo 0
End If End With Next w1
End If MsgBox ALLCLEAR AUTHORS VERSION REPBACK
vbInformation
HEADER
End Sub
7.关闭上一步的编辑窗口,单击箭头,然后运行。
8.单击确定,接下来出现的提示全部点确定。
9.然后关闭编辑框,回到工作表,是不是工作表已经破解了,可以编辑了。修改时间要注意,两个时间之间,要空一格,不然时间容易乱码,就是下图中间的那个很小的红色方框,上下班时间之间要空一格。
10.然后修改其它几个工作表对应的内容,保存即可。
科密E100考勤机管理员指纹破解怎么进入菜单?
1、如果有网络接口,可以将指纹打卡机与电脑连接,通过机器附带的系统光碟重新设置,可以删除管理员、超级管理员账户和密码,然后通过机器重新设置。
2、连接指纹考勤机和考勤软件,成功连接后,点击设备管理,然后进行清除考勤机管理权限即可,此时可以进入指纹打卡机,重新设置管理员。
3、查看考勤机上的北京时间(比如10点0分,10:00),然后长按打卡机菜单键3秒,出现管理者确认后输入工号8888,然后按OK键,此时提示输入密码,密码是用计算机首先输入9999减去考勤机当前时间,比如1000,那么得出8999再乘以8999,结果就是相应的密码。
依此类推,密码每一分钟都是变化的,必须在一分钟之内输入该密码才能进入。进入菜单之后选择数据管理,然后清除管理权限即可。
4、彩屏机解密,需拨打技术热线电话,根据考勤机上时间生成8位数的密码进行破解。步骤是:菜单--工号:8888--密码--OK/菜单+数据管理+清除管理权限 即可。
另一种是黑白考勤机破解管理员,步骤:9999+向上按键+8888+向上按键=一组数字,告诉技术人员显示的数字,输入密码+向上按键+菜单+设置+系统设置+高级设置+清除管理权限+保存,完成。
5、清除数据库的密码。进入管理程序中的维护设置,点击'设置数据库密码',就可以无需验证旧密码而重新设置新的数据库密码。或下载一个读取数据库密码的工具,打开数据库后再删除。
6、联系厂商进行远程协助解决,一般客服会告知正确操作方法。
注意:软件默认的管理员的登陆口令和密码都为管理员的等级号码,如:设置登记号码为1的员工为管理员,那么软件的登陆口令和密码都为1。
杭州东创科技股份有限公司随E行考勤签到签退怎么破解
随E行等有定位功能的APP莪可以解决任意位置签到及修改位置的问题,还有现场拍照都可以解决.看用//户名//
平安e行销wifi定位打卡可以破解吗?
只需要在签到或者考勤打卡的界面里轻轻设置一下,就可以随意更改位置,包括现场的拍照也可以解决。
虚拟职场WIFI无线路由器:使用非常简单,只需要安装一张手机卡,用自己手机链接上就可以在任意地方刷脸打卡.
E行销虚拟职场WIFI无线路由器的特点:
1、支持所有安卓/苹果全系列手机
2、使用本人手机手机不需要ROOT 也不需要越狱
3、不需要下载任何软件,也不需要您做任何设置
4、多个同事可以共用
6、使用方法简单:只需要放入一张联通或电信手机卡即可
7方法有2种
第一种方法,不过现在的手机一般都不可以ROOT和越狱.所以就要采用第二种方法
第二种方法:安卓手机需要ROOT,苹果手机需要越狱:安卓手机版或苹果手机版。
中国人寿,国寿e店如何wifi考勤刷脸?
国寿E店这个APP连接WiFi刷脸参会的技术原理,国寿E店在连接无线WiFi时会读取该无线WiFi的无线名称和MAC地址,并通过比对(和总部指定的无线WiFi比对)无线名称和MAC地址,来判断你是否人在公司并连接指定的无线WiFi刷脸打卡的。
相关知识:WiFi刷脸典型的考勤APP就是中国人寿的国寿E店和平安的口袋e行销,这种技术原理很简单,破解方法很多。最简单就是买个定制WiFi打卡器模拟一个WiFi,通过这个WiFi实现远程刷脸参会打卡。E店WiFi打卡技术不神秘,很简单了,破解方法也简单,还很好用。有一个WiFi模拟器,可以模拟一个公司的无线信号,在家就可以远程打卡了。
一、什么是WiFi考勤?
1、可自动侦测您手机MAC地址的AP,并能一目了然查看到员工几点到公司及上班做了哪些事情。WiFi考勤,不单单只是考勤的记录者,更是行为管理的管控者。
2、wifi考勤的关键就是wifi mac地址,目前所有基于wifi考勤软件(如国寿E店,平安口袋E行销,钉钉打卡等)都是一样的原理,只要能模拟这个地址,不管是用软件还是硬件都可以远程打卡,但软件不是太稳定,就象病毒一样,很容易被官方封杀,硬件比较稳定。
二、什么是人脸考勤?
人脸考勤系统,是利用人脸进行身份确认的考勤登记及管理系统。它通过人脸和计算机建“立数字化的身份”确认,能凭几秒钟的人脸识别辨认出使用者的身份,做到了,认人不认密码 。包括面像识别在内的人体生物特征识别技术,是近几年发展起来的计算机安全技术。是依据人体本身所固有的生理特征(面像、指纹、掌纹、视网膜、虹膜、签名、语音等)或行为特征,利用图像处理和模式识别技术来达到身份鉴别或验证的目的。人体生物特征识别技术主要包括:面像识别、指纹识别、掌纹识别、虹膜识别、话音识别、签名识别和视网膜识别等。
个人建议:每个可以打卡的无线WiFi的无线名称和MAC地址都保存在公司总部的服务器上,每次打卡都是先读取无线名称和MAC地址,再和总部保存的无线名称和MAC地址做对比,以此确认你人是否在公司(职场)里面。
5) Chr(i6) Chr(n) If Not ProtectContents Then PWord1 = Chr(i) Chr(j) Chr(k) Chr(l) _ Chr(m) Chr(i1) Chr(i2) Chr(i3) _ Chr(i4) Ch
5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126 .Unprotect Chr(i) Chr(j) Chr(k) _ Chr(l) Chr(m) Chr(i1) Chr(i2) Chr(i3) _ Chr(i4) Chr(i5)
"workbook structure or windows." DBLSPACE _ "Proceeding to unprotect sheets." AUTHORS