You are not logged in.
Dear visitor, welcome to Aqua Computer Forum. If this is your first visit here, please read the Help. It explains how this page works. You must be registered before you can use all the page's features. Please use the registration form, to register here or read more information about the registration process. If you are already registered, please login here.
):|
|
Source code |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 |
Sub encrypt(file As String)
Dim data As Long, NumBytes As Long, Flag As Long, q
Flag = Val("123")
NumBytes = FileLen(file)
Open file For Binary As #1
For q = 1 To NumBytes
Get #1, q, data
Put #1, q, data + Flag
Next q
Close #1
End Sub
|
Quoted from "maZzE"
Sorry aber ich kann nicht beide Sprachen. Aber wenn du sagst was die Funktion macht kann ich oder andere dir vieleicht eher helfen!
/n nicht umwandeln)
bzw. haste wohl noch nie was von Microsofts Programmiersprache BASIC gehört. Aber ist schon richtig, dass die Kacke is 
). Man braucht eben die Flag zum Entschlüsseln.
Quoted
datEingabe.open( c:\\hallo.txt , ios::in | ios::binary); ( /n nicht umwandeln)
Öffnen der Datei erfolgreich?
if(datEingabe.good())...

-