När jag tillverkat en txtfil blir
denna några byte större än om man gör den manuellt
vad spelar det för roll jo när jag sedan drar och släpper den
på avkrypteringknappen blir det fel. Men blir helt rätt om jag gör
den manuellt.?

Private Sub Command2_Click()
Dim MyFile As String, strinsert As String
MyFile = Text1.Text
strinsert = txtEncrypt.Text

Open MyFile For Output As #1
Print #1, strinsert
Close #1

End Sub

Mvh Hasse

ps Har inte varit här på länge finns inte nybörjar forumet kvar?
för det är där jag hör till

Hej
Det troliga är att din txtEnkrypt.Text slutar med Chr(13) och Chr(10)
dvs vbCrLf , dom ser du inte när du gör Drag Drop
Testa detta

Private Sub Command2_Click()
Dim MyFile As String, strinsert As String
Dim fNum As Long
fNum = FreeFile
MyFile = Text1.Text
strinsert = Left$(txtEncrypt.Text,Len(txtEncrypt.Text)-2)
Open MyFile For Output As #fNum
Print #fNum, strinsert
Close #fNum
End Sub
'/Sven

Nej tyvärr gick inte detta
fattas två tecken i slutet av den krypterde filen
Ë®®”´Ô'S_k·¿ãIq =Orginalkrypterad
Ë®®”´Ô'S_k·¿ã = Coden jag provade från Sven

Klar text = God Jul På er

Mvh Hasse

Hej
Men då fattas det väl inte två tecken varje gång
i ditt beskrivna exempel skulle din orginalkod funkat.
Sedan kan det vara lurigt med vissa tecken när man
krypterar tex, jag fick jag problem med ' (fnutt) och " (citattexken)
Chr(13) Enter kan göra radbyte mm.

ge dig inte "på att igen"
/Sven

Provade att skapa en tomt text dockument
storleken blev 2 byte ??
skapar jag ett tomt text dockument med windows blir det 0 byte
Undra om man komma runt detta
Iof inte så viktigt men det retar en

God Jul
Mvh Hasse