encryptie in Visual Basic 6

[ND863]

Mijn progje kan nu een txt filetje maken die de inhoud heeft van text1.text. Maar ik wil hem nu dat deze opslaat als een encryptie. De letters die ik in de text-box tik moeten worden opgeslagen als cijfers of iets dergelijks. De letter P moet het bijvoorbeeld F344 betekenen. En de letter A F014 ofzo.

1)Hoe moet ik de text - box letter voor letter laten lezen, en dan iedere letter een cijfer toekennen?

2)Hoe moet ik deze weer letter voor letter uitlezen uit een txt bestandje, en die deze code weer omzet naar noermale letters? (hij leest dus F334, en op mijn scherm krijg ik de letter P te zien)

[johnwoo]

[...]

1)Hoe moet ik de text - box letter voor letter laten lezen, en dan iedere letter een cijfer toekennen?

code:

Dim Txt As String, r As Integer, Char As Byte
Txt = txtBlaat.Text
For r = 1 To Len(Txt)
  Char = Asc(Mid$(Txt, r, 1))
  ' Char is nu een getalletje tussen 0 en 255
  ' Doe hier je bewerking op Char
  Put #FileNum, , Chr$(Char)
Next r

2)Hoe moet ik deze weer letter voor letter uitlezen uit een txt bestandje, en die deze code weer omzet naar noermale letters? (hij leest dus F334, en op mijn scherm krijg ik de letter P te zien)

Mja, precies andersom dus

code:

Dim Txt As String, Char As Byte, Buf As String * 1
While Not EOF(FileNum)
  Get #FileNum, , Buf
  Char = Asc(Buf)
  ' Doe hier de omgekeerde bewerking op Char
  Txt = Txt & Chr$(Char)
Next r
txtBlaat.Text = Txt

De sterkte van je 'codering' hangt natuurlijk af van de bewerking die je erop loslaat... Je kan de tekst gewoon coderen, of encrypten door er een sleutel bij te gebruiken.

[ND863]

ik ben nog niet zo ervaren met programmeren. en helemaal niet in de meer ingewikkelder programma's. Maar wat moet ik nou met die char doen?
wat word hier gedaan ?
Moet ik bij de bewerking van char zoeiets als dit invullen ?
: 1 = a 2 = B

Met andere woorden ik snap er geen h*l van

Misschien kun je deze code nog een keer replyen maar dan met een voorbeeld erin. Mijn dank zou groot zijn

[DroogKloot]

*Sigh*

Zonder dat ik je voedsel ga voorkauwen, is dit het algemene proces wat je met de plain- en cyphertext uitvoert...

Encryptie:
1). INPUT-string = (plaintext)
2). Karakters als bijbehorende ASCII-waarde schrijven
3). Uitkomsten bij (2) achter elkaar plakken
4). Encryptiefunctie loslaten op (blokken) string uit (3)
5). Blokken cyphergetallen in string schuiven
6). Optioneel: karakters van (5) maken***
7). OUTPUT-string = (cyphertext) opslaan in textfile

Decryptie:
1). INPUT-string = (cyphertext)
2). Optioneel: ASCII-waardes van (1) maken***
3). Decryptiefunctie loslaten op (blokken) string uit (1)
4). Uitkomsten bij (2) achter elkaar plakken
5). Getallen uit (3) als bijbehorende ASCII-letter schrijven
6). OUTPUT-string = (plaintext) tonen

Het heeft m.i. weinig zin om te proberen een encryptiesysteem te bouwen als je de basics (pun) van VB nog niet onder de knie hebt...

[johnwoo]

Op zondag 02 december 2001 14:58 schreef ND het volgende:
ik ben nog niet zo ervaren met programmeren. en helemaal niet in de meer ingewikkelder programma's. Maar wat moet ik nou met die char doen?
wat word hier gedaan ?
Moet ik bij de bewerking van char zoeiets als dit invullen ?
: 1 = a 2 = B

Met andere woorden ik snap er geen h*l van

Misschien kun je deze code nog een keer replyen maar dan met een voorbeeld erin. Mijn dank zou groot zijn

Voor een erg basic codering (dit is dus geen encryptie en biedt weinig veiligheid behalve dat de tekst niet meer in een keer leesbaar is) zou je als bewerking dit kunnen doen (bij zowel codering als decodering):

code:

Char = 255 - Char
' of: (dit is exact hetzelfde)
Char = Char Xor 255

[ND863]

ow, nou snap ik het! bedankt, ik wilde maar een basic encryptie hebben. Dat ie niet in een keer leesbaar zou zijn. Ga het straks ff proberen.