skrivning til fil og Kryptering

Tags:    visual-basic

<< < 12 > >>
Jeg er ved at lave et krypteringsprogram, men har et problem med at skrive til en fil. jeg bruger følgende kode:

Open Destination For Output As #1
For x = 0 To List1.ListCount - 1
Open List1.List(x) For Input As #2
Do While Not EOF(2)
data = Input(1, #2)
y = Asc(Split(data, "")(1)) + Asc(Split(Password, "")(1))
If y > 255 Then y = y - (255 - 32)
Print #1, Chr(y)
Print #1, Text
Loop
Close #2
Next
Close #1

men den laver et linieskift efter hvert bogstav den indsætter, hvad skal jeg gøre for at den skriver det lige efter hinanden uden gåseøjne, eller linieskift eller andre ting som kan genere???

derudover vil jeg høre om der er nogen som kender nogle gode forklarende bøger omkring DES (Data Encryption Standard), da jeg er ved at lave større skriftlig opgave i det, og helst på dansk.



Nu giver den kun 2 outputs uanset om man bruger step 2 eller ej.
ps. filen den skal kryptere er på 6 bogstaver så den burde være længere.


hmm, hvad siger den lof(2) er ?
så skulle dne gerne retuner den e 6 bytes/tegn lang
-------------------------------------------------------
Visual Basic noget for dig?
tjek Visual Basic-Gruppen
http://www.udvikleren.dk/groups/?gid=41



LOF(2) er længden af fil 2, og ja den returnerer 6 bytes/tegn, det kan jeg se på at der kommer 6 msgbox'e som du kan se af koden, men når jeg går ind i filen har den ikke skrevet det hele ind så det må være der noget går galt.
desuden skriver den 5 tegn ind, og det 5. tegn er rigtigt, men resten er forkerte, så fejlen må givetvis ligge her:
Put #1, 1, Chr(y)
og hvis jeg fjerner chr() som du får jeg kun 2 tegn, uanset om jeg stepper 2 eller ej.



Jeg har fundet ud af at den med put funktionen af en eller anden årsag skriver 1 tegn som notesblok ikke kan genkende før den skriver første bogstav.
ved du hvordan man måske kan løse det?



det fungerer nu tak for hjælpen!:)
jeg skulle bare lave tegnet om til byte før det blev indsat med put.



det fungerer nu tak for hjælpen!:)
jeg skulle bare lave tegnet om til byte før det blev indsat med put.


:)

var så lidt

-Thomas
-------------------------------------------------------
Visual Basic noget for dig?
tjek Visual Basic-Gruppen
http://www.udvikleren.dk/groups/?gid=41
##############################
----http://www.thomasc.tk/uof/ebank/ <-- :P



<< < 12 > >>
t