Keine Kryptographie

Alle anderen Themen ...

Moderator: ModerationP

Keine Kryptographie

Beitragvon Gast » 10. Jan 2019, 11:32

Hallo,

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
Gast
 

Re: Keine Kryptographie

Beitragvon Der Steuerfuzzi » 10. Jan 2019, 11:49

Hallo,

und was willst Du uns damit sagen?

Du bist Nautilus? Eine Göttin? Kennst das Versteck? Du bist gut geschützt? :roll:
Gruß
Michael
Benutzeravatar
Der Steuerfuzzi
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 3704
Registriert: 25. Mär 2013, 13:28

Re: Keine Kryptographie

Beitragvon Gast » 10. Jan 2019, 13:02

test mal bei

185.244.192.170:20017

aber nur mit einer VM
Gast
 

Re: Keine Kryptographie

Beitragvon steve1da » 10. Jan 2019, 13:09

Hola,

was ist der Sinn dieses Threads?

Gruß,
steve1da
Benutzeravatar
steve1da
Moderator
 
Beiträge: 28908
Registriert: 24. Sep 2003, 10:54

Re: Keine Kryptographie

Beitragvon Gast » 10. Jan 2019, 13:23

Base64 codierte Textesind eigentlich gut zu erkennen, aber in dieser Variante nicht unbedingt.

Lernen: bestimmte Muster als Base64 zu erkennen und diese Variante der Obsfuskation
Gast
 


Zurück zu Offtopic (provisorisch)

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 2 Gäste