1. 利用批处理设置静态IP、动态IP、手动设置IP

    懒人必备,轻松点击就可以更改ip

    2014/06/25 windows

  2. 记一次ROS pppoe帐号的简单抓取过程

    抓取的前提是首先有一个pppoe的帐号,否则的话无法获取到pppoe认证服务器的地址 其实这次抓取完全是一个偶然的发现,由于我平时经常要使用vpn连接公司的服务器处理问题,有次发现vpn连不上了。 ping 公司的ip地址发现ping不通,通过tracert发现数据包都被25.25.25.25这个ip地址给丢弃了,而且发现过了宿舍的无线路由器下一跳地址就为25.25.25.25.通过百度发现该ip 地址为英国地址。仔细分析一下,通过pppoe拨号上网,过了宿舍的无线路由,下一跳应该为中转路由器或者pppoe的认证服务器那么可以断定25.25.25.25这个地址为pppoe的认证服务器。 知道服务器的地址下一步就可以开始研究好好研究这台服务器了。首先扫描工具扫描该服务器开启的端口。   其实到这一步前当时还不知道认证服务器和总路由器是用ROS做的,在扫出8291端口时基本可以确定是ROS.8291是端口是winbox的管理端口,通过百度可以知道winbox为ROS的本地管理工具。 知道了服务器的端口后该做什么呢?其实一般的管理员为了方便管理都会开启网页管理的方式,当然有点安全意识的管理员都会把web管理的端口从80改为其它端口,因为扫到的端口不多,可以一个一个能过在浏览器转入 ip:端口  的方式去尝试。 最后确认web管理端口为8081   在这里就可以正式确认pppoe认证服务器和路由用的是ROS,版本5.2.首先尝试用默认帐号密码进入,发现密码错误。看来管理员是把密码给改了。再尝试在网上搜索ROS 5.2 的漏洞,依然无果。 一番帐号密码乱试后依然无效,无聊点击下面的按钮时发现 Graphs另有洞天! </a>   这个界面可以看到多个以pppoe开头的连接,其实这里应该就是用来查看ros各个连接的状态的,由于知道自己的pppoe帐号密码为手机号,那么下面显示的一串手机号码应该就是其它用户的帐号,随便选择一个帐号尝试拨号认证,发现通过了并且可以正常上网! 至此就可以通过以上步骤简单获取到大量的用户帐号。有点遗憾的是得不到管理员的帐号密码,得到话进入管理界面就可以为所欲为了。 对于ROS 5.2 的Graphs页面虽然可以让管理员快速查看到用户知时间内的流量状态,但同时也向所有用户暴露了用户的帐号。用户可以通过简单的猜测获得帐号的密码。其实作为ROS的管理员一方面为减少用户帐号的暴露,可以通过关闭ROS的web管理界面,同时在建立pppoe帐号时密码应采用随机数字字母组合更改合适。至于ROS我觉得完全的理由提供一个选项可以开关Grahps界面。

    2014/06/21 ROS

  3. 利用批处理开启远程桌面

    将以下保存为mstsc.bat [shell] echo Windows Registry Editor Version 5.00>3389.reg echo [HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Terminal Server]>>3389.reg echo "fDenyTSConnections"=dword:00000000>>3389.reg echo [HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Terminal Server\Wds\rdpwd\Tds\tcp]>>3389.reg echo "PortNumber"=dword:00000d3d>>3389.reg echo [HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Terminal Server\WinStations\RDP-Tcp]>>3389.reg echo "PortNumber"=dword:00000d3d>>3389.reg regedit /s 3389.reg del 3389.reg[/shell]   在本地添加帐户 1 net user 用户名 密码 /add 激活禁用的用户 1 net uesr 用户名 /active:yes 加入管理员组 1 net localgroup administrators 帐户名 /add 删除用户 1 net user 用户名 /del 查看原文:http://imjc.tk/archives/490.html

    2014/02/18 windows

  4. “网络连接”文件夹不能检索您的计算机上的网络适配器。请确认“网络连接”服务启用并运行

    “网络连接”文件夹不能检索您的计算机上的网络适配器。请确认“网络连接”服务启用并运行 转自:http://www.cnblogs.com/hakuci/archive/2011/03/16/1986574.html 原因:你关闭了有关网络的服务 或动态链接库注册失败 解决: 方法一: 1.确认你的network connections服务已经正常启动 2.注册3个组件:开始——运行——cmd 回车, regsvr32 netshell.dll 回车;regsvr32 netcfgx.dll回车; regsvr32 netman.dll 回车。 3.重启机器 方法二: 在添加删除程序中,选中“显示更新”-卸载“windows xp 安全更新KB905414,重启即可。 方法三、 我的电脑——点右键——管理——服务和应用程序——服务: 检查服务:Network Connections--将其启动类型设为“自动”,并启动之 检查服务:Plug and Play     --将其启动类型设为“自动”,并启动之 检查服务:Remote Procedure Call--将其启动类型设为“自动”,并启动之 检查服务:Simple TCP/IP Services --将其启动类型设为“自动”,并启动之 等 。 查看原文:http://imjc.tk/archives/468.html

    2014/02/13 windows

  5. 非常实用的原创小工具:EasyIP (利用批处理切换ip)

    方便在多个ip间切换 转自:http://blog.sina.com.cn/s/blog_46dac66f010008aa.html 【性质】批处理程序 【用途】方便在多个ip间切换 【适用】懂一点bat,喜欢小巧和命令行,常要切换IP 【作者】LiLe 【主页】暂无,呵呵,就到这里来找更新吧(如果需要更新的话) 【文献】快速切换ip没必要用工具 【提示】高级用户可以据此修改,精简掉很多内容;命令行支持参数,因此我的习惯是"ip bj" "ip 0"而不是进入后再选菜单。 源代码如下(请将之保存为EasyIP.bat) [bash]@echo off title EasyIP v1.3 ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

    2014/02/07 windows

  6. 让wordpress首页不显示指定分类文章

    让wordpress首页不显示指定分类文章 本站有一个类微博的页面http://imjc.tk/?cat=2,这里主要记录本人平时乱七八糟的想法。由于以后这个页面会频繁更新,如果把更新的内容放的首页的话会显得首页过于混乱。在首页将这一分类屏蔽十分有必要。 首先进入wordpress后台当前主题的编辑界面,找到index.php 找到以下代码 <?php if (have_posts()) : while (have_posts()) : the_post(); update_post_caches($posts); ?> 在这段代码前增加 <?php if (is_home()) {query_posts("cat=-1,-2");}?> 这段代码主要的目的是在首页排除ID为1、2的分类目录   查看原文:http://imjc.tk/archives/100.html

    2014/02/07 wordpress

  7. 解决 WordPress“正在执行例行维护,请一分钟后回来”[转]

    WordPress在升级程序、主题、插件时,都会先切换到维护模式,也就是显示 ;正在执行例行维护,请一分钟后回来(Briefly unavailable for scheduled maintenance. Check back in a minute) ;,如果升级顺利,也就几秒左右就恢复正常;但是如果由于网速不佳等原因导致升级中断,WordPress就会一直停留在维护模式,不论前台还是后台,都一直显示 ;正在执行例行维护,请一分钟后回来 摘自:http://www.wpdaxue.com/briefly-unavailable-for-scheduled-maintenance.html   “。 如何解决这个问题呢? 1.马上通过FTP登录你的网站,删除WordPress根目录下的 .maintenance ,刷新网页即可。 2.但是有时候你会发现,根目录根本就没有 .maintenance!倡萌最近就遇到这个问题,最初以为是隐藏了,所以使用SSH登录服务器,但是依旧没有看到,怎么办?其实有一个比较简单的办法,直接新建一个空的txt文本,上传到主机空间中,然后重命名为 .maintenance,然后你会发现 .maintenance 居然不见了!不用担心,重新刷新你的网站,是不是正常了?! 3.如果还是不行,或者你想让它以后可以显示 .maintenance ,那就打开 /wp-admin/includes/class-wp-filesystem-direct.php 找到下面的代码: [php]function mkdir($path, $chmod = false, $chown = false, $chgrp = false) { // safe mode fails with a trailing slash under certain PHP versions. $path = untrailingslashit($path); if ( empty($path) ) return false; if ( ! $chmod ) $chmod = FS_CHMOD_DIR; if ( ! @mkdir($path) ) return false; $this-&gt;chmod($path, $chmod); if ( $chown ) $this-&gt;chown($path, $chown); if ( $chgrp ) $this-&gt;chgrp($path, $chgrp); return true; }[/php]   将其改为:[php]function mkdir($path, $chmod = false, $chown = false, $chgrp = false) { // safe mode fails with a trailing slash under certain PHP versions. if ( ! $chmod ) $chmod = $this->permission; if(ini_get('safe_mode') && substr($path, -1) == '/') { $path = substr($path, 0, -1); } if ( ! @mkdir($path) ) return false; $this->chmod($path, $chmod); if ( $chown ) $this->chown($path, $chown); if ( $chgrp ) $this->chgrp($path, $chgrp); return true; }[/php] 然后刷新FTP目录,是不是看到.maintenance了,删除它吧! 查看原文:http://imjc.tk/archives/202.html

    2014/02/07 wordpress

  8. 快速切换ip没必要用工具

    快速切换ip没必要用工具 转自:http://blog.sina.com.cn/s/blog_46dac66f010006gb.html 【注】本文仅作为原理参考,批处理建议改用非常实用的原创小工具:EasyIP 最近出差中。从公司到出差地,及宾馆,三处ip设置都不一样。同事好奇,我为什么不用一款好用的软件。比如IBM笔记本自带的一个工具。

    2014/02/07 windows

  9. sql查询

    查询哪个字段在哪个表上: select a.Name as tableName from sysobjects a inner join syscolumns b on a.ID=b.ID where b.Name='字段' 查询某个值在哪个表上 declare @str varchar(100) set @str='SYSUserName' --要搜索的字符串 declare @s varchar(8000) declare tb cursor local for select s='if exists(select 1 from ['+b.name+'] where convert(varchar,['+a.name+']) like ''%'+@str+'%'') print ''select top 5 ['+a.name+'],* from ['+b.name+']''' from syscolumns a join sysobjects b on a.id=b.id where b.xtype='U' and a.status>=0 and a.xusertype in(175,239,231,167,56,60,108,106) open tb fetch next from tb into @s while @@fetch_status=0 begin exec(@s) fetch next from tb into @s end close tb deallocate tb 查询门店注册信息: select * from B_GGCSK where sdbt='sysusername' select * from B_GGCSK where sdbt='SYSUserPhone' select * from B_GGCSK where sdbt='SYSUserAdd' select * from B_GGCSK where sdbt='SYSRegNumber' 查看原文:http://imjc.tk/archives/323.html

    2014/02/07 sql

  10. Excel—“撤销工作表保护密码”的破解并获取原始密码 [转]

    在日常工作中,您是否遇到过这样的情况:您用Excel编制的报表、表格、程序等,在单元格中设置了公式、函数等,为了防止其他人修改您的设置或者防止您自己无意中修改,您可能会使用Excel的工作表保护功能,但时间久了保护密码容易忘记,这该怎么办?有时您从网上下载的Excel格式的小程序,您想修改,但是作者加了工作表保护密码,怎么办?您只要按照以下步骤操作,Excel工作表保护密码瞬间即破!   1、打开您需要破解保护密码的Excel文件; 2、依次点击菜单栏上的工具---宏----录制新宏,输入宏名字如:aa; 3、停止录制(这样得到一个空宏); 4、依次点击菜单栏上的工具---宏----宏,选aa,点编辑按钮; 5、删除窗口中的所有字符(只有几个),替换为下面的内容;   从横线下开始复制 ------------------------------------------------------------------------------------------ Option Explicit Public 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 password protection, so make sure you:" & _ DBLSPACE & "SAVE IT NOW!" & DBLSPACE & "and also" & _ DBLSPACE & "BACKUP!, BACKUP!!, BACKUP!!!" & _ DBLSPACE & "Also, remember that the password was " & _ "put there for a reason. Don't stuff up crucial formulas " & _ "or data." & DBLSPACE & "Access and use of some data " & _ "may be an offense. If in doubt, don't." Const MSGNOPWORDS1 As 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 who " & _ "set this password." & DBLSPACE & "Now to check and clear " & _ "other passwords." & AUTHORS & VERSION Const MSGONLYONE As String = "Only structure / windows " & _ "protected with the password that was just found." & _ 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 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 MsgBox MSGNOPWORDS2, vbInformation, HEADER 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, vbInformation, HEADER End Sub ----------------------------------------------------------------------------------------- 复制到横线以上 6、关闭编辑窗口; 7、依次点击菜单栏上的工具---宏-----宏,选AllInternalPasswords,运行,确定两次; 等一会,就会出现以下对话框:这就是Excel密码对应的原始密码(此密码和原先设置的密码都能打开此文档。如果是别人的文档,你又想恢复密码设置,就可以用此密码进行保护,他就能用他设置的密码打开,你可以试试,很有趣的。字母一定要大写):   查看原文:http://imjc.tk/archives/233.html

    2014/02/07 excel