[Codice Vb.net] Decriptare files voti .rcs

‘ // files di esempio
Dim fs_read As New FileStream(”C:\MCC05.rcs”,
FileMode.Open, FileAccess.Read)
Dim fs_write As New StreamWriter(File.Create(fs_read.Name.Replace(”.rcs”, “.txt”)))

Dim lBytes As Long = fs_read.Length
Dim fileData(lBytes) As Byte
Dim i As Integer
Dim lbytes_27 As Long = lBytes Mod 27 ‘ sono i byte che restano fuori dividendo il file a gruppi di 27 byte

Dim chiave As Array
'// la chiave varia di anno in anno
chiave = Split(”31;32;33;34;35;36;61;62;63;64;65;66;71;71;77;65;72;74;79;75;61;73;64;66;67;68;6A”, “;”)
‘// leggiamo il file a blocchi di 27 bytes fino dove possibile

While Not fs_read.Position = lBytes - lbytes_27
fs_read.Read(fileData, 0, 27)
‘// Scriviamo sul file il decript xorando byte a byte i 27 byte

For i = 0 To 26
fs_write.Write(Chr(fileData(i) Xor “&H” & chiave(i)))

Next

End While
i = 0
‘// Ora leggiamo i byte rimasti che saranno < 27 e scriviamo sul file decryptando come prima
fs_read.Read(fileData, 0, lbytes_27)

For i = 0 To (lbytes_27 - 1)
fs_write.Write(Chr(fileData(i) Xor “&H” & chiave(i)))

Next
‘//chiudiamo i files
fs_read.Close()
fs_write.Close()

MsgBox(”Fatto”)

Commenti

Problemi per funzionare luigi (151.67.122.xxx) 2010-07-22 13:32:50 come posso fare per farlo funzionare??

Solo gli utenti registrati possono inviare commenti!

Powered by !JoomlaComment 3.26

3.26 Copyright (C) 2008 Compojoom.com / Copyright (C) 2007 Alain Georgette / Copyright (C) 2006 Frantisek Hliva. All rights reserved."