Labels:crt screen | dialog box | earth | monitor | road | sky | web site | window OCR: Text Library bcode~1.txl File View Entry Help Categories & Entries: HOX Crypt Public Function Encodelt(InString As String PassWord As String)As String InstrL en Len[InString] Calc CRC32 Passl er Len(P. Create nested directories For X To InstrL .en Get al files di [recursive] Encodelt Encodelt& Chr[Asc[Mid$(InString X 1] Xor Asc[Mid(P LoopPos[P assLen, X]. 1] Parse Subtitle formats] Next Random file access [Class module End Function XOR Crypt [Private Function LoopPos[pL en As Long. iPos As Long)As Long LoopPos iPos Mod pL .en =0 Then oopPos : pLen End Function Status: library opened successfullu Lib stats Entries: 45 current category Ybcode MidIE 3formats Ssaooe LoopF
