• 欢迎访问奇跡の海网站,本站不上传任何资源,所有资源均来自于网络,欢迎加入奇跡の海~!奇跡の海-WordPress QQ群
  • 本站下载资源为网络上收集整理而来,并且以计算机技术研究交流为目的,版权归原作者所有,仅供大家参考,学习,不存在任何商业目的与商业用途.
  • 本站系统镜像均来自于官方原版,ed2k可视为P2P下载链接。所有操作系统默认均为试用版,如有正版密钥可以有效激活,本站不提供任何激活和相关服务。

AutoIt3(AU3源码)字符串加密解密算法的实现

AutoIT3 奇跡の海 2年前 (2017-05-30) 548次浏览 已收录 0个评论 扫描二维码

AutoIt3(AU3源码)字符串加密解密算法的实现

简介

AutoIt3针对字符串实现,加密解密函数,调用时,只要传入字符串以及加密密钥,就可以达到加密解密的效果。

实例


; binary encrypt..
func CSbinEncrypt($str, $key, $csl=20)
    $r_num = StringMid(MakeRandomXString(), 1, 10)
    return $r_num & AICipherSaber($str, $key, $r_num, $csl)
endfunc
 
; binary decrypt..
func CSbinDecrypt($str, $key, $csl=20)
    $str = BinaryToString($str)
    $r_num = StringMid($str, 1, 10)
    $str = StringMid($str, 11)
    return AICipherSaber($str, $key, $r_num, $csl)
endfunc
 
func MakeRandomXString()
    SRandom(@MSEC*@MSEC*@MIN)
    local $a[32]
    local $x = 0
    while $a[31] = ""
        $tmp = chr(Random(48, 71, 1))
        if StringIsXDigit($tmp) then
            $a[$x] = Asc($tmp)
            $x += 1
        endif
    wend
    return StringFromASCIIArray($a)
 endfunc
 
; CipherSaber Algorithm..
func AICipherSaber($d, $p, $rnum, $csl=20)
 
    $p &= $rnum
    local $S[256]
 
    for $i = 0 to 255
        $S[$i] = $i
    next
 
    local $j = 0, $t = StringLen($p)
    local $kkk[256]
 
    for $i = 0 to 255
        $kkk[$i] = Asc(StringMid($p, $j+1, 1))
        $j = Mod(($j + 1), $t)
    next
 
    $j = 0
    for $kk = 0 to $csl-1 ; CS2 loops
        for $i = 0 to 255
            $j = BitAND(($j + $S[$i] + $kkk[$i]),  0xff)
            $t = $S[$i]
            $S[$i] = $S[$j]
            $S[$j] = $t
        next
    next
    $i = 0
    $j = 0
    local $ii = 0
    local $ret = ''
    $dlen = StringLen($d)
 
    for $ii = 0 to $dlen-1
        $c = StringMid($d, $ii+1, 1)
        $i = BitAND(($i + 1), 0xff)
        $j = BitAND(($j + $S[$i]), 0xff)
        $t = $S[$i]
        $S[$i] = $S[$j]
        $S[$j] = $t
        $t = BitAND(($S[$i] + $S[$j]), 0xff)
        $ret &= Chr(BitXOR($S[$t], Asc($c)))
    next
    return $ret
endfunc


版权声明:本站所有文章和资源使用CC BY-NC-SA 4.0协议授权发布 , 转载应当以相同方式注明文章来自“SeaOMC.COM->AutoIt3(AU3源码)字符串加密解密算法的实现!在下边可以分享本文哦!
喜欢 (0)
[]
分享 (0)
奇跡の海
关于作者:
一个WordPress菜鸟!
发表我的评论
取消评论

表情 贴图 加粗 删除线 居中 斜体 签到

Hi,您需要填写昵称和邮箱!

  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址