解密效果

2016-02-19 12:52 1 1 收藏

今天给大家分享的是由图老师小编精心为您推荐的解密效果,喜欢的朋友可以分享一下,也算是给小编一份支持,大家都不容易啊!

【 tulaoshi.com - Web开发 】

HTMLHEADTITLE解密效果/TITLE
META content="text/html; charset=gb2312" http-equiv=Content-Type
STYLE.box {
 BORDER-BOTTOM: #d1d1a4 1px solid; BORDER-LEFT: #d1d1a4 1px solid; BORDER-RIGHT: #d1d1a4 1px solid; BORDER-TOP: #d1d1a4 1px solid; COLOR: red; FONT-SIZE: 20px
}
/STYLE

SCRIPT language=JavaScript
var data = "0123456789";
var done = 1;
function textboxin(text) {
decrypt(text, 2, 1);
}

function textboxout() {
self.text.value = '';
done = 1;
}

function decrypt(text, max, delay) //max=2 delay=1
{
if (done) {
done = 0;
decrypt_helper(text, max, delay,  0, max);
   }
}
function decrypt_helper(text, runs_left, delay, charvar, max)  //处理解密效果
{
if (!done) {
runs_left = runs_left - 1; //
var box_text = text.substring(0, charvar);
for (var current_char = charvar; current_char  text.length; current_char++) {
box_text += data.charAt(Math.round(Math.random()*data.length));   //利用math对象的随机函数产生"密码"数字串
}
window.text.value = box_text;
//显示超链接的说明内容
var rerun = "decrypt_helper('" + text + "'," + runs_left + "," + delay + "," + charvar + "," + max + ");"
var new_char = charvar + 1;
var next_char = "decrypt_helper('" + text + "'," + max + "," + delay + "," + new_char + "," + max + ");"
if(runs_left  0) 
 {
  setTimeout(rerun, delay);
 }
else {
if (charvar  text.length) {
setTimeout(next_char, Math.round(delay*(charvar+3)/(charvar+1)));  //设置"密码"和超链接说明内容的转换时间
}
else {
done = 1;
         }
      }
   }
}
/SCRIPT

META content="MSHTML 5.00.2920.0" name=GENERATOR/HEAD
BODY
CENTERBRBRA 
href="http://fishcat.blog.com.cn/cmd.shtml?do=blogs&id=58828&uid=39174" 
onmouseout=textboxout(); 
onmouseover="textboxin('http://fishcat.blog.com.cn 在这里你会看到许多的JavaScript特效。是不是像破解了密码?');return true;"JavaScript 
特效百例。/ABRBRINPUT class=box name=text size=80BRBR
BR
BR
PFONT color=#0099cc face=楷体 
size=15鼠标移到超链接上,BR对链接的说明内容像解密BR一样,由一连串的数字慢慢转变为字符./FONT /CENTER
P/P/BODY/HTML

来源:https://www.tulaoshi.com/n/20160219/1602214.html

延伸阅读
Private Sub Comman1_Click() Dim str1, str2, str3 As String str1 = "王宇虹" str2 = Encrypt(str1, 188, 24) MsgBox str2 str3 = Encrypt(str2, 188, 24) MsgBox str3 End Sub Private Function Encrypt(ByVal strSource As String, ByVal Key1 As Byte, _ ByVal Key2 As Integer) As String Dim bLowData As Byte Dim bHigData...
标签: PS PS教程
本文由中国专家lazybones 原创 有一张图片,要求调色,上面的原图,下面的是结果图像,觉得结果图像的效果还是蛮不错的,于是自己试验了一下,并把自己的做法给记录下来,以便喜欢调色的朋友们可以参考一下。     我这里简单的讲一下我调色中的思路 要将颜色调整跟别人的一样,首先必须先对比别人的素材...
标签: MySQL mysql数据库
  当你连接一个MySQL服务器时,你通常应该使用一个口令。口令不以明文在连接上传输。 所有其它信息作为能被任何人读懂的文本被传输。如果你担心这个,你可使用压缩协议(MySQL3.22和以上版本)使事情变得更难。甚至为了使一切更安全,你应该安装SSH。用它,你能在一个MySQL服务器与一个MySQL客户之间得到一个加密的TCP/IP连接。 ...
真菌、湿疹、单纯的皮肤老化干燥、糖尿病等都是引起皮肤干裂的原因,对于这种 手脚干裂的原因 ,应该先到医院诊断。如果只是单纯的因为手脚干裂那么只需在平时日常生活中多注意便可,对于手足皲裂应防治结合,防重于治,否则一旦皲裂形成,治愈起来就比较缓慢。 手脚干裂的原因 天气转冷,空气中的湿度减低,或暖气的使用都会引起皮肤干...
Private Sub Comman1_Click() Dim str1, str2, str3 As String str1 = "王宇虹" str2 = Encrypt(str1, 188, 24) MsgBox str2 str3 = Encrypt(str2, 188, 24) MsgBox str3 End Sub   Private Function Encrypt(ByVal strSource As String, ByVal Key1 As Byte, _ ByVal Key2 As Integer) As String Dim bLowData As Byte D...

经验教程

263

收藏

35
微博分享 QQ分享 QQ空间 手机页面 收藏网站 回到头部