超链接加密

A. word超链接可以加密吗

①利用Excel快捷键 Ctrl + A 全选所以的单元格，然后，右键选择“设置单元格格式”；
②在弹出的“单元格格式”中选择“保护”，取消“锁定”前面的钩去掉；

③选中所想要锁定的单个或多个单元格，再次右键选择“设置单元格格式”；
④同样，在弹出的“单元格格式”窗口中选择“保护”，再将“锁定”前面的钩打上，确定；
⑤继续选中需要锁定的单元格，然后单击菜单栏的“工具”-->保护-->保护工作表，在弹出的“保护工作表”窗口中我们输入锁定该单元格的密码，即可；

B. 用Excel做的超链接怎样加密

点另存为点工具点常规选项，里面就有设定打开密码和修改密码，希望对你有所帮助！

C. 如何在PPT中插入超链接

1、选择需要使用超链接的内容或者图片，右键，选择“超链接”

D. 如何在超链接中加入网站账户密码信息以可以免密码直接登录，而且别人也可以免密码登陆，像图片中的

你好，以前的sid网站就可以，比如asp网页后面有串sid加密字符。把网址和他复制起来，然后加入超链接就可以直接使用此帐号登录了。
但现在网页都是php，甚至有些都是伪静态的。安全措施很强，根本做不到这点！希望可以帮到你。

E. excel中附件如何加密（整个EXCEL表不加密，只对其中超链接的附件进行加密）

先对附件用rar压缩，压缩时设置密码，然后链接rar。如果附件是excel，那么就直接对这个设置密码即可，然后链接。

F. 如何在超链接中加入网站账户密码信息以直接登录

这个是post提交，得看你具体啥网站，有的网站会进行加密截取，或者用时间戳，还有的加干扰符等等，不是简单的直接放进去就可以了，还有啥不会的可以找额

G. 我的url里面需要传递一个参数比如<a href="a.jspkk=<%=name%>" 怎么加密

加密JS：---------------------------------------------------------------------

function encrypt(str, pwd)
{
//判断密钥是否为空
if(pwd == null || pwd.length <= 0)
{
alert("请输入密钥");
return null;
}

//得到密钥的字符串的Unicode码
var prand = "";
for(var i=0; i<pwd.length; i++)
{
prand += pwd.charCodeAt(i).toString();
//alert(prand);
}

var sPos = Math.floor(prand.length / 5);//返回小于等于其数值参数的最大整数
var mult = parseInt(prand.charAt(sPos) + prand.charAt(sPos*2) + prand.charAt(sPos*3) + prand.charAt(sPos*4) + prand.charAt(sPos*5));//返回从字符串转换得到的整数. (charAt返回 String 对象的指定索引处的字符。)
var incr = Math.ceil(pwd.length / 2);//返回数的上限
var mo = Math.pow(2, 31) - 1;//返回基数表达式的指定次幂的值
if(mult < 2)
{
alert("您输入的密钥过于简单或者是长度太短");
return null;
}

var salt = Math.round(Math.random() * 1000000000) % 100000000; //Math.round是四舍五入函数。 Math.random是返回一个伪随机数（0到1之间的double型数）
prand += salt;

while(prand.length > 10)
{
prand = (parseInt(prand.substring(0, 10)) + parseInt(prand.substring(10, prand.length))).toString();
}

prand = (mult * prand + incr) % mo;
var enc_chr = "";
var enc_str = "";

for(var i=0; i<str.length; i++)
{
enc_chr = parseInt(str.charCodeAt(i) ^ Math.floor((prand / mo) * 255));

if(enc_chr < 16)
{
enc_str += "0" + enc_chr.toString(16);
}
else
enc_str += enc_chr.toString(16);

prand = (mult * prand + incr) % mo;
}

salt = salt.toString(16);

while(salt.length < 8)salt = "0" + salt;
enc_str += salt;

return enc_str;
}

解密JS：---------------------------------------------------------------------

