D i» fta ndAr rệ jt(ộ r© Aí lcoj?
Kỉểm tra mã Chương trình Encrypt
1. Mở th ủ tục sự k iệ n m enu Save As ltem _click tro n g Code E d ito r dể
th ấ y m ã chương tr ìn h tạo sự m ã hóa mà b ạ n đ ã chú ý k h i chạy chương trìn h .
Mặc dù hiệu ứng m à b ạ n th ấ y có vẻ hơi bí ẩn n h ư n g nó là m ột sơ đồ m ã h ó a r ấ t đơn giản. Sử dụng các h àm Asc v à c h r v à m ộ t vòng lặp For.
T oàn bộ th ủ tục sự kiện như saụ Đặc b iệt chú ý các mục được in đậm .
Dim E ncrypt As s trin g = Dim letter As Char
Dim i, charsỉnRle As Short
SaveFi[eDialog1.Filter = “ Text files ( * ,tx t) r ,tx t"
lf SaveFileDialog1.ShowDialog() = DíalogResult.OK Then Try
‘save text w ith encryption sctieme (ASCII code + 1) charslnPile = txíNotẹText.Length
For i = 0 To charslnPile - 1
letter = txtNote,Text,Substring(i, 1) 'determ ine ASCII code and ađ one to it E ncrypt = E ncrypt & Chr(Asc(letter) + 1) Next
'w rite encrypted text to file
MỵCompưter,FileSystem,WriteAlfText(SaveFileDialog1 .RleName, Encrypt, False) txtNotẹText = Encrypt
txtNotẹSelect{0, 0) 'remove text selectỉon mnuCloseltem.Enabled = True
Catch ex As Exception
MsgBox("An error occurred," & vbCrLí & ex.Message) End Try
End ỉf
Note especially the statemení;
C h ư d n g 1 3 : K h ả o s á t c á c F iíe T e x t v à x ử lý ch u ỗ i_____________________________ ^
Đ ặc b iệ t chú ý câu lệnh:
E ncryp t = E ncryp t & Chr(Asc{letter) + 1)
Câu lệ n h n à y q u y ết đ ịn h m â A SCII của m ẫu tự h iệ n h à n h , cộng m ột vào nó, chuyển đổi m ã A SCII trở lại th à n h 1 m ẫu tự v à sau đó th ê m nó vào chuỗi E ncrypt.
2. B ây giờ h iể n th ị th ủ tục sự k iệ n m enu Open ltem _C lick tro n g Code E d ito r d ể xem chương tr ìn h đảo ngược sự m ã h ó a n h ư t h ế nào: M ã chương tr ì n h n à y gần như giống h ệ t m â chương tr ìn h của lện h S ave E n c ry p te d P ile As n h ư n g th a y vì cộng 1 vào m ã A SCII tro n g
m à m ẫu tự , nó tr ừ đi 1. Sau đây là th ủ tục sự kiện m n u 0 p en ltem _ click
h o à n c h ỉn h v à các câu lệ n h đ án g chú ý được in đậm:
Dim AIIText As s trin g
D im i, c h a r s ln P ile A s Short D im le tte r A s C h a r
D im D e c ry p t A s s trin g =
OpenFileDia[og1.Fi!ter = "Text íiles
lf OpenFileDialog1.ShowDialog() = DialogResullOK Then 'display Open dialog box lf MỵComputer.FileSystem.FileExists(0penFileDialog1 .PileName) Then
Try ‘open file and trap any errors using hanđler
AlíText=MỵCompưter,FiíeSystem.ReadAltText{0penFíieDialog1.FỉleName)
‘n o w , đ e cry p t string by sub tracting o n e from ASCII cod e c h a r s ln P ile = AIIText.Length ‘get lengtli of string
F o r i = 0 T o c h a rs ln P ìle - 1 'lo o p o n c e fo ĩ e a c h char le tte r = A llT e x t.S u b strìn g (i, 1) ‘get c h a ra c ỉe r
D e c ry p t = D e c ry p ỉ & Chr(A sc(letter) - 1 ) ‘s u b tra c ỉ 1 N e x t í ‘a n d b u ild new string
ỉx tN o te .T e x t = ũ e c ry p t ‘then d is p la y c o n v e rỉe d stríng
IblNotẹTexí = OpenFileDialog1.FileName txtNotẹSelect(0, 0) ‘ remove text selecíion txtNotẹEnatìled = Tme 'allow text cursor
mnuCloseltem.Enabled = True 'enable Close command mnuOpenltem.Enablecí = False 'disable Open command