قفل گذاری روی فایل

[bahman2012 13]

سلام کتابخانه یا روشی وجود داره که بشه روی یه فایل متنی قبل از خونده شدن توسط خوده برنامه

قفلش چک بشه و اگه درست بود بعد بتونه متن توشو بخونه

که در واقع کسی نتونته اطلاعات تنطیمی توشو تا  زمانی که قفل رو فایل رو داشته باشه باز کنه و بخونه

[نورنما 613]

اونی که من میدونم ظاهرا یک خوبیتی که این روش داره وامنیت اش رو بالا برده اینکه اصلا قابل تبدیل به حالت اولیه نیست! 

 

این کتابخونه آقای شاهپیری رو استفاده کنید که هم از Sha استفاده کرده اند وهم ظاهرا قابلیت تبدیل رو هم ایشون گذاشته اند البته من امتحانش نکرده ام خودتون مطالعه بفرمایید!

 

 

[bahman2012 13]

در 9 ساعت قبل، نورنما گفته است :

ممنو و تشکر خیلی خیلی فراوان

 

[نورنما 613]

سلام

بله مثلا با Md5  یا Sh1 میشه وقبلا توی انجمن ازش بحث شده و سورسی هم توی انجمن  برای نحوه تبدیل متنها با Md5 بودکه الان پیداش نکردم  باکمی تغییرات کدهای زیر مال بچه های انجمنه که درپایین اینجا براتون ارسالش می کنم .

 

نحوه کار هم اینه که مثلا یک سطراول فایلتون یا نه مثلا 16 حرف موجود در اول فایل تکستون رو اختصاصش میدید به کد رمزنگاریتون با md5 یا Sh1 

وهمیشه هنگام خواندن فایل اولین کاری که برنامه میکنه باید بررسی کردن صحت کدباشه

و کل متن فایل رو هم به روشهای مختلف مثلا همین روش md5  تبدیل به رمز میکنید ،

اگر کد اول فایل صحیح بود ، اونوقت الباقی فایل رمز نگاریش باز میشه وامکان خواندن مطالب فایل تکست هست والا نه!

هرکی هم سورستون رو بخواهد دستی بازکندوفایل تکستون رو بخونه به علت تبدیلش به کد md5 نمی تونه .

نکته : از امن ترین روشهای کد گذاری ورمزگزاری با مثلا Md5 اینه که مثلا رمزی دلخواه رو با md5 به فایل یادیتابیس یا هاست  

بعدش دوباره اونو از فایل فراخوانی ودوباره با Md5 به همراه کلماتی دلخواه جدید خودتان قاطی و رمزنگاری کنید وبعداونو دوباره به فایل تکستتان یا دیتابیس یا هاست ارسال کنید .

لینک زیر رو ببینید:

پیشنهاد برای پنهان کردن " پسورد " در کد گذاری دیتابیس - پرسش و پاسخ (بیسیک4اندروید) - مرکز پاسخگویی به سوالات برنامه نویسی

نوشتن رمز توی فایل تکست وچک کردن اون

 

Sub Globals
	Private Label1 As Label
	Private Label2 As Label
	Private Label3 As Label
	Private EditText1 As EditText
	'''''''''''''''تبدیل کلمه به متن رمزنگاری شده 
	 Private kalame_gabl_az_ramz As String
	 Dim Ramz_md5_1 As String     '''روش رمز گذاری Md5  که متوسط است 
	 Dim Ramz_Sha_1 As String    '''رمز از روش sha که قویتر وامن تر است 
	 Private Label4 As Label
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("Layout1")
	 kalame_gabl_az_ramz = "laleqwe"
     kalame_gabl_az_ramz = "1"
End Sub

Sub EditText1_TextChanged (Old As String, New As String)
    kalame_gabl_az_ramz=EditText1.Text
	Label1.Text= "کلمه موردنظر جهت رمز کردن "& kalame_gabl_az_ramz
	Label2.Text="رمز از نوع MD5 :"&ramz_md5(kalame_gabl_az_ramz)
	Label3.Text="رمز از نوع SHA : "&ramz_sha(kalame_gabl_az_ramz)
End Sub

Sub ramz_md5 (kalame As String) As String
    Dim md As MessageDigest
    Dim ByteCon As ByteConverter
    Dim passwordhash() As Byte
    Dim passwordhash2() As Byte
  				  passwordhash = md.GetMessageDigest(kalame.GetBytes("UTF8"),"MD5")
   				  Ramz_md5_1 = ByteCon.HexFromBytes(passwordhash)
   Log(Ramz_md5_1)
   				 passwordhash2 = md.GetMessageDigest(Ramz_md5_1.GetBytes("UTF8"),"SHA-1")
   				 Ramz_Sha_1 = ByteCon.HexFromBytes(passwordhash2)
    Log(Ramz_Sha_1)
	Return Ramz_md5_1   '''در آخر این آرایه را بفرست به ramz_md5(XXXXX) 
End Sub

