Open ParFileName For Output As #1 For i = 0 To Records.ListCount - 1 Print #1, Encrypt(Records.List(i)) Next i Close #1Fonction de cryptage, "Allowed" étant la clé
Function Encrypt(UnCrypted As String) As String Encrypt = "" For i = 1 To Len(UnCrypted) Encrypt = Encrypt & Chr((Asc(Mid(UnCrypted, i, 1)) + (Asc(Mid(Allowed, (i Mod Len(Allowed)) + 1, 1)))) Mod 256) Next End Function
Dim Rec as new Records : ' Nom du type d'objet compatible. FileNum = FreeFile Open CheatFileName For Binary As #FileNum Get #FileNum, Rec() Close #FileNum
Get #FileNum, Rec()j'ai "expected list separator" !
Get #FileNum, , Rec()
Dim Record As String Dim CheatArray As New Records: Record
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionLine Input #FileNum, Recordce qui a toujours très bien fonctionné sauf une seule fois où j'ai eu "Input past end", je me demandais pourquoi.
Open ParFileName For Output As #1 For i = 0 To Records.ListCount - 1 Print #1, Encrypt(Records.List(i)) Next i Close #1
Chr((Asc(Mid(UnCrypt, i, 1)) + (Asc(Mid(Key, (i Mod Len(Key)) + 1, 1)))) Mod 256)
Chr((Asc(Mid(UnCrypt, i, 1)) + (Asc(Mid(Key, (i Mod Len(Key)) + 1, 1)))) Mod 224 + 32)