string coderen & decoderen

[romic]

hellow,

Via VB kan je een string laten encrypten, en dan schrijft hij dat naar een bestand.

1e vraag: kan ik dat ook gewoon naar een variabele schrijven (hoe?)
2e vraag: het decrypten lukt bij mij niet.

 

[RonaldGJ]

Bedoel je dat een woord er in een soort geheimtaal uit komt te zien. En als je die tekens decrypt dat er dan het originele woord weer komt te staan?

Ronald!

 

[romic]

jep

 

[RonaldGJ]

Er staat hier een programma op helpmij, die doet dat!! Je kunt hem zo downloaden

Grtz, Ronald!

 

[romic]

Waar?
en
Kun je ook de code zien, anders heb ik er niks aan, ik wil er wat van leren

 

[That Guy]

Het leukste en beste is om zelf een encriptie/decriptie code te schrijven

ten eerste: hoe wil je je string laten coderen? je kan bijvoorbeeld je eigen code schrijven:

Private Function Encrypt(strInvoer as string)
Dim i As Long, temp2 As String, Temp3 As String
For i = 1 To Len(strInvoer)
Temp3 = Asc(Mid(strInvoer, i, 1))
If Len(Temp3) < 3 Then
Temp3 = "0" & Temp3
End If
temp2 = temp2 & Temp3
Next i
msgbox temp2 
End Function

deze functie roep je aan door Encrypt("deze_string")
er komt dan een mesage box met de ascii-waarde van "deze_string" (dat is: 100101122101095115116114105110103) Je kan dit aanpassen op allerlei manieren, bijvoorbeeld deze waarde * 2 doen, in plaats van de Ascii (Asc(string)) de octale waarde (Oct(string) gebruiken, ecetera

Om het terug te zetten naar de normale text (dit voorbeeld dan):

Private Function Decrypt(InvoerString)
On Error Resume Next
Dim i As Long, Temp As String
For i = 1 To Len(InvoerString) \ 3
Temp = Temp & Chr(Val(Mid(InvoerString, (i - 1) * 3 + 1, 3)))
Next i
msgbox Temp
End Function

Je roept deze code aan door "Decrypt(*asciiwaarde*)
bijvoorbeeld: Decrypt(100101122101095115116114105110103) levert een mesage box met "deze_string" op.


Ik hoop dat je er wat aan hebt,

V:thumb:

 

[romic]

jep, heb ik idd wat aan.