Sub ramz_sha (kalame As String) As String  ''امن تر
	 Dim md As MessageDigest
     Dim ByteCon As ByteConverter
     Dim passwordhash() As Byte
     Dim passwordhash2() As Byte
  			 passwordhash = md.GetMessageDigest(kalame.GetBytes("UTF8"),"MD5")
   			 Ramz_md5_1 = ByteCon.HexFromBytes(passwordhash)
   Log(Ramz_md5_1)
   			 passwordhash2 = md.GetMessageDigest(Ramz_md5_1.GetBytes("UTF8"),"SHA-1")
  		     Ramz_Sha_1 = ByteCon.HexFromBytes(passwordhash2)
    Log(Ramz_Sha_1)
	Return Ramz_Sha_1       '''در آخر این آرایه را بفرست به ramz_sha(XXXXX) 
End Sub

ضمنا کتابخانه های زیر بایدفعال باشه:

 ByteConverter

encryption

Core

توی layout1 هم چهار تالیبل به نامهای بالا و یه edittext بانام مذکور ایجادکنید.ببخشید اگه کدهای اضافی داخل کدهام  باشه!

[bahman2012 13]

در 10 ساعت قبل، نورنما گفته است :

سلام

بله مثلا با Md5  یا Sh1 میشه وقبلا توی انجمن ازش بحث شده و سورسی هم توی انجمن  برای نحوه تبدیل متنها با Md5 بودکه الان پیداش نکردم  باکمی تغییرات کدهای زیر مال بچه های انجمنه که درپایین اینجا براتون ارسالش می کنم .

 

نحوه کار هم اینه که مثلا یک سطراول فایلتون یا نه مثلا 16 حرف موجود در اول فایل تکستون رو اختصاصش میدید به کد رمزنگاریتون با md5 یا Sh1 

وهمیشه هنگام خواندن فایل اولین کاری که برنامه میکنه باید بررسی کردن صحت کدباشه

و کل متن فایل رو هم به روشهای مختلف مثلا همین روش md5  تبدیل به رمز میکنید ،

اگر کد اول فایل صحیح بود ، اونوقت الباقی فایل رمز نگاریش باز میشه وامکان خواندن مطالب فایل تکست هست والا نه!

هرکی هم سورستون رو بخواهد دستی بازکندوفایل تکستون رو بخونه به علت تبدیلش به کد md5 نمی تونه .

نکته : از امن ترین روشهای کد گذاری ورمزگزاری با مثلا Md5 اینه که مثلا رمزی دلخواه رو با md5 به فایل یادیتابیس یا هاست  

بعدش دوباره اونو از فایل فراخوانی ودوباره با Md5 به همراه کلماتی دلخواه جدید خودتان قاطی و رمزنگاری کنید وبعداونو دوباره به فایل تکستتان یا دیتابیس یا هاست ارسال کنید .

لینک زیر رو ببینید:

پیشنهاد برای پنهان کردن " پسورد " در کد گذاری دیتابیس - پرسش و پاسخ (بیسیک4اندروید) - مرکز پاسخگویی به سوالات برنامه نویسی

نوشتن رمز توی فایل تکست وچک کردن اون

 

Sub Globals
	Private Label1 As Label
	Private Label2 As Label
	Private Label3 As Label
	Private EditText1 As EditText
	'''''''''''''''تبدیل کلمه به متن رمزنگاری شده 
	 Private kalame_gabl_az_ramz As String
	 Dim Ramz_md5_1 As String     '''روش رمز گذاری Md5  که متوسط است 
	 Dim Ramz_Sha_1 As String    '''رمز از روش sha که قویتر وامن تر است 
	 Private Label4 As Label
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("Layout1")
	 kalame_gabl_az_ramz = "laleqwe"
     kalame_gabl_az_ramz = "1"
End Sub

Sub EditText1_TextChanged (Old As String, New As String)
    kalame_gabl_az_ramz=EditText1.Text
	Label1.Text= "کلمه موردنظر جهت رمز کردن "& kalame_gabl_az_ramz
	Label2.Text="رمز از نوع MD5 :"&ramz_md5(kalame_gabl_az_ramz)
	Label3.Text="رمز از نوع SHA : "&ramz_sha(kalame_gabl_az_ramz)
End Sub

Sub ramz_md5 (kalame As String) As String
    Dim md As MessageDigest
    Dim ByteCon As ByteConverter
    Dim passwordhash() As Byte
    Dim passwordhash2() As Byte
  				  passwordhash = md.GetMessageDigest(kalame.GetBytes("UTF8"),"MD5")
   				  Ramz_md5_1 = ByteCon.HexFromBytes(passwordhash)
   Log(Ramz_md5_1)
   				 passwordhash2 = md.GetMessageDigest(Ramz_md5_1.GetBytes("UTF8"),"SHA-1")
   				 Ramz_Sha_1 = ByteCon.HexFromBytes(passwordhash2)
    Log(Ramz_Sha_1)
	Return Ramz_md5_1   '''در آخر این آرایه را بفرست به ramz_md5(XXXXX) 
End Sub

Sub ramz_sha (kalame As String) As String  ''امن تر
	 Dim md As MessageDigest
     Dim ByteCon As ByteConverter
     Dim passwordhash() As Byte
     Dim passwordhash2() As Byte
  			 passwordhash = md.GetMessageDigest(kalame.GetBytes("UTF8"),"MD5")
   			 Ramz_md5_1 = ByteCon.HexFromBytes(passwordhash)
   Log(Ramz_md5_1)
   			 passwordhash2 = md.GetMessageDigest(Ramz_md5_1.GetBytes("UTF8"),"SHA-1")
  		     Ramz_Sha_1 = ByteCon.HexFromBytes(passwordhash2)
    Log(Ramz_Sha_1)
	Return Ramz_Sha_1       '''در آخر این آرایه را بفرست به ramz_sha(XXXXX) 
End Sub

ضمنا کتابخانه های زیر بایدفعال باشه:

 ByteConverter

encryption

Core

توی layout1 هم چهار تالیبل به نامهای بالا و یه edittext بانام مذکور ایجادکنید.ببخشید اگه کدهای اضافی داخل کدهام  باشه!

بسیار ممنون از وقتی که برای پاسخگویی گذاشتید

[bahman2012 13]

در 45 دقیقه قبل، bahman2012 گفته است :

بسیار ممنون از وقتی که برای پاسخگویی گذاشتید

حالا اگه بخام کدی که بصورت Sha تبدیل شده رو به حالت اولیه برگردونم باس از چه کدی استفاده کنم؟