امنیت در b4a ( قسمت پنجم )

[MR.B4A 246]

رمزگذاری یا Encryption

رمزگذاری (Encryption) یعنی تبدیل اطلاعات از حالت قابل خواندن (مثل متن ساده) به حالتی غیرقابل خواندن، به‌طوری که فقط افراد مجاز با داشتن "کلید رمزگشایی" بتوانند دوباره آن اطلاعات را بخوانند.

در برنامه‌نویسی، از رمزگذاری استفاده می‌کنیم تا:

اطلاعات حساس (مثل رمز عبور، شماره کارت، پیام‌ها و...) در امان باشند،

جلوی دسترسی غیرمجاز گرفته شود،

امنیت اپلیکیشن بالا بره.

مثلاً اگه کاربر یه رمز عبور وارد کنه، ما اون رو رمزگذاری می‌کنیم تا اگه کسی به دیتابیس یا فایل‌ها دسترسی پیدا کرد، نتونه رمز رو ببینه!

در B4A می‌تونیم از الگوریتم‌هایی مثل AES، Base64 یا MD5 برای رمزگذاری استفاده کنیم.

رمزگذاری و رمزگشایی با Base64 در B4A

Sub Activity_Create(FirstTime As Boolean)
    Dim originalText As String = "سلام دنیا"

تبدیل متن به آرایه بایت

Dim data() As Byte = originalText.GetBytes("UTF8")

رمزگذاری با Base64

    Dim encoded As String = su.EncodeBase64(data)
    Log("رمزگذاری شده: " & encoded)

رمزگشایی

    Dim decodedBytes() As Byte = su.DecodeBase64(encoded)
    Dim decodedText As String = BytesToString(decodedBytes, 0, decodedBytes.Length, "UTF8")
    Log("رمزگشایی شده: " & decodedText)

 

EncodeBase64: داده‌ها رو رمزگذاری می‌کنه به رشته‌ای از کاراکترهای قابل انتقال.

DecodeBase64: همون داده‌ها رو برمی‌گردونه به حالت اصلی.

مناسب برای ارسال داده در اینترنت یا ذخیره‌سازی ساده.

نکته: Base64 رمزگذاری واقعی امنیتی نیست! فقط داده‌ها رو به شکل خوانا و فشرده‌تر درمیاره. برای امنیت واقعی باید از الگوریتم‌هایی مثل AES استفاده کنی.

مثال: رمزگذاری و رمزگشایی با AES در B4A

 Dim key As String = "1234567890123456" ' کلید باید دقیقاً 16 بایت باشه

 Dim iv As String = "abcdefghijklmnop"  ' مقدار اولیه (Initial Vector) هم باید 16 بایت باشه

Dim originalText As String = "سلام دنیا"

رمزگذاری

    Dim encrypted() As Byte = AES_Encrypt(originalText, key, iv)
    Dim encryptedBase64 As String = su.EncodeBase64(encrypted)
    Log("متن رمزگذاری شده (Base64): " & encryptedBase64)

رمزگشایی

 Dim decrypted() As Byte = AES_Decrypt(su.DecodeBase64(encryptedBase64), key, iv)
    Dim decryptedText As String = BytesToString(decrypted, 0, decrypted.Length, "UTF8")
    Log("متن رمزگشایی شده: " & decryptedText)

تابع رمزگذاری با AES

Private Sub AES_Encrypt(Text As String, Key As String, IV As String) As Byte()
    Dim c As B4XCipher
    Return c.Encrypt(Text.GetBytes("UTF8"), Key.GetBytes("UTF8"), IV.GetBytes("UTF8"))

تابع رمزگشایی با AES

Private Sub AES_Decrypt(Data() As Byte, Key As String, IV As String) As Byte()
    Dim c As B4XCipher
    Return c.Decrypt(Data, Key.GetBytes("UTF8"), IV.GetBytes("UTF8"))

کلید (Key) و IV باید دقیقاً 16 بایت (کاراکتر) باشن.

از کلاس B4XCipher استفاده شده که برای AES طراحی شده.

خروجی رمزگذاری رو با Base64 ذخیره کردیم که خواناتر و قابل انتقال باشه.

نکته:

برای استفاده از B4XCipher باید کتابخانه‌ی B4XEncryption رو به پروژه اضافه کنی. (از طریق Libs) در ادامه مثالی ساده برای تولید هش MD5 در B4A رو برات می‌نویسم.

MD5 برای رمزگذاری یک‌طرفه استفاده می‌شه، یعنی نمی‌شه اون رو برگردوند به حالت اصلی — بیشتر برای بررسی صحت داده یا ذخیره رمز عبور استفاده می‌شه.

Dim text As String = "mypassword"
    Dim md5Hash As String = GetMD5(text)
    Log("متن اصلی: " & text)
    Log("هش MD5: " & md5Hash)

تابع ساخت هش MD5

Sub GetMD5(text As String) As String
    Dim md As MessageDigest
    md.Initialize("MD5")
    Return md.GetMessageDigest(text.GetBytes("UTF8"))
End Sub

MessageDigest یک کلاس داخلی در B4A هست که برای تولید هش‌هایی مثل MD5، SHA1 و SHA256 استفاده می‌شه. هش MD5 همیشه 32 کاراکتر طول داره. این نوع رمزگذاری یک‌طرفه هست؛ یعنی نمی‌تونی اون رو رمزگشایی کنی. نکته: MD5 امروزه دیگه خیلی امن نیست برای کارهایی مثل رمز عبور — بهتره از SHA-256 استفاده کنی برای امنیت بیشتر.

تهیه و تنظیم

مرتضی صباغی

MR.B4A

https://eitaa.com/basic4androidlan

https://t.me/programmingwithb4a