دانلود برنامه کد کننده ی متن (برای کد کردن نامه های محرمانه)

[Ali0Boy]

سلام دوستان من چند روز پیش تو اینترنت گشت میزدم چشمم به یه برنامه ای خورد گفتم برا شما هم بزارم بد نیست. سورسش رو هم دنبالش گشتم ولی جایی ندیدم. اگه کسی هم سورس این برنامه رو داره یا میتونه بفهمه که از چه الگریتمی برای کد کردن استفاده کرده ممنون میشم بهم بگه.

[fazelm]

سلام دوستان من چند روز پیش تو اینترنت گشت میزدم چشمم به یه برنامه ای خورد گفتم برا شما هم بزارم بد نیست. سورسش رو هم دنبالش گشتم ولی جایی ندیدم. اگه کسی هم سورس این برنامه رو داره یا میتونه بفهمه که از چه الگریتمی برای کد کردن استفاده کرده ممنون میشم بهم بگه.

دانلود فایل

لینک ات خرابه

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

[fazelm]

راستی یه توضیح کوچیک هم بدم :

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

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

اگه سوالی هست ، منم هستم !!

[parselearn]

http://www.barnamenevis.org/sh...d.php?t=197862

[fazelm]

http://www.barnamenevis.org/sh...d.php?t=197862

این برنامه ی شما بسیار ساده کد نگاری میکنه و این کد رو یک بچه هم میتونه رمز گشایی کنه

[fazelm]

انتقاد پذیر باشید دوستان

اگر کسی از دوستان تونست برنامه ای بنویسه که کد بدست آمده از برنامه ی من رو کد گشایی کنه خوشحال میشم بذاره روی سایت !!

[ameri110]

مطمعا باش هیچکاری نشد نداره
اگه جایزه بزاری شاید خودم اولین نفری باشم که این کار رو می کنم

[fazelm]

مطمعا باش هیچکاری نشد نداره
اگه جایزه بزاری شاید خودم اولین نفری باشم که این کار رو می کنم

درســــــــــــــــــــــ ـــــــــــــــــــــــتـ ـــــــــــــــــــــــــ ــت کــــــــــــــــــــــــ ـــــــــــن

[Ali0Boy]

لینک ات خرابه

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

دوست عزیز لینک درسته
باپوزش از تمامی دوستان من پسوردش رو نگذاشتم
پسورد: dib0d3r میباشد
دقیقا باید پسورد رو صحیح بزنید و به صورت کوچک

[ameri110]

متاسفانه فعلا وقت ندارم
تا 4 روز دیگه هم نمیتونم آن بشم
ولی این کار رو حتما می کنم

[fazelm]

متاسفانه فعلا وقت ندارم
تا 4 روز دیگه هم نمیتونم آن بشم
ولی این کار رو حتما می کنم

مـــــــــــــنـــــــتظـ ـــــــــــرم

[ameri110]

کافیه دی کامپایل کنم و الگوریتم رو حدس برنم
بقیش حله
الان 5-6 تا برنامه دارم کرک کنم
ماشالا سرم خیلی شلوغه ولی برنامی شما در الویت اوله

[fazelm]

کافیه دی کامپایل کنم و الگوریتم رو حدس برنم
بقیش حله
الان 5-6 تا برنامه دارم کرک کنم
ماشالا سرم خیلی شلوغه ولی برنامی شما در الویت اوله

این کار رو که ..... منم بلده

ولی باشه اشکال نداره

راستی میتونی با دی کامپایل یه برنامه عربی رو به فارسی ترجمه کنی ؟؟

[fazelm]

اگه خیلی سرت شلوغه ، دی کامپایل شده اش رو هم برات بذارم !!

[daniyal_1363]

مـــــــــــــنـــــــتظـ ـــــــــــرم

کار نشد نداره دوست عزیز

این برنامه ی شما بسیار ساده کد نگاری میکنه و این کد رو یک بچه هم میتونه رمز گشایی کنه

بهتر نیست برای نشون دادن ضعف برنامه های دوستان از راه بهتری استفاده کنید

[Ali0Boy]

سلام دوستان من چند روز پیش تو اینترنت گشت میزدم چشمم به یه برنامه ای خورد گفتم برا شما هم بزارم بد نیست. سورسش رو هم دنبالش گشتم ولی جایی ندیدم. اگه کسی هم سورس این برنامه رو داره یا میتونه بفهمه که از چه الگریتمی برای کد کردن استفاده کرده ممنون میشم بهم بگه.

