Keine Kryptography, aber auch ganz nett:
Alice fragt: Wo ist der Schatz? und sendet:
IDAxMDEwMTExIDAxMTAxMTExIDAwMTAwMDAwIDAxMTAxMDAxIDAxMTEwMDExIDAxMTEwMTAw
IDAwMTAwMDAwIDAxMTAwMTAwIDAxMTAwMTAxIDAxMTEwMDEwIDAwMTAwMDAwIDAxMDEwMDEx
IDAxMTAwMDExIDAxMTAxMDAwIDAxMTAwMDAxIDAxMTEwMTAwIDAxMTExMDEwIDAwMTExMTEx
Bob antwortet:
IDAxMDAxMTEwIDAxMTEwMTAxIDAxMTEwMDEwIDAwMTAwMDAwIDAxMTAwMTExIDAxMTEwMTAx
IDAxMTEwMTAwIDAwMTAwMDAwIDAxMTAwMTExIDAxMTAwMTAxIDAxMTEwMDExIDAxMTAwMDEx
IDAxMTAxMDAwIDExMTExMTAwIDAxMTEwMTAwIDAxMTExMDEwIDAxMTEwMTAwIDAwMTAwMDAw
IDAxMTAwMTEwIDExMTExMTAwIDAxMTAxMDAwIDAxMTEwMDEwIDAxMTEwMTAwIDAwMTAwMDAw
IDAxMDAwMTExIDExMTEwMTEwIDAxMTEwMTAwIDAxMTEwMTAwIDAxMTAxMDAxIDAxMTAxMTEw
IDAwMTAwMTExIDAxMTEwMDExIDAwMTAwMDAwIDAxMDAxMTEwIDAxMTAwMDAxIDAxMTEwMTAx
IDAxMTEwMTAwIDAxMTAxMDAxIDAxMTAxMTAwIDAxMTEwMTAxIDAxMTEwMDExIDAwMTAwMDAw
IDAxMTExMDEwIDAxMTEwMTAxIDAxMTAxMTAxIDAwMTAwMDAwIDAxMDEwMTEwIDAxMTAwMTAx
IDAxMTEwMDEwIDAxMTEwMDExIDAxMTEwMTAwIDAxMTAwMTAxIDAxMTAwMDExIDAxMTAxMDEx
- Code: Alles auswählen
Function Encode(rng)
If Len(rng) Then
rng = Replace(rng, Chr(10), "")
ReDim BB(Len(rng))
For i = 1 To Len(rng)
Hx = Asc(Mid(rng, i, 1))
For b = 0 To 7
BB(i) = (Hx And 2 ^ b) / 2 ^ b & BB(i)
Next b
Next i
End If
Encode = EncodeBase64(Join(BB))
End Function
Function Decode(rng)
Bx = decodeBase64(rng)
For b = 0 To UBound(Bx)
If Bx(b) <> 32 Then Tx = Tx & Chr(Bx(b))
Next b
For i = 1 To Len(Tx) Step 8
RR = Mid(Tx, i, 8)
For ii = 8 To 1 Step -1
Z = Z + Val(Mid(RR, ii, 1)) * 2 ^ (8 - ii)
Next ii
Ret = Ret & Chr(Z)
Z = 0
Next i
Decode = Ret
End Function
Function EncodeBase64(text As String) As String
Dim arrData() As Byte
arrData = StrConv(text, vbFromUnicode)
Dim objXML As Object: Set objXML = CreateObject("MSXML2.DOMDocument")
Dim objNode As Object
Set objNode = objXML.createElement("b64")
objNode.DataType = "bin.base64"
objNode.nodeTypedValue = arrData
EncodeBase64 = objNode.text
Set objNode = Nothing
Set objXML = Nothing
End Function
Private Function decodeBase64(ByVal strData As String) As Byte()
Dim objXML As Object: Set objXML = CreateObject("MSXML2.DOMDocument")
Dim objNode As Object
Set objNode = objXML.createElement("b64")
objNode.DataType = "bin.base64"
objNode.text = strData
decodeBase64 = objNode.nodeTypedValue
Set objNode = Nothing
Set objXML = Nothing
End Function