璐村惂鐢ㄦ埛_007AEKe馃惥 -
关注数: 3 粉丝数: 137 发帖数: 4,946 关注贴吧数: 32
MD5不可逆加密算法的ASP实现实例 此为国外转载函数,可将任意字符转换为md5 16为字符加密形式,而且为不可逆转换。<%Private Const BITS_TO_A_BYTE = 8Private Const BYTES_TO_A_WORD = 4Private Const BITS_TO_A_WORD = 32 Private m_lOnBits(30)Private m_l2Power(30)Private Function LShift(lvalue, iShiftBits)If iShiftBits = 0 ThenLShift = lvalueExit FunctionElseIf iShiftBits = 31 ThenIf lvalue And 1 ThenLShift = &H80000000ElseLShift = 0End IfExit FunctionElseIf iShiftBits < 0 Or iShiftBits > 31 ThenErr.Raise 6End IfIf (lvalue And m_l2Power(31 - iShiftBits)) ThenLShift = ((lvalue And m_lOnBits(31 - (iShiftBits + 1))) * m_l2Power(iShiftBits)) Or &H80000000ElseLShift = ((lvalue And m_lOnBits(31 - iShiftBits)) * m_l2Power(iShiftBits))End IfEnd FunctionPrivate Function RShift(lvalue, iShiftBits)If iShiftBits = 0 ThenRShift = lvalueExit FunctionElseIf iShiftBits = 31 ThenIf lvalue And &H80000000 ThenRShift = 1ElseRShift = 0End IfExit FunctionElseIf iShiftBits < 0 Or iShiftBits > 31 ThenErr.Raise 6End IfRShift = (lvalue And &H7FFFFFFE) \ m_l2Power(iShiftBits)If (lvalue And &H80000000) ThenRShift = (RShift Or (&H40000000 \ m_l2Power(iShiftBits - 1)))End IfEnd FunctionPrivate Function RotateLeft(lvalue, iShiftBits)RotateLeft = LShift(lvalue, iShiftBits) Or RShift(lvalue, (32 - iShiftBits))End FunctionPrivate Function AddUnsigned(lX, lY)Dim lX4Dim lY4Dim lX8Dim lY8Dim lResultlX8 = lX And &H80000000lY8 = lY And &H80000000lX4 = lX And &H40000000lY4 = lY And &H40000000lResult = (lX And &H3FFFFFFF) + (lY And &H3FFFFFFF)If lX4 And lY4 ThenlResult = lResult Xor &H80000000 Xor lX8 Xor lY8ElseIf lX4 Or lY4 ThenIf lResult And &H40000000 ThenlResult = lResult Xor &HC0000000 Xor lX8 Xor lY8ElselResult = lResult Xor &H40000000 Xor lX8 Xor lY8End IfElselResult = lResult Xor lX8 Xor lY8End IfAddUnsigned = lResultEnd FunctionPrivate Function md5_F(x, y, z)md5_F = (x And y) Or ((Not x) And z)End FunctionPrivate Function md5_G(x, y, z)md5_G = (x And z) Or (y And (Not z))End FunctionPrivate Function md5_H(x, y, z)md5_H = (x Xor y Xor z)End FunctionPrivate Function md5_I(x, y, z)md5_I = (y Xor (x Or (Not z)))End FunctionPrivate Sub md5_FF(a, b, c, d, x, s, ac)a = AddUnsigned(a, AddUnsigned(AddUnsigned(md5_F(b, c, d), x), ac))a = RotateLeft(a, s)a = AddUnsigned(a, b)End SubPrivate Sub md5_GG(a, b, c, d, x, s, ac)a = AddUnsigned(a, AddUnsigned(AddUnsigned(md5_G(b, c, d), x), ac))a = RotateLeft(a, s)a = AddUnsigned(a, b)End SubPrivate Sub md5_HH(a, b, c, d, x, s, ac)a = AddUnsigned(a, AddUnsigned(AddUnsigned(md5_H(b, c, d), x), ac))a = RotateLeft(a, s)a = AddUnsigned(a, b)End SubPrivate Sub md5_II(a, b, c, d, x, s, ac)a = AddUnsigned(a, AddUnsigned(AddUnsigned(md5_I(b, c, d), x), ac))a = RotateLeft(a, s)a = AddUnsigned(a, b)End SubPrivate Function ConvertToWordArray(sMessage)Dim lMessageLengthDim lNumberOfWordsDim lWordArray()Dim lBytePosition
★羊群、狮子和狼 上帝把两群羊放在草原上,一群在南,一群在北。上帝还给羊群找了两种天敌, 一种是狮子,一种是狼。    上帝对羊群说:“如果你们要狼,就给一只,任它随意咬你们。如果你们要狮子,就给两头,你们可以在两头狮子中任选一头,还可以随时更换。”南边那群羊想,狮子比狼凶猛得多,还是要狼吧。于是, 它们就要了一只狼。北边那群羊想,狮子虽然比狼凶猛得多,但我们有选择权,还是要狮子吧。于是,它们就要了两头狮子。    那只狼进了南边的羊群后,就开始吃羊。狼身体小,食量也小,一只羊够它吃几天了。    这样羊群几天才被追杀一次。北边那群羊挑选了一头狮子,另一头则留在上帝那里。这头狮子进入羊群后, 也开始吃羊。狮子不但比狼凶猛,而且食量惊人,每天都要吃一只羊。这样羊群就天天都要被追杀,惊恐万状。羊群赶紧请上帝换一头狮子。不料,上帝保管的那头狮子一直没有吃东西,正饥饿难耐,它扑进羊群,比前面那头狮子咬得更疯狂。羊群一天到晚只是逃命,连草都快吃不成了。    南边的羊群庆幸自己选对了天敌,又嘲笑北边的羊群没有眼光。北边的羊群非常后悔,向上帝大倒苦水, 要求更换天敌,改要一只狼。上帝说:“天敌一旦确定,就不能更改,必须世代相随, 你们唯一的权利是在两头狮子中选择。”    北边的羊群只好把两头狮子不断更换。可两头狮子同样凶残,换哪一头都比南边的羊群悲惨得多,它们索性不换了,让一头狮子吃得膘肥体壮,另一头狮子则饿得精瘦。眼看那头瘦狮子快要饿死了,羊群才请上帝换一头。   这头瘦狮子经过长时间的饥饿后,慢慢悟出了一个道理:自己虽然凶猛异常,一百只羊都不是对手,可是自己的命运是操纵在羊群手里的。羊群随时可以把自己送回上帝那里,让自己饱受饥饿的煎熬,甚至有可能饿死。想通这个道理后,瘦狮子就对羊群特别客气,只吃死羊和病羊,凡是健康的羊它都不吃了。羊群喜出望外,有几只小羊提议干脆固定要瘦狮子,不要那头肥狮子了。    一只老公羊提醒说:“瘦狮子是怕我们送它回上帝那里挨饿,才对我们这么好。万一肥狮子饿死了,我们没有了选择的余地,瘦狮子很快就会恢复凶残的本性。”羊群觉得老羊说得有理,为了不让另一头狮子饿死,它们赶紧把它换回来。    原先膘肥体壮的那头狮子,已经饿得只剩下皮包骨头了,并且也懂得了自己的命运是操纵在羊群手里的道理。为了能在草原上待久一点,它竟百般讨好起羊群来。而那头被送交给上的狮子,则难过得流下了眼泪。    北边的羊群在经历了重重磨难后,终于过上了自由自在的生活。南边的那群羊的处境却越来越悲惨了,那只狼因为没有竞争对手,羊群又无法更换它,它就胡作非为,每天都要咬死几十只羊,这只狼早已不吃羊肉了,它只喝羊心里的血。它还不准羊叫,哪只叫就立刻咬死哪只。南边的羊群只能在心中哀叹:“早知道这样,还不如要两头狮子。”    上述文字系《意林》上公开刊登的文章
★☆★☆营口坠龙事件!以及龙的由来[原创] 引:营口坠龙事件!有当时的新闻图片证实! 七十年前营口市天降真龙事件   以下是中央电视台的专题节目《破解七十年谜团》的解说词和我亲自采访过的仨位老人对中央电视台结论的质疑。        自古以来,龙在我们中国文化中,有着非常特殊的涵义,可以说它占据了各个领域,成为中华文化的精神象征。那么龙是否存在?是精神还是物质现象?这似乎至今还是一个谜。但凡龙的传说、龙的故事都源自遥远的古代。然而,您听说过在现代自然界中发生的有关龙的故事吗?        2004年6月16日这一天,家住辽宁营口81岁高龄的孙正仁老人,带着一件神秘的东西来到了营口市史志办公室。匣盒被打开了,里面呈现出五块不起眼的骨片,然而,它一经披露,便在营口引起巨大轰动。据老人讲,这是龙骨,自己珍藏多年。难道它们真是龙身上的骨头?难道这世界上真的有龙吗?          周从一(营口市史志办主任):经过媒体报道之后,市民对这个问题都很关注。有的见证人给咱们挂电话,给咱们提供情况和咱们联系,提供线索。        为什么这五块骨片在营口会引起如此轩然大波?市民竟会有如此高的热情,难道营口真的有龙降临过?        韩晓东(营口市史志办副主任):因为这龙在世上可以说都是传说中的东西,突然间出了龙骨了,大伙都觉得非常新奇。所以 都想一饱眼福,看一下龙骨到底是什么样。        营口人对龙的青睐并不是仅仅由这几块骨片而来,实际上他们对龙所保持的特殊热情已经维系了70年。原来早在70年前,营口在历史上确实曾经发生过一次“天降巨龙”的传闻。        韩晓东:我们单位这几个同志到省档案馆翻阅《盛京时报》的时候,打开这个报纸,看到这条消息时我们首先是惊讶。        这是1934年营口当地的一家非常有名的报纸《盛京时报》,在版面的中间,可以看到一篇配发照片的报道,题目为《蛟类涸毙》。文中提到“本埠河北苇塘内日前发现龙骨,旋经第六警察分署,载往河北西海关前陈列供众观览,一时引为奇谈,以其肌肉腐烂,仅遗骨骸,究是龙骨否,议论纷纭,莫衷一是。”        紧接着连续数日,当地报纸又发表了相关的连续报道,当时的营口水产专家判定此物为龙的一种——蛟类。        1934年的夏天,营口阴雨连绵,持续下了40多天的大雨,辽河水暴涨,辽河北岸的芦苇塘变成了一片汪洋,鱼虾漂浮在水面上,空气中飘散着一股强烈的腥臭味道。大雨过后,当时生活在辽河北岸的人们都能闻到苇塘内的腐臭气味,但却始终搞不清楚究竟是什么原因。一天,一个看管苇塘的人顺着味道走去,在他扒开芦苇时,惊奇地发现在芦苇塘中竟然有一巨大怪物的尸骸。看苇塘人惶恐不安,慌慌慌张张地拔腿就往回家跑,据说到家后他一头扎到炕上,从此一病不起。当地一些上了年纪的老人回忆说,这个怪物曾经出现过两次,第一次出现在距离入海口20公里处。        肖素芹:我9岁那年看到的,我在马身上站起来,我爸扶着我,我站着看的。看到龙眼睛半睁不睁,它尾巴回过来绻着,两爪子在前边,你看两爪子就像龙爪一样一样的。龙离开水不行,干巴。龙都要生蛆架势。        当时,老百姓认为天降巨龙是吉祥之物,为了使困龙尽快上天,人们有的用苇席给怪兽塔凉棚,有的挑水往怪兽身上浇,为的是避免怪物身体发干。据说,人们都非常积极,即便是平日里比较懒惰的人也都纷纷去挑水、浇水。而在寺庙里许多百姓、僧侣每天都要为其作法、超度,此举一直持续到又一次的数日暴雨过后,这只怪物神秘地消失了为止。然而,二十多天以后,这个怪物第二次又奇异地出现了,这次出现是在距辽河入海口10公里处的芦苇丛中,此时它已不是活物,而是一具奇臭难闻的尸骸。        骨片的捐献者——孙正仁老人在当年亲眼目睹这个怪物骨骸时只有十一岁。
首页 1 2 3 4 下一页