Trung tâm cá nhân
sách gpt4 ăn đã đi

Mã triển khai mã hóa XOR thập lục phân VBS

In lại Tác giả: qq735679552 Thời gian cập nhật: 29-09-2022 22:32:09 26 4
mua khóa gpt4 giày nike

CFSDN nhấn mạnh vào giá trị tạo ra nguồn mở và chúng tôi cam kết xây dựng nền tảng chia sẻ tài nguyên để mọi nhân viên CNTT có thể tìm thấy thế giới tuyệt vời của bạn tại đây.

Bài viết trên blog CFSDN Mã triển khai mã hóa thập lục phân VBS này được tác giả sưu tầm và biên soạn. Nếu các bạn quan tâm đến bài viết này thì nhớ like nhé.

Kết xuất:

Mã được gói gọn thành các hàm để dễ gọi:

  。

Sao chép mã mã như sau

Key = "www-enun-net" 'Không sử dụng số.

  。

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

Wscript.echo now & ", Trả lời: " MyData = ReadBin("E_test.jpg") UnData = Uncoder(MyData) WriteBin "U_test.jpg", UnData Wscript.echo now & ", Trả lời: " 。

Hàm ReadBin(FileName) Dim Stream, ObjXML, MyNode Đặt ObjXML = CreateObject("Microsoft.XMLDOM") Đặt MyNode = ObjXML.CreateElement("binary") Đặt 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 Đặt MyNode = Nothing Đặt Stream = Nothing Đặt ObjXML = Nothing Kết thúc hàm 。

Hàm WriteBin(FileName, BufferData) Dim Stream, ObjXML, MyNode Đặt ObjXML = CreateObject("Microsoft.XMLDOM") Đặt MyNode = ObjXML.CreateElement("binary") Đặt 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 Đặt stream = Nothing Đặt MyNode = Nothing Đặt ObjXML = Nothing Kết thúc hàm 。

Hàm Encoder(Data) Dim K, M Đối với n = 0 Đến Len(Key)-1 K = K & Asc(Left(Right(key, Len(Key)-n), 1)) & "#" Tiếp theo Dữ liệu = UCase(Data) Đối với i = 0 Đến Len(Data)-1 M = Left(Right(Mid(Data, i+1, 1), Len(Data)-i), 1) Đối với j = 0 Đến Len(Key)-1 Nếu i Mod Len(Key) = j Thì Encoder = Encoder & Hex((Asc(M) Xor Split(K, "#")(j))) Kết thúc Nếu Tiếp theo Tiếp theo Kết thúc Hàm 。

Hàm Uncoder(Data) Dim K Đối với n = 0 Đến Len(Key)-1 K = K & "#" & Asc(Left(Right(key, Len(Key)-n), 1)) & "#X" Tiếp theo K = K & K Dữ liệu = UCase(Data) Đối với i = 1 Đến Len(Data) Bước 2 Đối với j = 1 Đến Len(Key) * 2 Nếu i Mod Len(Key)*2 = j Thì Uncoder = Uncoder & Chr(Split(K, "#")(j) Xor ("&H" & Mid(Data, i, 2))) Kết thúc Nếu Tiếp theo Tiếp theo Kết thúc hàm 。

  。

Cuối cùng, bài viết này về mã triển khai mã hóa XOR thập lục phân VBS kết thúc tại đây. Nếu bạn muốn biết thêm về mã triển khai mã hóa XOR thập lục phân VBS, vui lòng tìm kiếm các bài viết CFSDN hoặc tiếp tục duyệt các bài viết liên quan, tôi hy vọng bạn sẽ ủng hộ blog của tôi trong phần sau. tương lai! .

26 4 0
Đề xuất bài viết: VBS trích xuất mã triển khai kết nối ED2K trong Dog Movies
Đề xuất bài viết: Một cuộc thảo luận ngắn gọn về vấn đề thay đổi giá trị sau khi thêm từ điển vào danh sách trong python
Đề xuất bài viết: Xem ví dụ học lập trình Android đơn giản
Đề xuất bài viết: Python sử dụng mô-đun matplotlib để vẽ hình ảnh và thiết lập thông tin như tiêu đề và trục tọa độ.
qq735679552
Hồ sơ

Tôi là một lập trình viên xuất sắc, rất giỏi!

Nhận phiếu giảm giá taxi Didi miễn phí
Phiếu giảm giá taxi Didi
Các bài viết phổ biến trên toàn bộ trang web
Chứng chỉ ICP Bắc Kinh số 000000
Hợp tác quảng cáo: 1813099741@qq.com 6ren.com
Xem sitemap của VNExpress