Šifrování souborů – Visual Basic – Fórum – Programujte.com

Mám jeden problém, použil jsem tento kód
Postup:
Na formulář přidejte tlačítko a zapište do něj následující proceduru:

Sub FileEncodeAndDecode(InputFile As String, OutputFile As String, _
PasswordKey As String)

Dim temp As Single
Dim Char As String * 1
Dim XORMask As Single
Dim temp1 As Integer

Open InputFile For Binary As #1
Open OutputFile For Binary As #2

For x = 1 To Len(PasswordKey)
temp = Asc(Mid$(PasswordKey, x, 1))
For y = 1 To temp
temp1 = Rnd
Next y

Randomize temp1
Next x


Counter = 0
For z = 1 To FileLen(InputFile)

XORMask = Int(Rnd * 256)

Get 1, , Char
Char = Chr$((Asc(Char) Xor XORMask))
Put 2, , Char

Counter = Counter + 1
If Counter > Len(PasswordKey) Then Counter = 1

For x = 1 To (Asc(Mid$(PasswordKey, Counter, 1)) * 2)
temp = Rnd
Next x
Next z

Close #1
Close #2

End Sub
Na událost Click tlačítka zapište:

Private Sub Command1_Click()

Dim InputFile As String
Dim OutputFile As String
Dim PasswordKey As String

InputFile = InputBox("Zadejte jméno souboru pro enkódování/dekódování")
OutputFile = InputBox("Zadejte jméno nového souboru")
PasswordKey = InputBox("Zadejte heslo")

Call FileEncodeAndDecode(InputFile, OutputFile, PasswordKey)

MsgBox "Soubor uložen jako " + OutputFile
End

End Sub

Tato aplikace umožňuje dekódovat/enkódovat pouze jeden soubor a když chci dekódovat/enkódovat další soubor musím tu aplikaci ukončit a znovu spustit, protože když ji neukončím tak to převádí špatně. Děkuji za odpověď.

Opravdu nikdo neví čím to je? :smile10:

To Petr : na to si si sám odpovedat

Petr napsal:"Tato aplikace umožňuje dekódovat/enkódovat pouze jeden soubor a když chci dekódovat/enkódovat další soubor musím tu aplikaci ukončit a znovu spustit, protože když ji neukončím tak to převádí špatně. Děkuji za odpověď."

Aby sis to mohl nekolikrat oprakovat,musis to vlozit do nejaky smycky.Pak je hodne dulezite uzavirani,ale to tam mas,jak vidim,takze do by takovy problem bejt nemel.Základ je smycka while apod.

To Petr : Poviem ti v skratke čo si napísal:

Otvoriť - Coding/encoding - Zatvoriť a zašifrovať

Dík za radu, ale já jsem začátečník tak nevím jak tu smyčku mám udělat.

To Laik : To som aj ja...proste použiješ

While (kód)...End While