- PageHelper返回参数详解
- Java 简介
- Java开发环境配置
- Java基础语法
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的文章或继续浏览相关文章,希望大家以后支持我的博客! 。
我有一个消息 static int[] message = { 0x01, 0x10, 0x00, 0x01, // port addres 01 - 08
如何将十进制转换为以下格式的十六进制(至少两位,零填充,不带 0x 前缀)? 输入:255 输出:ff 输入:2 输出:02 我尝试了 hex(int)[2:] 但它似乎显示了第一个示例而不是第二个示
这个问题已经有答案了: 已关闭12 年前。 Possible Duplicate: Large numbers in Pascal (Delphi) 我正在尝试将 66 位值转换为十进制。 我注意到d
给定一个十进制数字列表,如何将每个数字转换为其等效的十六进制值,反之亦然? 例如: (convert2hex 255 64 64); ->(FF 40 40) (convert2dec FF 40 4
var color = Math.floor(Math.random() * 16777215).toString(16); var hex = Number.parseInt(col
我一直被教导 0-9 代表 0 到 9 的值,A、B、C、D、E、F 代表 10-15。 我看到这种格式 0x00000000,它不适合十六进制模式。有没有导游或导师可以解释一下? 我在谷歌上搜索了十
我目前正尝试像十六进制编辑器一样将文件读取为十六进制值。为了解释这个问题,让我们假设我有一个test.txt,里面有一个简单的“Hello world”。我正在尝试使用接近以下代码的程序以十六进制形式
我正在尝试获取元素背景颜色 $(document).ready(function(){ $.each('.log-widget',function(){ console.log($(t
0x40130020的十六进制值是 2.296883 的浮点值, 使用本网站 http://gregstoll.dyndns.org/~gregstoll/floattohex/ .这如何实现到 Lu
就目前情况而言,这个问题不太适合我们的问答形式。我们希望答案得到事实、引用资料或专业知识的支持,但这个问题可能会引发辩论、争论、民意调查或扩展讨论。如果您觉得这个问题可以改进并可能重新开放,vis
很难说出这里要问什么。这个问题模棱两可、含糊不清、不完整、过于宽泛或夸夸其谈,无法以目前的形式得到合理的回答。如需帮助澄清此问题以便重新打开,visit the help center . 关闭 1
谁能解释一下我们如何计算十六进制浮点常量的值。我在看书,发现0x0.3p10代表值192。 最佳答案 指数仍以十进制表示,但底数为二,尾数为十六进制。 所以 0.3P10 是 (3 × 16−1) ×
我正在尝试创建一个标签云,需要帮助来创建一个函数来计算应用于每个标签链接所需的颜色。 我有 3 个变量: 单个标签重要性(从 0.1 到 1) 最大(最重要)的标签颜色(十六进制代码,例如“fff00
大家好,我想发送尽可能短的字符串/值。如果我有以下内容 1)l23k43i221j44h55uui6n433bb4 2)124987359824369785493584379 3)kla^askdja
我知道你会写... background-color: #ff0000; ...如果你想要红色的东西。 你可以写... background-color: rgba(255, 0, 0, 0.5);
我有一些传递地理位置坐标的二进制数据流 - 纬度和经度。我需要找到它们编码的方法。 4adac812 = 74°26.2851' = 74.438085 2b6059f9 = 43°0.2763'
我想从 my_table 中选择 family,其中 family LIKE '%HEX(9D)' 家庭十六进制格式以 9D 十六进制结尾 我将excel文件转换为sqlite数据库但是 我的一些数据
我有一组二进制配置文件,每个文件有三个版本——每个文件的原始版本和两个不同修改的版本。我需要能够同时看到两个版本和原始版本之间的差异。 我需要的是一个二进制文件的三向差异工具。通过相当费力的谷歌搜索,
我正在尝试将(可变长度)十六进制字符串转换为带符号整数(我需要正值或负值)。 [Int16] [int 32]和[int64] 似乎可以在2,4+字节长的十六进制字符串上正常工作,但我在使用3个字节的
如何将十六进制的 unicode 写入 Facebook“您在想什么”框? 我尝试过写: \u00B9 "\u00B9" ¹ "¹" 到目前为止没有任何效果 (让我补充一下,我是在 M
我是一名优秀的程序员,十分优秀!