رفتن به مطلب
  • 0

رمزنگاری بروی فایل


حسینh

سوال

با سلام به دوستان گل انجمن به نظرتان راهی هست بشه روی یک فایل(مثل عکس و...)بیایم بایک روشی رمزنگاری کنیم (مثل رمزنگاری  AES) واقعا الان نیاز دارم ممنون میشم کمکم کنید:hi::hi:

لینک ارسال
به اشتراک گذاری در سایت های دیگر

3 پاسخ به این سوال تاکنون داده شده است

ارسال های توصیه شده

در 1 ساعت قبل، حسینh گفته است :

با سلام به دوستان گل انجمن به نظرتان راهی هست بشه روی یک فایل(مثل عکس و...)بیایم بایک روشی رمزنگاری کنیم (مثل رمزنگاری  AES) واقعا الان نیاز دارم ممنون میشم کمکم کنید:hi::hi:

سلام

دو محصول زیر حتماً مشکل شمارو برطرف خواهد کرد

محصول اول

محصول دوم

لینک ارسال
به اشتراک گذاری در سایت های دیگر

در 33 دقیقه قبل، basic4roid گفته است :

سلام

دو محصول زیر حتماً مشکل شمارو برطرف خواهد کرد

محصول اول

محصول دوم

نمی دونم درست منظورم روفهمیده باشید میخوام با AESیک فایل آهنگ یا عکس رو رمزنگاری کنم این دو محصول بالا استرینگ رو رمز نگاری میکنن فک کنم

لینک ارسال
به اشتراک گذاری در سایت های دیگر

در 10 ساعت قبل، حسینh گفته است :

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

محصول دوم فایل رو فشرده میکنه روی فایل فشرده رمز با الگوریتم Aes رمز گذاری میکنه

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

چون هردوی اینارو محصول دوم انجام میده شا یه فایل رو به صورت زیپ غیر قابل دسترسی میکنید با رمز گذاری روی خود فایل فرقی نمیکنه

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


Sub Process_Globals
    Dim password As String
    password = 123456
End Sub

Sub Globals
   Dim Decrypt As Button
   Dim Encrypt As Button
End Sub


Sub Activity_Create(FirstTime As Boolean)
    If File.Exists(File.DirRootExternal, "splash.mp4") = False Then
      File.Copy(File.DirAssets, "splash.mp4", File.DirRootExternal, "splash_copied.mp4")
   End If
   Activity.LoadLayout("layout")
   
End Sub

 Sub EncryptFunction
 
   Dim InputStream1 As InputStream
    InputStream1 = File.OpenInput(File.DirRootExternal, "splash_copied.mp4")
    
   Dim OutputStream1 As OutputStream
    OutputStream1.InitializeToBytesArray(1000)
    
   File.Copy2(InputStream1, OutputStream1)
    
   Dim Buffer() As Byte
    Buffer = OutputStream1.ToBytesArray
   
   Dim output As RandomAccessFile
   output.Initialize(File.DirRootExternal, "splash_en.mp4", False)
   output.WriteEncryptedObject(Buffer, "password", output.CurrentPosition)
   
   InputStream1.Close
   OutputStream1.Close
    output.Close
   ToastMessageShow("Done!", False)
 End Sub
 
 Sub DecryptFunction
    
   Dim raf As RandomAccessFile
    raf.Initialize(File.DirRootExternal, "splash_en.mp4", False)
    Dim text1 As String
    text1 = raf.ReadEncryptedObject(password, raf.CurrentPosition)
    Log(text1)
    raf.Close
   
   
   
   Dim input As RandomAccessFile
   Dim Buffer() As Byte
   input.Initialize(File.DirRootExternal, "splash_en.mp4", True)
   Buffer = input.ReadEncryptedObject("password", input.CurrentPosition)
   
   Dim InputStream1 As InputStream
   InputStream1.InitializeFromBytesArray(Buffer, 0, Buffer.Length)
   
   InputStream1.Close
   input.Close
   ToastMessageShow("Done!", False)
End Sub


Sub Encrypt_Click
   EncryptFunction
End Sub
Sub Decrypt_Click
   DecryptFunction
End Sub

 

لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.

مهمان
این موضوع برای عدم ارسال قفل گردیده است.
  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...