Decode و Encode با کتابخانه StringUtils

[مجید آرتا 5,874]

به نام خدا

با سلام و خسته نباشید به کاربران سایت و دوستان نویسنده

خب از اونجایی که بنده زیاد وقت نمی کنم بیام سایت یه عذرخواهی بدهکارم

در ادامه قصد داریم Encode یا تبدیل کردن داده به یک سری کاراکتر درهم ورهم و Decode هم میاد این داده درهم ورهم رو به حالت عادی بر می گردونه

که این کارو میشه با کتابخانه StringUtils انجام داد.

خب جهت انجام این کار 2تا متد تعریف می کنیم یکی برای Decode و یکی برای Encode

بنده متدهارو تعریف و کدهاشو قرار میدم بعد توضیح کامل:

Encode:

Sub EncodeBase64(i As Int)
Dim bytes1() As Byte
bytes1=Array As Byte(i)
Dim result As String
result=con.EncodeBase64(bytes1)
Msgbox(result,"Encode")
End Sub

Decode:

Sub DecodeBase64(str As String)
Dim bytes2() As Byte
bytes2=con.DecodeBase64(str)
For i=0 To bytes2.Length - 1
Msgbox(bytes2(i),"Title")
Next
End Sub

در ابتدا لایب مربوطه رو به برنامه اضافه و در قسمت Globals می نویسیمیک EditText هم اضافه کتید)

Sub Globals    
Dim con As StringUtils
   Private EditText1 As EditText
End Sub

تحلیل کدها:

متد Encode:

خط اول:یک آرایه از نوع Byte تعریف کردیم

خط دوم:اومدیم مقدار آرایه رو برابر کردیم با مقدار ورودی یعنی i

خط سوم:یک متغیر از نوع رشته تعریف کردیم

خط چهارم:در اینجا داده ورودی رو Encode کردیم و ریختیم توی متغیرمون

خط پنجم:مشاهده نتیجه کار به وسیله MsgBox

متد Decode:

خط اول:یک آرایه از نوع Byte تعریف می کنیم

خط دوم:مقدار آرایمون رو برابر می کنیم با داده Decode شده یا به عبارتی داده Decode شده رو می ریزیم توی آرایمون

خط سوم:یک حلقه جهت گرفتن مقادیر آرایه که همون داده Decode شده ما هستش

خط چهارم:نتیجه کار در قالب MsgBox نشون می دیم

نحوه فراخواتی متد ها:

EncodeBase64(EditText1.Text)

توی EditText باید داده بهش بدی جهت Encode

DecodeBase64(EditText1.Text)

در اینجا داده Encode شده رو توی EditText قرار می دیم جهت Decode

آموزش اختصاصی از Basic4Android.Org

لایب مورد نظر هم پیوست شد

رمز فایل: basic4android.org

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

StringUtils.rar

[arashb4a 23]

با سلام ممنون زحمت کشیدی ولی درست کار نمی کنه. میشه بگید برای رمزعبور چیکار باید کرد؟