دانلود فایل

دوستان یکی هم بفکر این برنامه باشه. کسی هست به من بگه الگریتم این برنامه چی میتونه باشه ..... !!!!!!!!!!!!!!

[Ali0Boy]

از دوستان به عنوان ایجاد کننده ی این تاپیک درخواست میشود اگه الگوریتم قوی ای برای کدینگ کردن متن نامه ها و همچنین فایل های دیگر مانند عکس و فیلم (البته اولویت روی متن نامه می باشد) سراغ دارند یا بلدند در اینجا به تشریح و توضیح اون بپردازند و نیز اگه هم یه سورس ازش دارند در اینجا قرار دهند تا دیگر دوستان از آن استفاده کنند (توجه کنید سورس نه Exe برنامتون رو) و انجمن جای رقابت و دعوا کردن نیست و جای اشتراک گذاری منابع علمی برای بالا بردن سطح سواد کشور و پیشرفت کشور می باشد!

[fazelm]

از دوستان به عنوان ایجاد کننده ی این تاپیک درخواست میشود اگه الگوریتم قوی ای برای کدینگ کردن متن نامه ها و همچنین فایل های دیگر مانند عکس و فیلم (البته اولویت روی متن نامه می باشد) سراغ دارند یا بلدند در اینجا به تشریح و توضیح اون بپردازند و نیز اگه هم یه سورس ازش دارند در اینجا قرار دهند تا دیگر دوستان از آن استفاده کنند (توجه کنید سورس نه Exe برنامتون رو) و انجمن جای رقابت و دعوا کردن نیست و جای اشتراک گذاری منابع علمی برای بالا بردن سطح سواد کشور و پیشرفت کشور می باشد!

تا رقابتی نباشه ، پیشرفتی هم نیست

[xxxxx_xxxxx]

سلام،

تا رقابتی نباشه ، پیشرفتی هم نیست

رقابت با گفتن جمله زیر؟

این برنامه ی شما بسیار ساده کد نگاری میکنه و این کد رو یک بچه هم میتونه رمز گشایی کنه

حداقل می فرمودید که چطور یک بچه میتونه دو کاراکتر که XOR شده رو به حالت اول برگردونه!

زیاد به برنامه ای که نوشتید اطمینان نداشته باشید، فکر نمی کنم معکوس کردن کد اسکی کاراکتر ها اصلاً رمزنگاری محسوب بشه!
این الگوریتم برنامه شما که برای Encoding استفاده کردید:

Private Sub cmdEncode_Click()

part1 = StrReverse(Left(txtOriginal, (Len(txtOriginal) \ 2) + 1))

part2 = StrReverse(Right(txtOriginal, Len(txtOriginal) - Len(part1)))

txtCode.Text = ""

For i = 1 To Len(part1)

    x = Mid(part1, i, 1)

    z = Format(Asc(x), "000")

    txtCode.Text = txtCode.Text & StrReverse(z)

Next i



If Len(part2) = 0 Then Exit Sub

For i = 1 To Len(part2)

    x = Mid(part2, i, 1)

    z = Format(Asc(x), "000")

    txtCode.Text = txtCode.Text & StrReverse(z)

Next i

End Sub

روال Decoding هم دیگه فکر نمی کنم دیگه نیازی باشه بنویسم.

پ.ن: آنچه بر ما میرود آیینه رفتار خود ماست

موفق باشید/

[fazelm]

اگه اینقدر که میگین ساده اس exe اش رو برام بذار

[xxxxx_xxxxx]

exe چی رو بزارم؟
سورس روال Encoding تو پست قبل هست، خودتون تست کنید. خروجیش با خروجی برنامه شما یکی میشه.

[fazelm]

exe چی رو بزارم؟
سورس روال Encoding تو پست قبل هست، خودتون تست کنید. خروجیش با خروجی برنامه شما یکی میشه.

تست کردم این اصلا چنین خروجی ای نداد برادر

[Dr.Bronx]

جناب xxxxx_xxxxx

نظرتون در مورد کد زیر چیه ؟ چند درصد میشه بهش اطمینان کرد ؟

