Verschlüsselung schreiben

    Haste Vertragslaufzeit? Gib mal link zum Anbieter gucken was die AGB sagt sofern du dir das anders überlegen solltest. Das ist ja schon abzocke schau z.b. hier da wird dir auch schon mehr für weniger geld geboten -> http://all-inkl.com/webhosting/uebersicht/ und wie gesagt für 8 € mehr bekommste reichlich mehr!

    Vorher immer informiern das sowas nicht passiert ;)

    Edit: Selbst kostenlos geht mehr -> http://www.bplaced.net gut da würde aber leider kein SSL gehen aber das geht bei dein ja auch nicht :D

    Gruss DevFly

    Du kannst dir auch ein eigenes SSL Zertifikat erstellen und es selbst signieren.
    Dann kommt aber bei jedem Besucher die Meldung, das die Seite vielleicht nicht vertrauenswürdig ist.
    Aber der Trafic wäre letzten Endes verschlüsselt.

    So, sorry fürs wieder hoch pushen aber das muss sein :D
    Also, da ich zu viele Problem mit AES habe, habe ich mich entschlossen eine eigene Verschlüsselung zu kritzeln.
    Ich habe da mal was versucht.
    Man benötigt ein Passwort + Verschlüsselungsstufe um aus nem gewirwar den richtigen String zu bekommen.
    Ok, das lustige an der Geschichte ist, ich kann egal mit wie viel Stufen verschlüsseln, ich bekomme es bei Stufe 1 entschlüsselt :(

    Spoiler anzeigen
    [autoit]

    Func _Verschlusselung ($iKey, $iText, $iStufe = 1)
    Local $iVerschlusselung = $iText

    [/autoit] [autoit][/autoit] [autoit]

    If Not IsBinary ($iKey) Then $iKey = StringToBinary ($iKey)
    $iKey = StringReplace ($iKey,"0x","")

    [/autoit] [autoit][/autoit] [autoit]

    For $i = 1 To $iStufe
    Local $iVar
    $iSplit = StringSplit ($iText,"")
    For $j = 1 To $iSplit[0]
    $iVar &= Asc ($iSplit[$j]) & $iKey
    Next
    $iVerschlusselung = StringToBinary ($iVar)
    $iVerschlusselung = StringReplace ($iVerschlusselung,"0x","")
    Next

    [/autoit] [autoit][/autoit] [autoit]

    Return StringToBinary ($iVerschlusselung)
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func _Entschlusselung ($iKey, $iVerText)
    Local $iEntschlusseln
    Local $iText = BinaryToString ($iVerText)

    [/autoit] [autoit][/autoit] [autoit]

    If Not IsBinary ($iKey) Then $iKey = StringToBinary ($iKey)
    $iKey = StringReplace ($iKey,"0x","")

    [/autoit] [autoit][/autoit] [autoit]

    For $i = 1 To 1
    Local $iVar
    $iText = BinaryToString ("0x" & $iText)
    ;~ Exit MsgBox (0,"",$iText)
    ;~ $iText = StringReplace ($iText,$iKey,"")
    $iSplit = StringSplit ($iText,$iKey,1)
    For $j = 1 To $iSplit[0]
    $iVar &= Chr ($iSplit[$j])
    Next
    $iText = $iVar
    MsgBox (0,"",$iText)
    Next
    $iEntschlusseln = $iText

    [/autoit] [autoit][/autoit] [autoit]

    Return $iEntschlusseln
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    $iKey = StringToBinary (@DesktopDir)
    $iText = "ich bin toll und habe ein tollen langen satzt mit ganz viel information die ebenfalls toll ist und extrem lang und sehr unnötig"
    $iStufe = 3

    [/autoit] [autoit][/autoit] [autoit]

    $iVer = _Verschlusselung ($iKey, $iText, $iStufe)
    $iEnt = _Entschlusselung ($iKey, $iVer)

    [/autoit] [autoit][/autoit] [autoit]

    ;~ MsgBox (0,"",$iVer)

    [/autoit]


    Ich hoffe ihr könnt mir helfen :)