Labels:dialog box | monitor | plant | sky | window OCR: modMain (General) Main Option Explicit Private Sub Main() Dim csp As New indae 1Managed Dim outStream CruptoStream Sel outStream Cor dewCr uptoStream(File txt" csp .CreateEncryptor WriteMode) Dim writer AS StreamWri ter Set writer Cor NewStreamWr iter(outStream, Encoding Bi gEndi anUn icode) wr Eer Wr tel ine encrupted line of text wr ter CloseWr iter Dim inStream AS CruptoStream Set inStream Cor NewCr ruptoStream(File .OpenFile("Encrypted txt" OpenExi sting) csp CreateDecryptor ReadMode) Dim reader Str eamReader Set reader Cor NewSEreamReader(inStream Encoding BigEndi anUni icode) Consol Wr iteLine reader .ReadLine Conso Wr iteLine any key Conso ReadKeu uepea. CloseReader Pu3 Sub References VBCorLibModule Available References: OK Visual I Basic For Appli lications Caeee Visual Basic runti ...