Public Function Encrypt(StrVar As String) As String



    Dim Enc As String, Dec As String, TEnc As String, Org As String, ttllen As Integer, i As Integer



    ttllen = Len(StrVar)



    Org = StrVar



    For i = 1 To ttllen

    

        Enc = Mid(Org, i, 1)

        

        Enc = Asc(Enc)

        

        Enc = ((Enc + 10) - 5)

        

        Enc = Chr(Enc)

        

        Enc = Asc(Enc)

        

        Enc = ((Enc + 10) - 2)

        

        Enc = Chr(Enc)

        

        TEnc = TEnc & Enc

    

    Next i



    Encrypt = TEnc



End Function

اگر ببینید میشه روش حساب کرد که نحوه decrypt رو هم بگم .

اگر نه که روش کار کنیم یک روش 5/10 بشه ازش در آورد .

متشکرم

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

[xxxxx_xxxxx]

سلام،

تست کردم اين اصلا چنين خروجي اي نداد برادر

متن زير رو با برنامه خودتون و الگوريتمي که تو پست قبل نوشتم تست کردم:

This is just a test for an Encryption algorithm

خروجي برنامه شما:

23041111120123061151110161123079023061151171160123  05115012305115014014809014016115014111113018017902  30011111501611211121411990011960230011790

خروجي برنامه من:

23041111120123061151110161123079023061151171160123  05115012305115014014809014016115014111113018017902  30011111501611211121411990011960230011790

حالا نمي دونم چطور داريد انکارش مي کنيد!

اين هم براي يک متن فارسي:

اين فقط يک آزمايش براي يک الگوريتم رمزنگاري است

خروجي برنامه شما:

73223073299190200223021273299172201249123025173223  06122221222308227329912021129912307329029914418220  12722902230722202732902032441522991230251

خروجي برنامه من:

73223073299190200223021273299172201249123025173223  06122221222308227329912021129912307329029914418220  12722902230722202732902032441522991230251

همانطور که مي بينيد خروجي ها هر دو کاملاً يکسان هستند!

جناب xxxxx_xxxxx
نظرتون در مورد کد زير چيه ؟ چند درصد ميشه بهش اطمينان کرد ؟

سلام،
این به هیچ عنوان قابل اطمینان نیست، گذشته از اینکه روال بسیار ساده ای رو طی میکنه، قابل حدس زدن هم هست. شما بهش ورودی abc بدید؛ بهتون میده nop. کاملاً مشخص هست که چه اتفاقی داره میوفته.

موفق باشید/

[kuh_nur]

نظر دوستان راحع به این قطعه چیه ؟

Private Function CreateEncryptCode(Key As String) As Integer

Dim Total(1 To 2) As Integer

Dim NbChars(1 To 2) As Integer

Dim Counter As Integer



    Total(1) = 0

    Total(2) = 0

    NbChars(1) = 0

    NbChars(2) = 0

    For Counter = 1 To Len(Key)

        Select Case Counter Mod 2

            Case 0   

                Total(1) = Total(1) + Asc(Mid(Key, Counter, 1))

                NbChars(1) = NbChars(1) + 1

            Case Else 

                Total(2) = Total(2) + Asc(Mid(Key, Counter, 1))

                NbChars(2) = NbChars(2) + 1

        End Select

    Next Counter





    If NbChars(1) > 0 And NbChars(2) > 0 Then

        CreateEncryptCode = Abs((Total(1) / NbChars(1))  - (Total(2) / NbChars(2)))

    Else 

        CreateEncryptCode = 1

    End If

End Function

[xxxxx_xxxxx]

نظر دوستان راحع به این قطعه چیه ؟

سلام،
این کد فقط یک عدد یک رقمی میده، اکثر اوقات هم 0 هست

[kuh_nur]

شما مقدار key رو چی قرار می دین

[xxxxx_xxxxx]

Key= 123
result = 0

Key = 456
result= 0

[xxxxx_xxxxx]

فکر می کنم دوستان خیلی دوست دارند الگوریتم های خودشون رو ارزیابی کنند. به همین خاطر چند نکته در مورد رمزنگاری اطلاعات میگم، شاید برای دوستان مفید بود:

• اول اینکه همیشه در حین نوشتن الگوریتم رمزنگاری، به این توجه داشته باشید که الگوریتم من باید یک مقدار Unique برگردونه. خروجی های یکسان به ازای ورودی های مختلف به هیچ عنوان قابل قبول نیست.

