Shellcode加密解密函数

作者:Bin 来源:Bin博客 时间:2009-04-24 11:18:00 

不知道写得对不对啊!错了再改吧!

加密函数

Function Encodestr(s,xorstr)
Dim en
For i=1 To Len(s)
    en = en & hex (Asc(Mid(s,i,1)) Xor "&h"&xorstr)
Next
If Len(s) Mod 2 >0 Then 
    en = en & "00"
End If     
Set regex=new regExp
     regex.pattern="(..)(..)"
     regex.IgnoreCase=true
     regex.global=true
     matches=regex.replace(en,"%u$2$1")
  Encodestr=LCase(matches)
End Function

解密函数

Function Decodestr(s,xorstr)
Dim de,destr
de=Replace(s,"%u","")
set regex=new regExp
     regex.pattern="(..)(..)"
     regex.IgnoreCase=true
     regex.global=true
     matches=regex.replace(de,"$2$1")
For i = 1 To Len(matches) step 2
     hexTmp = Mid(matches,i,2)
     If hexTmp <> "00" Then
     destr = destr & CHR(CLng("&h" & hexTmp) Xor "&h"&xorstr)
     End If
Next
Decodestr=LCase(destr)
End Function 

 

标签:shellcode,加密,解密,函数
0
投稿

猜你喜欢

  • 自适应内容高度的收缩与展开

    2007-09-24 14:38:00
  • 将Reporting services的RDL文件拷贝到另外一台机器时报Data at the root level is invalid的解决方法

    2012-07-11 15:33:45
  • 页面表达常用方式

    2010-05-27 12:42:00
  • Asp中通过简单的例子理解下ByVal和ByRef的用法

    2011-02-20 10:57:00
  • 关于交互设计在QQ秀赠送流程中的优化

    2009-06-11 12:30:00
  • 让文本框textarea自动适应内容的高度

    2008-07-01 14:44:00
  • 使用SQL Server 2000索引视图提高性能

    2009-01-13 13:47:00
  • Oracle 数据库连接查询SQL语句

    2009-08-05 20:56:00
  • CSS鼠标悬停tip效果

    2007-08-26 17:32:00
  • SQL临时表递归查询子信息并返回记录的代码

    2012-08-21 11:06:19
  • CSS hacks与争议

    2007-11-19 12:56:00
  • MYSQL的DATE_FORMAT()格式化日期

    2009-02-27 16:04:00
  • ASP 使用三层架构 asp中使用类

    2011-03-16 10:52:00
  • [hta]一个定时重启或关闭计算机的小工具

    2007-10-17 12:02:00
  • 请给PNG8一个机会:对png8的误解

    2009-09-21 10:45:00
  • ASP代理采集的核心函数代码

    2010-01-02 20:43:00
  • 好习惯和坏习惯

    2009-01-20 12:51:00
  • mysql 各种时间段查询

    2010-01-06 13:37:00
  • WinHTTP Services 5.1 参考资料

    2010-03-27 20:49:00
  • ASP调用数据库常见错误的解决

    2007-09-07 10:05:00
  • asp之家 网络编程 m.aspxhome.com