Vous n’êtes pas connecté.
Bonjour, visiteur, bienvenue sur les forums Aqua Computer Forum. Si c’est votre première visite, nous vous invitons à consulter l’Aide. Elle vous expliquera le fonctionnement de cette page. Pour avoir accès à toutes les fonctionnalités, vous devez vous inscrire. Pour cela, veuillez utiliser le formulaire d’enregistrement, ou bien lisez plus d’informations sur la procédure d’enregistrement. Si vous êtes déjà enregistré, veuillez vous connecter.
):|
|
Code source |
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
|
Citation de "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.
Citation
datEingabe.open( c:\\hallo.txt , ios::in | ios::binary); ( /n nicht umwandeln)
Öffnen der Datei erfolgreich?
if(datEingabe.good())...

-