• حواسمون رو جمع کنیم تا جایی باعث نشیم که اطلاعات از بین بره و نتونیم روال رمزگشایی رو بنویسیم. همیشه باید اطلاعات رو تغییر شکل بدیم، نه اینکه نابود کنیم. مثلاً عمل شیفت روی بیت های یک کاراکتر باعث میشه که دیگه هیچوقت نتونیم به مقدار اولیه دست پیدا کنیم، از طرفی اینکار ممکن هست باعث بشه تا نکته قبل رعایت نشه. (مگر شیفت چرخشی بدیم)

• شما روال Encryption رو می نویسید و خودتون هم Decryption رو می نویسید، پس هر کاری که بخواهید در این دو می توانید انجام دهید. فرضاً یک سری رشته های بیخود تولید می کنم که حتی خودم هم نمیخوام ازش استفاده کنم. فقط این رشته های بیخود رو برای رد گم کردن تولید می کنم. مثلاً با خودم میگم یادم باشه که کاراکترهای پنجم، دهم، پانزدهم، بیستم، بیست و پنجم و ... که همگی ضریبی از پنج هستند، رشته هایی بلا استفاده هستند و همینطور الکی تولید کردم. پس در روال Decryption از روی این کاراکترها بدون هیچ عملیاتی پرش می کنم. به غیر از این خیلی کارهای دیگه هم میتونم انجام بدم، چون روال Encryption رو خودم می نویسم، و روال Decryption رو هم خودم.

• نکته ای که باز در مورد نکته فوق وجود داره این هست که، اگر من برای یک ورودی خاص، کاراکتر پنجم رو مثلاً a میزارم، حواسم باشه که دوباره اگر همین ورودی Encrypt شد، کاراکتر پنجم مجدداً a تولید بشه. پس این کار همچین الکی هم نیست و به اندازه سایر بخش های الگوریتم اهمیت داره.

• اگر بتونیم، ترکیبی از حروف و اعداد تولید کنیم وضعیت بهتر میشه.

• الزاماً طولانی بودن رشته Encrypt شده، امنیت الگوریتم رو تأمین نمی کنه.

• با جمع و تفریق های اضافی، بعید می دونم، امنیت الگوریتم ارتقا پیدا کنه. مگر اینکه از حاصل این جمع و تفریق ها استفاده کنیم.

• زمانی که الگوریتم رو به پایان رسوندید، Unique بودن مقادیر رو حتماً در آخر بررسی کنید.

موفق باشید/

[kuh_nur]

Key= 123
result = 0

Key = 456
result= 0

دوست عزیز ببخشید اشتباه از من بود من کل پروژه رو نذاشته بودم
شما مقدار key رو یک رشته بزارین بعد تست کنید

[Ali0Boy]

سلام دوستان آیا کسی هست بتون به من در کد نویسی یه برنامه ای که بتونه عکس یا فایل صوتی و تصویری رو کد کنه، کمک کنه! ممنون میشم دوستان خواهشا اگه میتونید کمکم کنید درغ نکنید!!!

[haririan2]

دوستان کسی راهی بلده که این کد هارو تبدیل به عدد کنه ؟
逼钕怲嬲逎嬻簼谌傏鐰錳
逼钕怲宒逍嬸簵谉傑鐴錴
逼钕怲宒逋嬺簺谌倴鐰鎕
逷钏怵宓逊嬵簺谍
逼钕怲宒逋嬺簴谌傔鐳鎕
逼钕怲宒逎嬹簹谈倵鐱錵
逸钐怴宑适嬶簻谎
逺钊怶完逌嬼簼谉傃
逼钕怴宒逃嬹簹谆倴鐶錵
逼钕怴宍适嬸簶谌傑鐷錷
逼钕怲宒透嬹簼谉傎鐵錷
逴钔怷宏逌嬱簸谈
逼钕怲宒逋嬹簴谆傏鐵鎔

خواص :
هر کدام از خط ها نمایانگر یک شماره تلفن هست
به ازای هر عدد یک حرف چینی وجود دارد
ولی کاراکتر های چینی به صورت همیشه برای هر عدد یکجور نیستند !

دوستان اگه کسی بتونه این کد را باز کنه از خجالتش هم حسابی در میام :) پس لطفا هرکی فکر میکنه میتونه لطفا وقت بگذاره اینم ایمیل من ali@haririan.com ممنون