ArvinHao

人生若只如初见,何事秋风悲画扇。

03/13
23:17
教程

EXCEL破解工作表、工作簿加密

点击开发工具中的VB编辑器

→插入→模块

输入代码

  
Public Sub 工作表保护密码破解()
Const DBLSPACE As String = vbNewLine & vbNewLine
Const AUTHORS As String = DBLSPACE & vbNewLine & _
"作者:McCormick   JE McGimpsey "
Const HEADER As String = "工作表保护密码破解"
Const VERSION As String = DBLSPACE & "版本 Version 1.0"
Const REPBACK As String = DBLSPACE & ""
Const ZHENGLI As String = DBLSPACE & "                   Renho的博客 www.renhao.pw"
Const ALLCLEAR As String = DBLSPACE & "该工作簿中的工作表密码保护已全部解除!!" & DBLSPACE & "请记得另保存" _
& DBLSPACE
Const MSGNOPWORDS1 As String = "该文件工作表中没有加密"
Const MSGNOPWORDS2 As String = "该文件工作表中没有加密2"
Const MSGTAKETIME As String = "解密需花费一定时间,请耐心等候!" & DBLSPACE & "按确定开始破解!"
Const MSGPWORDFOUND1 As String = "密码重新组合为:" & DBLSPACE & "$$" & DBLSPACE & _
"如果该文件工作表有不同密码,将搜索下一组密码并修改清除"
Const MSGPWORDFOUND2 As String = "密码重新组合为:" & DBLSPACE & "$$" & DBLSPACE & _
"如果该文件工作表有不同密码,将搜索下一组密码并解除"
Const MSGONLYONE As String = "确保为唯一的?"
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 Boolean
Application.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
Exit Sub
End If
MsgBox MSGTAKETIME, vbInformation, HEADER
If Not WinTag Then
Else
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
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 With
Next: 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 & ZHENGLI, vbInformation, HEADER
End Sub

复制粘贴代码

继续点运行

会弹确定窗口,一直点确定就行。

最后会提示破解完毕。

类似的用下面这段代码可以移除工作簿加密

  Sub 破解工作簿加密()
ActiveWorkbook.Sheets.Copy
For Each sh In ActiveWorkbook.Sheets
sh.Visible = True
Next
End Sub
06/8
22:43
教程

电信贝尔I-240W-Q光猫破解教程

适用于以下版本光猫,其他版本请参考下破解方法。

  • 硬件版本:3FE52958DEAB02
  • 软件版本:3FE54567BOXZ34