function decrypt(str, pwd,stu)
{
if(str == null || str.length < 8)
{
alert("您输入的内容过短，请重新输入");
return;
}
if(pwd == null || pwd.length <= 0)
{
alert("请输入密钥");
return;
}
var prand = "";

for(var i=0; i<pwd.length; i++)
{
prand += pwd.charCodeAt(i).toString();
}

var sPos = Math.floor(prand.length / 5);
var mult = parseInt(prand.charAt(sPos) + prand.charAt(sPos*2) + prand.charAt(sPos*3) + prand.charAt(sPos*4) + prand.charAt(sPos*5));
var incr = Math.round(pwd.length / 2);
var mo = Math.pow(2, 31) - 1;
var salt = parseInt(str.substring(str.length - 8, str.length), 16);
str = str.substring(0, str.length - 8);
prand += salt;

while(prand.length > 10)
{
prand = (parseInt(prand.substring(0, 10)) + parseInt(prand.substring(10, prand.length))).toString();
}

prand = (mult * prand + incr) % mo;
var enc_chr = "";
var enc_str = "";

for(var i=0; i<str.length; i+=2)
{
enc_chr = parseInt(parseInt(str.substring(i, i+2), 16) ^ Math.floor((prand / mo) * 255));
//alert(enc_chr);
enc_str += String.fromCharCode(enc_chr);
//alert(enc_str);
prand = (mult * prand + incr) % mo;
}

return enc_str;
}

encrypt：加密方法。
str:你需要加密的字符串，pwd 密匙 返回的是一串加密的密文。
decrypt：解密方法。使用密匙+密文，得到原来解密的值

H. 给excel加密会影响超链接吗

不会的。原因如下：
1、超链接在表加锁时也能打开。
2、保护了工作表不影响隐藏操作，只有保护了工作薄才影响。
3、如果隐了行列，再保护进来，则你就要解开保护才能取消隐藏。

I. 电脑文件夹的超链接（电脑高手请进）

WINXP支持下面的文件夹重定向,方法:

单击“开始”--“运行”--输入“regedit”--“确定”就打开了注册表，然后定位到这个了项 “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders”

在右窗口就可以看到“Desktop”了，双击它就打开了一个“编辑字符串”对话框，可以看到“数值数据”输入框中一般是“%USERPROFILE%\桌面”，将“%USERPROFILE%\桌面”改为你想要的文件夹，比如“D:\桌面”即可！

在这个位置你还可以更改其他用户文件的路径
AppData 应用程序数据目录 C:\Documents and Settings\User name\Application Data
Cookies Cookies路径 C:\Documents and Settings\User name\Cookies
Desktop 桌面路径 C:\Documents and Settings\User name\桌面
Favorites 收藏夹 C:\Documents and Settings\User name\Favorites
NetHood NetHood路径 C:\Documents and Settings\User name\NetHood
Personal 我的文档 C:\Documents and Settings\User name\My Documents
PrintHood 打印 C:\Documents and Settings\User name\PrintHood
Recent 文档项路径 C:\Documents and Settings\User name\Recent
SendTo SendTo路径 C:\Documents and Settings\User name\SendTo
Start Menu 开始菜单路径 C:\Documents and Settings\User name\“开始”菜单
Templates 新建文件目录 C:\Documents and Settings\User name\Templates
Programs 程序菜单路径 C:\Documents and Settings\User name\“开始”菜单\程序
Startup 启动路径 C:\Documents and Settings\User name\“开始”菜单\程序\启动
History 网页历史记录 C:\Documents and Settings\ User name \Local Settings\History
My Pictures 图片收藏 C:\Documents and Settings\User name\My Documents\My Pictures
My Music 我的音乐 C:\Documents and Settings\User name\My Documents\My Music
My Video 我的视频 C:\Documents and Settings\User name\My Documents\My Videos
Cache Internet临时文件夹 C:\ Documents and Settings\User name \Temporary Internet Files

参考:
http://social.microsoft.com/forums/zh-CN/windowsxpzhchs/thread/539572a7-168a-4b2c-8a0b-3c20942694a3/

J. EXCEL工作表中超链接加密，但工作表不加密，求大侠解答

这个稍微简单点，只要在跳转钱加入inputbox判断就可以了！
Sub test()
st:
a = Application.InputBox("请输入密码：", "密码", , , , , , 1)
If a = "False" Or Trim(a) = 0 Or Trim(a) = "" Then End
If a = 1234 Then
Application.Goto Sheets(2).Range("a1")
Else
MsgBox "密码错误,请重新输入": GoTo st
End If
End Sub