تشفير المرفقات

[النجاشي]

السلام عليك احبتي

وجدت هذا الكود للاستاذ جعفر ما عرفت الطريقه لتطبيقه على مثالي لكي يعرض لي المرفق المشفر

اريد تطبيقه علي المثال شاكرين احبتي

Source_File_Path = Me.Parent!pate & "\" & Me.name_morfke

.

يعني كودي في اول مشاركة يصبح بعد التعديل :

Private Sub name_morfke_Click()

    Dim Source_File_Path As String, Destination_File_Path As String
    
    Source_File_Path = me.parent!pate & "\" & Me.name_morfke
    Destination_File_Path = Environ("Temp") & "\" & Me.name_morfke
    FileCopy Source_File_Path, Destination_File_Path
    
    Application.FollowHyperlink (Destination_File_Path)
    EcryptDcryptImage (Destination_File_Path)
End Sub

Private Sub Form_Close()
On Error Resume Next

    Dim Srst As DAO.Recordset
    Set Srst = Me.RecordsetClone
    Do Until Srst.EOF
        Kill Environ("Temp") & "\" & Srst!name_morfke
        Srst.MoveNext
    Loop
End Sub

 

RR.rar

[النجاشي]

للرفع

[النجاشي]

للرفع 

[النجاشي]

للرفع

[النجاشي]

للرفع

[jjafferr]

السلام عليكم 🙂

 

انا متعمد ما ارد عليك ، لأني خايف عليك من موضوع التشفير !!

اذا لأي سبب كان ، وصارت عند الزبون مشكلة ، فلن يستطيع رؤية مرفقاته ، وجنت على نفسها براقش !!

وش لك بالبحر واهواله ورزق الله على السِيف 🙂

 

التشفير لن يزيد ولا يُنقص في برنامجك شيء ، فهو للمؤسسات اللي تخاف من المشاكسين ان يروا الممنوع 🙂

 

جعفر

[النجاشي]

11 ساعات مضت, jjafferr said:

السلام عليكم 🙂

 

انا متعمد ما ارد عليك ، لأني خايف عليك من موضوع التشفير !!

اذا لأي سبب كان ، وصارت عند الزبون مشكلة ، فلن يستطيع رؤية مرفقاته ، وجنت على نفسها براقش !!

وش لك بالبحر واهواله ورزق الله على السِيف 🙂

 

التشفير لن يزيد ولا يُنقص في برنامجك شيء ، فهو للمؤسسات اللي تخاف من المشاكسين ان يروا الممنوع 🙂

 

جعفر

وعليكم السلام ورحمه الله وبركاته 

استاذي الفاضل  ابو الجعافر😂 ليس لزبون الموضوع وانما لصديق عزيز طلب مني هذا

ما دام وانت متعمد ما ترد راح ارفع عليك دعوه قضائيه بمحكمه سلطنه عمان ياصديقي العزيز هههههههههه

حفظك الله ورعاك استاذنا الغالي

تحياتي اليكم احبتي

[النجاشي]

للرفع

[jjafferr]

خلاص اقنعتني 😁

كيف احصل على مسار وطريقة حفظك للمجلدات والملفات ، فالمعلومات في الجدول لا علاقة لها بمسار واسماء الملفات اللي ارسلتها !!

 

جعفر

[النجاشي]

13 ساعات مضت, jjafferr said:

خلاص اقنعتني 😁

كيف احصل على مسار وطريقة حفظك للمجلدات والملفات ، فالمعلومات في الجدول لا علاقة لها بمسار واسماء الملفات اللي ارسلتها !!

 

جعفر

الله يعطيك العافيه استاذي الفاضل صحيح كان خطاء في الملفات وهي A001 وA002 والصحيحA0001 وA0002 بالجدول وعملت تصحيح لها

وشوف بالوحده النمطيه لداله من عمل استاذنا ابو ابراهيم تتحسس الملفات بجوار القاعده وهي

Public Function GetFileDirectory(MainPath As Object, Optional FileName As Variant)
   Dim OFIL As Scripting.File, OFILS As Scripting.Files
   Dim OMFD As Scripting.Folder, OSFD As Scripting.Folder
   Static XFileName As String, FilePath   '.. Static Declaration reserved value when function recoll
   
   '-- get filename in first time call and reserved value
   If Not IsMissing(FileName) Then
    XFileName = FileName
   End If
   
   '-- loop for subfolders in his parent folder
   For Each OSFD In MainPath.SubFolders
      
      Set OMFD = FSO.GetFolder(OSFD.Path)
      Set OFILS = OSFD.Files
      
      '-- loop for file in each folder
      For Each OFIL In OFILS
         If OFIL.Name = XFileName Then
            FilePath = OFIL.Path
            GoTo TheEnd
         End If
      Next
      '-- Function recoll himself with subfolder
      GetFileDirectory OSFD
   Next
TheEnd:
   '-- Function return filepath if file found
   GetFileDirectory = FilePath
End Function

واذا لم تتضح لك الفكره راح ارفق لك مثال مصغر بحيث تضيف منه الصوره وتعرضها ولكن بطريقه غير مشفره

تحياتي يالغالي

تم تعديل يناير 31, 2023 بواسطه jjafferr
لتنسيق الكود: استعمل <> القائمة ، ووضع الكود في نافذته

[النجاشي]

هذا المرفق الاخير به الاضافه والعرض 

بدون _تشفير.rar

تم تعديل يناير 31, 2023 بواسطه النجاشي

[jjafferr]

تفضل 🙂Encode_Decode.zip

[النجاشي]

في 31‏/1‏/2023 at 23:24, jjafferr said:

تفضل 🙂Encode_Decode.zip

رفع الله قدرك وزادك علما ممتاز جدا

هو المطلوب  مليار تحيه للاستاذ جفر حفظه الله ومشكورررررررررررر