PDA

View Full Version : سوال: ذخیره و بازیابی فایل های متنی بصورت ناخوانا (محرمانه کردن)



Barbodben
سه شنبه 29 مهر 1393, 16:01 عصر
سلام
من میخوام اطلاعاتمو داخل یک فایل مثلا txt ذخیره کنم، ولی نمیخوام با باز شدن فایل محتواش خونده بشه، ( و در عین حال نمیخوامم از هش کردن استفاده کنم ) مثل خیلی از برنامه ها که فایلشون مخصوص خودشونه.
حالا من این کدها رو پیدا کردم، ولی اینا فقط اعدادو ذخیره کردن و امکان ذخیره رشته باهاشون نبود.

نوشتن:



Dim FileStr As New FileStream("C:\Text.txt", FileMode.Create, FileAccess.Write)
Dim BinWrt As New BinaryWriter(FileStr)
BinWrt.Write(CInt(123456))
BinWrt.Close()
FileStr.Close()



خواندن:



Dim FileStr As New FileStream("C:\Text.txt", FileMode.Open, FileAccess.Read)
Dim BinWrt As New BinaryReader(FileStr)
MessageBox.Show(BinWrt.ReadInt32)
BinWrt.Close()
FileStr.Close()