Public Function Base64Enc(ByRef vxbData() As Byte) As String With CreateObject("MSXML.DOMDocument").CreateElement(" Base64 ") .DataType = "bin.base64" .NodeTypedValue = vxbData Base64Enc = .Text End WithEnd FunctionPublic Function...
Showing posts with label Cryptography. Show all posts
Showing posts with label Cryptography. Show all posts
Sunday, June 17, 2012
MSXML Encode Decode Base64
Private Function EncodeBase64(ByRef arrData() As Byte) As String Dim objXML As MSXML2.DOMDocument Dim objNode As MSXML2.IXMLDOMElement ' help from MSXML Set objXML = New MSXML2.DOMDocument ' byte array to base64 Set objNode = objXML.createElement("b64")...
Monday, May 28, 2012
Fungsi Encrypt Dan Decrypt Sederhana
Option Explicit Public Function Encrypt(sText As String) As String Dim i As Integer Dim msg As String For i = 1 To Len(sText) msg = msg & Chr(Asc(Mid(sText, i, 1)) + 9) Next Encrypt = msg End Function Public Function...
Sunday, May 27, 2012
Class CRC32 Sebuah File - VB6 Code
Di bawah ini merupakan class untuk mengetahui CRC32 dari sebuah file. Untuk keperluan ini copy dan pastekan kode di bawah ini ke dalam class, kemudian ganti nama kelasnya menjadi clsCRC.Option Explicit Private crcTable(0 To 255) As Long 'crc32 Private...
Subscribe to:
Posts
(
Atom
)
