کدگذاری روی متغیر ها و ذخیره آن ها (Encryption)

[Kazem Forghani 2,927]

سلام

در این آموزش یاد می گیریم که چطوری یک مقدار را کدگذاری کرده و اون رو ذخیره کنیم. فایل ذخیره شده هم فقط با رمزی که هنگام ذخیره سازی بهش دادید باز می شه.

برای استفاده از این کدها ابتدا می بایست کتابخانه RandomAccessFile 2.20 را به پروژه اضافه کنید.

برای ذخیره یک مقدار به صورتی که اگر وجود نداشته باشد این ساب را ایجاد می کنیم:

Sub InitializeValue(Name As String, Value As Object, Password As String)
	If File.Exists(File.DirInternal, Name) = False Then
	Dim raf As RandomAccessFile
	raf.Initialize(File.DirInternal, Name, False)
	raf.WriteEncryptedObject(Value, Password, raf.CurrentPosition)
	raf.Close
	End If
End Sub

نحوه استفاده از کد بالا:

InitializeValue("coins", 1, "abc123")

در این جا ما یک متغیر را با مشخصه coins و مقدار 1 و رمز abc123 ذخیره کردیم.

برای تغییر مقدار یک متغیر ذخیره شده:

Sub ChangeValue(Name As String, Value As Object, Password As String)
	Dim raf As RandomAccessFile
	raf.Initialize(File.DirInternal, Name, False)
	raf.WriteEncryptedObject(Value, Password, raf.CurrentPosition)
End Sub

نحوه استفاده از ساب بالا:

ChangeValue("coins", 123, "abc123")

برای گرفتن یک متغیر ذخیره شده:

Sub ReadValue(Name As Object, Password As String) As Object
	Dim raf As RandomAccessFile
	raf.Initialize(File.DirInternal, Name, False)
	Return raf.ReadEncryptedObject(Password, raf.CurrentPosition)
End Sub

نحوه استفاده از کد بالا: (البته ما مقدار را در یک MsgBox نشان دادیم.)

Msgbox(ReadValue("coins", "abc123"), "")

بررسی ذخیره بودن یک متغیر:

Sub Exists(Name As String) As Boolean
	If File.Exists(File.DirInternal, Name) = True Then
	Return True
	else if  File.Exists(File.DirInternal, Name) = False Then
	Return False
	End If
End Sub

استفاده از ساب بالا:

If Exists("coins") = True Then
	' وجود داشت
Else
	' وجود نداشت
End If

برای حذف کردن یک متغیر ذخیره شده:

Sub Delete(Name As String)
	File.Delete(File.DirInternal, Name)
End Sub

روش استفاده از کد بالا:

Delete("coins")

موفق و مؤید باشید