Tbl Encryption / Decryption islemleri

DECRYPTION

Dim CL as UByte = 0
Dim AX as UShort = 1048
Open Command For Binary As #1 'Drag Drop Giris (input)
Open Command For Binary As #2 'Drag Drop Cikis (Output)

?"TBL Dosyasi Cozuluyor..."
While Eof(1) = 0
Get #1, , CL
Put #2, , Cast(UByte, CL Xor Hibyte(AX))
AX = 6148 - (CL + AX) * 32703
Wend
close #1
close #2
?"Cozulme islemi Sona Erdi."
Sleep

ENCRYPTION

Dim CL as UByte = 0
Dim AX as UShort = 1048
Open Command For Binary As #2 'Drag-Drop Cikis(Output)
Open Command For Binary As #1 'Drag Drop giris(input)
?"TBL Dosyasi Sifreleniyor..."
While Eof(1) = 0
Get #1, , CL
CL = CL Xor Hibyte(AX)
AX = 6148 - (CL + AX) * 32703
Put #2, , CL
Wend
close #1
close #2
?"Tbl Dosyasi Sifrelendi"
Sleep

---

Bu Crypto ve decrypto Kodlari,Knight online 1717 icin deki Yeni şifrelemesi eski tbl Editorleri Bu yeni Patch ile gelen TBL'leri Okuyamiyor.