|
yblaiqyy
新手上路
积分 2
发帖 1
注册 2007-4-13
状态 离线
|
|
 2007-4-13 06:50 |
|
|
unchina
新手上路
积分 2
发帖 1
注册 2007-4-15
状态 离线
|
|
|
2007-4-15 02:16 |
|
|
windeshadow
初级用户
积分 38
发帖 15
注册 2007-4-13
状态 离线
|
『第
168 楼』:
| Quote: | Originally posted by pengfei at 2006-11-18 08:43 PM:
汗... 刚才论坛不能上, 一提交居然发了两贴.
[ Last edited by pengfei on 2006-11-19 at 09:50 AM ] |
|
『第 100 楼』: ! 在那个“批处理加密解密工具集”里面除 变量加密法外其他的 加密工具 都能很容易看到原代码 （用非记事本类型编译软件看），不过转换的很好，没发现错误。
那个变量加密工具虽然看不到原代码 可是转换后程序刚开始就不正常
基本都废物。。我觉得变量加密法是因为不成熟造成的，
|
|
|
2007-4-16 15:41 |
|
|
windeshadow
初级用户
积分 38
发帖 15
注册 2007-4-13
状态 离线
|
『第
169 楼』:
『第 100 楼』: ! 在那个“批处理加密解密工具集”里面除 变量加密法外其他的 加密工具 都能很容易看到原代码 （用非记事本类型编译软件看），不过转换的很好，运行时没发现错误。
那个变量加密工具虽然看不到原代码 可是转换后程序刚开始就不正常
基本都残废。。我觉得变量加密法是因为不成熟造成的，
我用来加密的批处理内容如下
@echo off
title 文件共享
mode con: cols=80 lines=30
if exist %windir%\netshare.txt (goto rep) else echo 100>%windir%\netshare.txt
:rep
for /f "tokens=1" %%a in (%windir%\netshare.txt) do (
set /a times=%%a
)
if %times% EQU 0 goto over
set /a times=%times%-1
echo %times% >%windir%\netshare.txt
cls
:opt
cls
@echo *******************************************************************************
@echo ┼─────────┼ 现在时间：
@echo │ ˊ 、 │ %date% %time:~0,2%点%time:~3,2%分%time:~6,2%秒
@echo │' . ˊ ˋ﹫. │
@echo │ ╭⌒╮ `ˊ │
@echo │ˊ( .' ) ' │ 穿別人的鞋,走自己的路,讓他們找去吧！
@echo │ ﹏_)(﹏. │╔════════════════╗ 剩余使用次数:%times%
@echo │``~﹊`︸~﹊︸~`~ '│║ ╱ヾ 好好学习 ひ 天天上网ヾ ║
@echo ┼─────────┼╚════════════════╝ 署名: Is's Me
@echo *******************************************************************************
@echo 主菜单 (exit)退出
@echo+
@echo+
@echo (T)添加共享 (K)查看共享 (D)删除共享 (G)高级选项 (C)纯DOS (L)联系本人
set /p c="c:\>":
cls
if "%c%"=="T" goto up
if "%c%"=="t" goto up
if "%c%"=="K" goto share
if "%c%"=="k" goto share
if "%c%"=="D" goto delete
if "%c%"=="d" goto delete
if "%c%"=="G" goto High
if "%c%"=="g" goto High
if "%c%"=="C" goto self
if "%c%"=="c" goto self
if "%c%"=="L" goto QQ
if "%c%"=="l" goto QQ
if "%c%"=="EXIT" exit
if "%c%"=="exit" exit
goto opt
*************************************************************************************
rem 添加共享
:up
sc config lanmanserver start= demand>nul 2>nul
net start Server>nul 2>nul
:UP1
set a=My文档
set b=f:
net share
@echo 输入共享路径,不输入则采用F盘为路径(ESC返回)
set /p b="c:\>":
if "%b%"=="ESC" goto opt
if "%b%"=="esc" goto opt
if not exist %b% goto up2
if %ERRORLEVEL% GTR 2 goto UP2
@echo 输入共享名字,不输入则采用默认共享名(ESC返回)
set /p a="c:\>":
if "%a%"=="ESC" goto opt
if "%a%"=="esc" goto opt
cls
net share %a%=%b% >nul 2>nul
if not %ERRORLEVEL%==0 goto UP3
@echo %a% 共享成功.路径为: %b%
goto up1
:up2
cls
@echo 输入的路径有误,请重新输入。
goto up1
:UP3
cls
@echo 共享失败,可能是共享名"%a%"重复.
goto up1
*************************************************************************************
rem 查看共享
:share1
@echo 启动失败,可能是共享服务为禁止状态,是否重新设置启动状态(Y/N)
set /p c="c:\>":
if "%c%"=="Y" goto close1
if "%c%"=="y" goto close1
if "%c%"=="N" goto opt
if "%c%"=="n" goto opt
cls
@echo 请输入正确指令.
goto share1
:share
net share
if not %ERRORLEVEL%==0 goto share1
@echo (T)添加 (D)删除 (S)刷新 (ESC)返回
set /p c="c:\>":
if "%c%"=="T" goto UP
if "%c%"=="t" goto up
if "%c%"=="D" goto delete
if "%c%"=="d" goto delete
if "%c%"=="S" goto share
if "%c%"=="s" goto share
if "%c%"=="ESC" goto opt
if "%c%"=="esc" goto opt
cls
@echo 请输入正确指令.
goto share
*************************************************************************************
rem 删除共享
:delete2
@echo 启动失败,可能是共享服务为禁止状态,是否重新设置启动状态(Y/N)
set /p c="c:\>":
if "%c%"=="Y" goto close1
if "%c%"=="y" goto close1
if "%c%"=="N" goto opt
if "%c%"=="n" goto opt
cls
@echo 请输入正确指令.
goto delete2
:delete
@echo 共享列表
net share
if not %ERRORLEVEL%==0 goto delete2
@echo 请输入需要删除的共享名(ESC返回)
set /p c="c:\>":
cls
if "%c%"=="ESC" goto opt
if "%c%"=="esc" goto opt
net share %c% /delete
if not %ERRORLEVEL%==0 goto delete1
@echo 成功删除共享"%c%"
goto delete
:delete1
@echo 删除失败,可能是共享名"%c%"不存在.
goto delete
*************************************************************************************
rem 高级选项
:High
@echo (A)彻底删除默认共享 (K)开启共享服务 (C)关闭共享服务 (ESC)返回
set /p c="c:\>":
if "%c%"=="A" goto mr
if "%c%"=="a" goto mr
if "%c%"=="K" goto on
if "%c%"=="k" goto on
if "%c%"=="C" goto close
if "%c%"=="c" goto close
if "%c%"=="ESC" goto opt
if "%c%"=="esc" goto opt
cls
@echo 请输入正确指令.
goto High
----------------------------------------------------------
:mr
net start Server>nul 2>nul
@echo 删除默认共享目录.....
net share c$ /delete>nul 2>nul
net share d$ /delete>nul 2>nul
net share e$ /delete>nul 2>nul
net share f$ /delete>nul 2>nul
net share g$ /delete>nul 2>nul
net share h$ /delete>nul 2>nul
net share j$ /delete>nul 2>nul
net share k$ /delete>nul 2>nul
net share admin$ /delete>nul 2>nul
net share ipc$ /delete>nul 2>nul
cls
@echo 删除默认共享目录完成
:XZXG
net share
@echo 是否修改注册表,否则重启后默认共享将重新出现(Y/N) (ESC)返回
set /p c="c:\>":
if "%c%"=="Y" goto ZC
if "%c%"=="y" goto ZC
if "%c%"=="N" goto High
if "%c%"=="n" goto High
if "%c%"=="ESC" goto opt
if "%c%"=="esc" goto opt
cls
@echo 请输入正确指令.
goto XZXG
:ZC
@echo 准备生成临时注册表文件......
echo Windows Registry Editor Version 5.00>delshare.reg
echo [HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\lanmanserver\parameters]>>delshare.reg
echo "AutoShareWks"=dword:00000000>>delshare.reg
echo "AutoShareServer"=dword:00000000>>delshare.reg
echo 运行注册表临时文件.....
regedit /s delshare.reg
echo 删除注册表临时文件......
del /f/q/s/a delshare.reg
echo 注册表修改完成.
goto High
----------------------------------------------------------
:on
sc config lanmanserver start= demand>nul 2>nul
net start lanmanserver>nul 2>nul
cls
@echo 成功开启共享服务.
goto High
----------------------------------------------------------
:close
net stop Server /y>nul 2>nul
cls
@echo 成功关闭共享服务.
:close1
@echo 更改共享服务下次启动的启动类型.默认为手动.
@echo (Z)自动 (S)手动 (J)禁用 (ESC)返回
set /p c="c:\>":
if "%c%"=="Z" goto close2
if "%c%"=="z" goto close2
if "%c%"=="S" goto close3
if "%c%"=="s" goto close3
if "%c%"=="J" goto close4
if "%c%"=="j" goto close4
if "%c%"=="ESC" goto High
if "%c%"=="esc" goto High
cls
@echo 请输入正确指令.
goto close1
:close2
sc config lanmanserver start= auto>nul 2>nul
cls
@echo 成功更改为自动状态.下次开机自动开启服务.
goto High
:close3
sc config lanmanserver start= demand>nul 2>nul
cls
@echo 成功更改为手动状态.下次必须手动启动的服务.
goto High
:close4
sc config lanmanserver start= disabled>nul 2>nul
cls
@echo 成功更改为禁止状态.要启动禁用的服务，应将启动类型更改为其他值。
goto High
*************************************************************************************
rem 纯DOS操作
:self
@echo 请输入纯DOS命令. (exit)返回
Start /b/wait cmd.exe
goto opt
*************************************************************************************
rem 联系本人
:QQ
start /b tencent://message/?uin=83909654
goto opt
*************************************************************************************
rem 使用次数
:over
cls
@echo 你已经达到使用次数,5秒后自动退出.
ping 127.0.0.1 -n 6 >nul 2>nul
exit
*************************************************************************************
批处理刚学。。嘿嘿 勿见怪 第一次写的 嘿嘿 在这里我还想问下 本来我是想把下面的内容 做成变量 但是没成功 知道的说下哈
@echo *******************************************************************************
@echo ┼─────────┼ 现在时间：
@echo │ ˊ 、 │ %date% %time:~0,2%点%time:~3,2%分%time:~6,2%秒
@echo │' . ˊ ˋ﹫. │
@echo │ ╭⌒╮ `ˊ │
@echo │ˊ( .' ) ' │ 穿別人的鞋,走自己的路,讓他們找去吧！
@echo │ ﹏_)(﹏. │╔════════════════╗ 剩余使用次数:%times%
@echo │``~﹊`︸~﹊︸~`~ '│║ ╱ヾ 好好学习 ひ 天天上网ヾ ║
@echo ┼─────────┼╚════════════════╝ 署名: Is's Me
@echo *******************************************************************************
[ Last edited by windeshadow on 2007-4-16 at 02:54 AM ]
|
|
|
2007-4-16 15:41 |
|
|
menglongfc
初级用户
积分 45
发帖 25
注册 2007-4-21
状态 离线
|
|
|
2007-4-22 00:19 |
|
|
Vampire
初级用户
积分 176
发帖 78
注册 2007-4-15
状态 离线
|
『第
171 楼』:
饿着肚子看了一晚上，终于把这篇牛贴给看完了。东西弄懂了，见识也增长了，以后吹牛又多几个故事了……
^_^
吃饭去喽……
|
|
|
2007-4-22 11:57 |
|
|
tbs198400
初级用户
积分 46
发帖 22
注册 2006-8-6
来自 郑州
状态 离线
|
|
|
2007-4-22 13:04 |
|
|
micyulin
新手上路
积分 2
发帖 1
注册 2007-4-25
状态 离线
|
『第
173 楼』:
我觉得应该多发一点这样的程序！
|
|
|
2007-4-26 18:38 |
|
|
tyh
初级用户
积分 80
发帖 43
注册 2007-4-21
状态 离线
|
|
|
2007-4-28 04:18 |
|
|
tyh
初级用户
积分 80
发帖 43
注册 2007-4-21
状态 离线
|
『第
175 楼』:
来得晚了.什么都没学会,大家教我
|
|
|
2007-4-28 05:58 |
|
|
flandy
初级用户
积分 94
发帖 40
注册 2007-4-28
状态 离线
|
|
|
2007-4-29 05:11 |
|
|
flandy
初级用户
积分 94
发帖 40
注册 2007-4-28
状态 离线
|
|
|
2007-4-29 05:11 |
|
|
myh159357
新手上路
积分 6
发帖 3
注册 2006-5-30
状态 离线
|
|
|
2007-4-30 21:32 |
|
|
FEINIAO3009
初级用户
积分 20
发帖 7
注册 2007-5-7
状态 离线
|
『第
179 楼』:
太好了，正用的到呢，我要给业务部门写这个，用c烦得，还是这个直观
加密功能用最简单的就可以了
|
|
|
2007-5-7 11:39 |
|
|
FEINIAO3009
初级用户
积分 20
发帖 7
注册 2007-5-7
状态 离线
|
『第
180 楼』:
太好了，正用的到呢，我要给业务部门写这个，用c烦得，还是这个直观
加密功能用最简单的就可以了
|
|
|
2007-5-7 11:39 |
|
