|
| Autor |
Nachricht |
Slay2oo7_
Tutorial Leser
Anmeldedatum: 20.07.2007
Beiträge: 34
Wohnort: C:\Windows\XRooTX
|
Textdateien verschlüssen mit xor oder so?
Verfasst am: 26.02.2008, 22:09 |
|
|
Kann mir einer erklären, wie ich textdateien verschlüssel und entschlüssen, damit niemand sie ohne das programm benutzen kann...
Bsp: LoginManager
Pws werden in ner txt datei gespeichert, aba jeder kann sie lesen... und das soll verhindert werden... |
|
| |
|
 |
tr4st_
« Moderator »
Anmeldedatum: 17.12.2007
Beiträge: 315
Wohnort: Private Class _ Villa()
|
|
| |
|
|
sollniss_
Coder
Anmeldedatum: 08.09.2007
Beiträge: 212
|
Verfasst am: 27.02.2008, 19:52 |
|
|
also base is ja das unsicherste wasses gibt..^^
könnte dir hiervon was anbieten:
clsBlowfish.cls
clsCryptAPI.cls
clsDES.cls
clsGost.cls
clsRC4.cls
clsSimpleXOR.cls
clsSkipjack.cls
clsTEA.cls
clsTwofish.cls
modCRC32.bas
modMD5.bas
modSHA1.bas
icq: 211710088, hab nämlich kb das jetz zu uppen
http://sollniss.1x.to/
 |
|
| |
|
|
clx_
Tutorial Leser
Anmeldedatum: 16.01.2008
Beiträge: 25
|
Verfasst am: 27.02.2008, 19:53 |
|
|
| zeig mal CryptAPI^^ |
|
| |
|
|
c0re_
« Moderator »
Anmeldedatum: 29.11.2007
Beiträge: 425
|
Verfasst am: 27.02.2008, 19:58 |
|
|
Ich kann dir RC4 empfehlen. Der Algo davon orientiert sich an einem String, den du selbst festlegen kannst. Du ent-/verschlüsselst deinen Text also mit einem Passwort.
Das wäre die Funktion dazu:
| Code: | Public Function RC4(ByVal Expression As String, ByVal Password As String) As String
On Error Resume Next
Dim RB(0 To 255) As Integer, X As Long, Y As Long, Z As Long, Key() As Byte, ByteArray() As Byte, Temp As Byte
If Len(Password) = 0 Then
Exit Function
End If
If Len(Expression) = 0 Then
Exit Function
End If
If Len(Password) > 256 Then
Key() = StrConv(Left$(Password, 256), vbFromUnicode)
Else
Key() = StrConv(Password, vbFromUnicode)
End If
For X = 0 To 255
RB(X) = X
Next X
X = 0
Y = 0
Z = 0
For X = 0 To 255
Y = (Y + RB(X) + Key(X Mod Len(Password))) Mod 256
Temp = RB(X)
RB(X) = RB(Y)
RB(Y) = Temp
Next X
X = 0
Y = 0
Z = 0
ByteArray() = StrConv(Expression, vbFromUnicode)
For X = 0 To Len(Expression)
Y = (Y + 1) Mod 256
Z = (Z + RB(Y)) Mod 256
Temp = RB(Y)
RB(Y) = RB(Z)
RB(Z) = Temp
ByteArray(X) = ByteArray(X) Xor (RB((RB(Y) + RB(Z)) Mod 256))
Next X
RC4 = StrConv(ByteArray, vbUnicode)
End Function |
Die Verschlüsselung funktioniert in beide Richtungen. Also kannst du die Funktion zum Entschlüsseln und verschlüsseln benutzen.
Aufgerufen wird die Funktion so:
| Code: | | NeuerString = RC4("AlterString", "Passwort") |
 |
|
| |
|
|
christopher.g_
Tutorial Leser
Anmeldedatum: 10.12.2007
Beiträge: 72
|
|
| |
|
|
ZiG_
Überflieger
Anmeldedatum: 07.03.2007
Beiträge: 1248
|
Verfasst am: 28.02.2008, 10:58 |
|
|
@sollniss
modCRC32.bas
modMD5.bas
modSHA1.bas
Das sind ja mal voll die Hardcore Verschlüsselungen^^
Nunja. Raufladen mußte da eigentlich garnichts.
Findet man mehr als genug im inet.
Wer nicht auf seine Weise denkt, denkt überhaupt nicht. (Oscar Wilde) |
|
| |
|
|
Slay2oo7_
Tutorial Leser
Anmeldedatum: 20.07.2007
Beiträge: 34
Wohnort: C:\Windows\XRooTX
|
Verfasst am: 28.02.2008, 20:21 |
|
|
vielen dank für die antworten, werd rc4 mal ausprobiern
Mfg
Slay2oo7 |
|
| |
|
|
exe-cute_
Poster
Anmeldedatum: 21.10.2007
Beiträge: 154
|
Verfasst am: 28.02.2008, 20:40 |
|
|
RC4 kannste aba nicht in ner textbox usen. da koenntest du es umschreiben, das RC4 nicht alle zeichen benutzt, sondern nur die, die eine textbox auch anzeigen kann. |
|
| |
|
|
Registrieren
Login
