个人中心
gpt4 book ai didi

VBS 十六进制异或加密实现代码

转载 作者：qq735679552 更新时间：2022-09-29 22:32:09 25 4
gpt4 key购买 nike

CFSDN坚持开源创造价值，我们致力于搭建一个资源共享平台，让每一个IT人在这里找到属于你的精彩世界.

这篇CFSDN的博客文章VBS 十六进制异或加密实现代码由作者收集整理，如果你对这篇文章有兴趣，记得点赞哟.

效果图:

代码都封装成函数了，方便调用:

  。

复制代码 代码如下

Key = "www-enun-net" '不要用数字 。

  。

Wscript.echo now & ", 加密: " MyData = ReadBin("test.jpg") EnData = Encoder(MyData) WriteBin "E_test.jpg", EnData Wscript.echo now & ", 加密: " 。

Wscript.echo now & ", 解密: " MyData = ReadBin("E_test.jpg") UnData = Uncoder(MyData) WriteBin "U_test.jpg", UnData Wscript.echo now & ", 解密: " 。

Function ReadBin(FileName)  Dim Stream, ObjXML, MyNode  Set ObjXML = CreateObject("Microsoft.XMLDOM")  Set MyNode = ObjXML.CreateElement("binary")  Set Stream = CreateObject("ADODB.Stream")  MyNode.DataType = "bin.hex"  Stream.Type = 1  Stream.Open  Stream.LoadFromFile FileName  MyNode.NodeTypedValue = Stream.Read  Stream.Close  ReadBin = MyNode.Text  Set MyNode = Nothing  Set Stream = Nothing  Set ObjXML = Nothing End Function 。

Function WriteBin(FileName, BufferData)  Dim Stream, ObjXML, MyNode  Set ObjXML = CreateObject("Microsoft.XMLDOM")  Set MyNode = ObjXML.CreateElement("binary")  Set Stream = CreateObject("ADODB.Stream")  MyNode.DataType = "bin.hex"  MyNode.Text = BufferData  Stream.Type = 1  Stream.Open  Stream.Write MyNode.NodeTypedValue  Stream.SaveToFile FileName, 2  Stream.Close  Set stream = Nothing  Set MyNode = Nothing  Set ObjXML = Nothing End Function 。

Function Encoder(Data)  Dim K, M  For n = 0 To Len(Key)-1   K = K & Asc(Left(Right(key, Len(Key)-n), 1)) & "#"  Next  Data = UCase(Data)  For i = 0 To Len(Data)-1   M = Left(Right(Mid(Data, i+1, 1), Len(Data)-i), 1)   For j = 0 To Len(Key)-1    If i Mod Len(Key) = j  Then     Encoder = Encoder & Hex((Asc(M) Xor Split(K, "#")(j)))    End If   Next  Next End Function 。

Function Uncoder(Data)  Dim K  For n = 0 To Len(Key)-1   K = K & "#" & Asc(Left(Right(key, Len(Key)-n), 1)) & "#X"  Next  K = K & K  Data = UCase(Data)  For i = 1 To Len(Data) Step 2   For j = 1 To Len(Key) * 2    If i Mod Len(Key)*2 = j  Then     Uncoder = Uncoder & Chr(Split(K, "#")(j) Xor ("&H" & Mid(Data, i, 2)))    End If   Next  Next End Function 。

  。

最后此篇关于VBS 十六进制异或加密实现代码的文章就讲到这里了,如果你想了解更多关于VBS 十六进制异或加密实现代码的内容请搜索CFSDN的文章或继续浏览相关文章，希望大家以后支持我的博客！ 。

25 4 0
文章推荐： VBS 提取狗狗影视中的ED2K连接的实现代码
文章推荐： 浅谈python中字典append 到list 后值的改变问题
文章推荐： Android编程之View简单学习示例
文章推荐： Python使用matplotlib模块绘制图像并设置标题与坐标轴等信息示例
qq735679552
个人简介

我是一名优秀的程序员,十分优秀！

滴滴打车优惠券免费领取
滴滴打车优惠券
全站热门文章
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com