---

Hej...
Er der en som kan hjælpe mig med dette?:

Option Explicit

Private Sub Command3_Click()
End
End Sub
Private Sub Dir1_Change()

File1.Path = Dir1.Path
File1.Pattern = ("*.*")

End Sub
Private Sub Drive1_Change()

Dir1.Path = Drive1.Drive

End Sub
Private Sub Command1_Click()
Dim FileName As String
Dim FileNum As Integer
Dim FileBytes() As Byte

If Right(File1.Path, 1) <> "\" Then

FileNum = File1.Path + "\" + File1.FileName
Else
FileNum = File1.Path + File1.FileName
End If

'Open File Here
'Veriable = "FileName"

FileName = File1.Path


'Reading File
ReDim FileBytes(FileLen(FileName) - 1)
FileNum = FreeFile
Open FileName For Binary Access Read As FileNum
Get #FileNum, , FileBytes
Close FileNum

'Encrypting/Decrypting Data
RC4 FileBytes, Text1.Text 'Password

'Save File Here
'Veriable = "FileName"
FileName = Text3

'Writing File
FileNum = FreeFile
Open FileName For Binary Access Write As FileNum
Put #FileNum, , FileBytes
Close FileNum
End Sub

Det skal forstille et crypterings program... Men efter complie kan den ikke finde den valgte fil...

/Caine

---

Hej Caine,

det ligner meget noget af den kode der bliver brugt i dette eksempel... -->
http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=15208&lngWId=1
den gør bl.a. også brug af et bas modul... jeg ved ikke om det evt. er den del du mangler...

mht. kryptering har de også en del andre eksempler inde i deres VB sektion... -->
http://makeashorterlink.com/?Y58813034

mvh.

Strarup

---

Hej Strarup

Dine links fungér ikke helt...

---

Hej Caine,

oki doki... underligt...

prøv http://www.planet-source-code.com
i søgnings feltet skriver du så "Encrypting" og vælger "Visual basic", en af de første resultater der kommer frem er _*New type of encryption*_ det var den jeg downloadede og kigge på... og koden lignede det du havde skrevet...

såvidt jeg husker ska' man være medlem hvis man ønsker at downloade mere end 3 ting fra deres side... men det er gratis og helt sikkert det værd... især hvis du ska' til at lege med kode...

mvh.

Strarup

---

Hej Strarup

Nu har fundet ud af hvorfor dine links ikke virkede... !My Fault! Jeg havde ikke en account på planet-source-code

Men nu ser jeg lige på dem... (Tak for din gode hjælp!!!)

venlig hilsen
/Caine

---

Tak for svaret strarup.
                        

Eftersom du ikke er logget ind i systemet, kan du ikke skrive et indlæg til dette spørgsmål.

Hvis du ikke allerede er registreret, kan du gratis blive medlem, ved at trykke på "Bliv medlem" ude i menuen.