الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

كيفيه تشفير ملفات tpl

بدأه ahmed_ghanam في 19 أكتوبر 2011 · 1 رد · 728 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

انا برمج سى شارب و سالنى احد الاصدقاء ان اقوم بتشفير ملفات tpl خاصه به

هذه الملفات تحتوى على بيانات مؤخوذه من قاعده البيانات على السيرفر و اذا غيرها المستحدم يجدث بياناته على السيرفر و بما انى لست مبرمج سى بلس ارجوا ان تشرحوا لى كيفيه تشفير هذه الملفات

يستخدم البرنامج GoatCheez's لفتح وقراءه هذه البيانات

هذا كود فك التشفير للملفات

    Dim CL as UByte = 0
    Dim AX as UShort = 1048
    Open Command For Binary As #1 'Drag Drop Giris (input)
    Open Command For Binary As #2 'Drag Drop Cikis (Output)

    ?"TBL Dosyasi Cozuluyor..."
    While Eof(1) = 0
    Get #1, , CL
    Put #2, , Cast(UByte, CL Xor Hibyte(AX))
    AX = 6148 - (CL + AX) * 32703
    Wend
    close #1
    close #2
    ?"Cozulme islemi Sona Erdi."
    Sleep

ارفقت ايضا ملف من ملفات tpl احدهم مفتوح و الاخر مشفر و برنامج القراءه

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

و جزاكم الله خيرا

tpl.rar

تم تعديل هذه المشاركة بواسطة Xacker في 20 أكتوبر 2011 في 09:18

#2 
Dim CL as UByte = 0
Dim AX as UShort = 1048
Open Command For Binary As #2 'Drag-Drop Cikis(Output)
Open Command For Binary As #1 'Drag Drop giris(input)
?"TBL Dosyasi Sifreleniyor..."
While Eof(1) = 0 
Get #1, , CL 
CL = CL Xor Hibyte(AX) 
AX = 6148 - (CL + AX) * 32703 
Put #2, , CL 
Wend
close #1
close #2
?"Tbl Dosyasi Sifrelendi"
Sleep

انظر الرابط: http://wusiv.blogspot.com/2008/12/tbl-encryption-decryption-islemleri.html

Do as I say, not as I do

We are Anonymous. We are Legion. We don't forgive. We don't forget

مواضيع مشابهة