一.获取贝尔I-240W-Q配置文件(参考于宽带技术网

1.拔掉光纤,戳复位孔20秒,插入U盘

2.telecomadmin, nE7jA%5m 登录

3.管理 => 设备管理 => USB设备管理(开启) => 确定=> 点击 保存配置文件

4.必须有的说明

①请确认U盘只有一个分区(如果不是一分区 备份文件有可能会在第二分区里)

②操作正确的话你会在U盘中的e8c_Config_Backup目录找到ctce8_rg.cfg这么个文件

二.处理配置文件

1.WINRAR打开ctce8_rg.cfg

2.解压后得到ctce8_rg 并用记事本打开(当然更推荐用Notepad++打开)

3.这是一句废话,就是说不用去搜索什么telecomadmin因为密码就是nE7jA%5m,而且这个密码根本就登不上。

4.直接拉倒最后几行会有如下几行代码

<Debug> 
<Telnet> 
<EnableURL>cpedebugenable</EnableURL>  (开启telnet密码)

<DisableURL>cpedebugdisable</DisableURL>  (关闭telnet密码)

<Username>super</Username>   (telnet用户)

<Password>Gw5im43F</Password>   (telnet密码)
</Telnet>
</Debug>

三.开启telnet

浏览器打开http://192.168.1.1/cpedebugenable

四.获取超级密码

1.打开CMD

2.登录(仅供参考,具体请根据配置文件内容变动)

telnet 192.168.1.1
super
Gw5im43F

如果这一步没错的话,那么你可以看到显示如下所示

ONT>

3.获取密码(参考下面的)

ONT>enable
#ONT>system
#ONT/system>tr069
#ONT/system/tr069>get InternetGatewayDevice.DeviceInfo.X_CT-COM_TeleComAccount.Password
Path : InternetGatewayDevice.DeviceInfo.X_CT-COM_TeleComAccount.Password Type: 6 telecomadmin44988094

telecomadmin44988094就是超级密码了,然后登录就可以了

4.其它命令

#查看连接数
#ONT/system/tr069> get InternetGatewayDevice.Services.X_CT-COM_MWBAND.TotalTerminalNumber
#修改连接数
#ONT/system/tr069> set InternetGatewayDevice.Services.X_CT-COM_MWBAND.TotalTerminalNumber 1024
#设置无限制
#ONT/system/tr069> set InternetGatewayDevice.Services.X_CT-COM_MWBAND.Mode 0
#修改管理密码
#ONT/system/tr069> set InternetGatewayDevice.DeviceInfo.X_CT-COM_TeleComAccount.Password 你的密码

 

 

05/2
22:28
教程

WDCP升级Nginx、启用HTTP/2、编译谷歌pagespeed

一、更新编译环境

yum install gcc-c++ pcre-devel zlib-devel make unzip

Centos5

sudo wget https://linux.web.cern.ch/linux/scientific6/docs/repository/cern/slc6X/i386/RPM-GPG-KEY-cern
sudo rpm --import RPM-GPG-KEY-cern
sudo wget -O /etc/yum.repos.d/slc5-devtoolset.repo https://linux.web.cern.ch/linux/scientific5/docs/repository/cern/devtoolset/slc5-devtoolset.repo
sudo yum install devtoolset-2-gcc-c++ devtoolset-2-binutils

Centos6

sudo rpm --import https://linux.web.cern.ch/linux/scientific6/docs/repository/cern/slc6X/i386/RPM-GPG-KEY-cern
sudo wget -O /etc/yum.repos.d/slc6-devtoolset.repo https://linux.web.cern.ch/linux/scientific6/docs/repository/cern/devtoolset/slc6-devtoolset.repo
sudo yum install devtoolset-2-gcc-c++ devtoolset-2-binutils

二、下载所需源码

NGINX

cd /www/wdlinux
NGINX_VERSION=1.10.0
wget http://nginx.org/download/nginx-${NGINX_VERSION}.tar.gz
tar -xvzf nginx-${NGINX_VERSION}.tar.gz

ngx-pagespeed

cd /www/wdlinux
NPS_VERSION=1.11.33.0
wget https://github.com/pagespeed/ngx_pagespeed/archive/release-${NPS_VERSION}-beta.zip -O release-${NPS_VERSION}-beta.zip
unzip release-${NPS_VERSION}-beta.zip
cd ngx_pagespeed-release-${NPS_VERSION}-beta/
wget https://dl.google.com/dl/page-speed/psol/${NPS_VERSION}.tar.gz
tar -xzvf ${NPS_VERSION}.tar.gz

三、编译(ngx_http_v2_module/ngx-pagespeed)

PS_NGX_EXTRA_FLAGS="--with-cc=/opt/rh/devtoolset-2/root/usr/bin/gcc"
cd /www/wdlinux/nginx-1.10.0
./configure --user=www --group=www --prefix=/www/wdlinux/nginx-1.8.1 --with-http_stub_status_module --with-ipv6 --with-http_gzip_static_module --with-http_realip_module --with-http_ssl_module --with-http_v2_module --add-module=/www/wdlinux/ngx_pagespeed-release-${NPS_VERSION}-beta ${PS_NGX_EXTRA_FLAGS}
sudo make
sudo make install
#创建pagespeed缓存目录
mkdir /var/ngx_pagespeed_cache

四、启用ngx-pagespeed

修改/www/wdlinux/nginx/conf/vhost/域名.conf (后台网站列表–文件管理–虚拟主机站点文件(nginx,apache)处可以可视化修改NGINX配置文件)

修改为

server {
        listen       80;
        root /www/web/blog/public_html;
        server_name renhao.pw www.renhao.pw;
        index  index.html index.php index.htm;
        error_page  400 /errpage/400.html;
        error_page  403 /errpage/403.html;
        error_page  404 /errpage/404.html;
        error_page  503 /errpage/503.html;
        pagespeed on;
        pagespeed FileCachePath /var/ngx_pagespeed_cache;
        location ~ \.php$ {
                proxy_pass http://127.0.0.1:88;
                include naproxy.conf;
        }
        location ~ /\.ht {
                deny  all;
        }
        location / {
                try_files $uri @apache;
        }
        location @apache {
                 proxy_pass http://127.0.0.1:88;
                 include naproxy.conf;
        }
        location ~ ".pagespeed.([a-z].)?[a-z]{2}.[^.]{10}.[^.]+" {add_header "" "";}
        location ~ "^/pagespeed_static/" { }
        location ~ "^/ngx_pagespeed_beacon$" { }

}

五、最后

重启NGINX

六、说明

本示例使用的是WDCP 3.0.2