jdk7_131下载链接

Jdk1.7补丁 支持 TLS1.2 For JRE 1.7.0_131-b31 in Oracle site : TLSv1.2 and TLSv1.1 are now enabled by default on the TLS client end-points. This is similar behavior to what already happens in JDK 8 releases.

CSM0 avi 播放器

播放 CSM0 编码的 AVI ，曾尝试过多种播放器和解决方法，通过错误提示内容找到的此播放器 增加Csmscreen AVI Lossless Video Codec 1.1.1 (播放上交大课件教程专用)

Resilio_Sync_Personal.btskey

Resilio_Sync_Personal许可证文件，已在2.5.9上亲测使用

KeyToolGUI 数字证书转换工具

该工具支持各种格式证书的相互转换，比如将jks格式的证书转换为pfx cer等格式。

FT232驱动 USB to 232 Driver

力特 FT232 芯片 usb 转 232 接口 驱动

JAVA SortList 通用排序类

JAVA SortList 通用排序类 从网上搜到一个java 对 List 排序的工具，自己改了下 支持 整数 和 浮点数 比较后排序，浮点数小数部分的有点问题，期待大牛帮忙优化。

中国各省市地图最小到地区

中国各省市地图最小到地区，可分别查看各省市及地区

正则表达式测试器RegexTester

测试正则表达式是否正确的小工具。 如果无法启动,请自行下载安装 Microsoft .Net Framework 4.0 Client Profile 后再试: http://www.microsoft.com/downloads/zh-cn/details.aspx?familyid=5765d7a8-7722-4888-a970-ac39b33fd8ab&displaylang=zh-cn

HJMac(安装成功后用这个引导) MAC OS Lion VM引导iso

HJMac(安装成功后用这个引导) MAC OS Lion VM引导iso 用于VMware 安装完 苹果 狮子系统后，通过iso引导进去苹果系统

excel vbs project密码破解

1、打开任一excel文件 2、在宏里粘贴下面的代码 3、运行下面的代码 4、选择需要破解密码的文件 5、点击“打开” '移除VBA编码保护 Sub MoveProtect() Dim FileName As String FileName = Application.GetOpenFilename("Excel文件（*.xls & *.xla&*.xlsx）,*.xls;*.xla;*.xlsx", , "VBA破解") If FileName = CStr(False) Then Exit Sub Else VBAPassword FileName, False End If End Sub '设置VBA编码保护 Sub SetProtect() Dim FileName As String FileName = Application.GetOpenFilename("Excel文件（*.xls & *.xla&*.xlsx）,*.xls;*.xla;*.xlsx", , "VBA破解") If FileName = CStr(False) Then Exit Sub Else VBAPassword FileName, True End If End Sub Private Function VBAPassword(FileName As String, Optional Protect As Boolean = False) If Dir(FileName) = "" Then Exit Function Else FileCopy FileName, FileName & ".bak" End If Dim GetData As String * 5 Open FileName For Binary As #1 Dim CMGs As Long Dim DPBo As Long For i = 1 To LOF(1) Get #1, i, GetData If GetData = "CMG=""" Then CMGs = i If GetData = "[Host" Then DPBo = i - 2: Exit For Next If CMGs = 0 Then MsgBox "请先对VBA编码设置一个保护密码...", 32, "提示" Exit Function End If If Protect = False Then Dim St As String * 2 Dim s20 As String * 1 '取得一个0D0A十六进制字串 Get #1, CMGs - 2, St '取得一个20十六制字串 Get #1, DPBo + 16, s20 '替换加密部份机码 For i = CMGs To DPBo Step 2 Put #1, i, St Next '加入不配对符号 If (DPBo - CMGs) Mod 2 <> 0 Then Put #1, DPBo + 1, s20 End If MsgBox "文件解密成功......", 32, "提示" Else Dim MMs As String * 5 MMs = "DPB=""" Put #1, CMGs, MMs MsgBox "对文件特殊加密成功......", 32, "提示" End If Close #1 End Function