PDA

View Full Version : سوال: کد کردن تصاویر به این شکل



Mosafers
دوشنبه 15 دی 1393, 12:54 عصر
سلام دوستان عزیز من میخوام از این روش که سایت استفاده کرده استفاده کنم خواهش میکنم کمکم کنید.

نمونه تصاویر کد شده (http://www.hindawi.com/journals/jece/2012/173931/fig3/)
توضیحات روش کد شده (http://www.hindawi.com/journals/jece/2012/173931/)

با تشکر

systam
سه شنبه 16 دی 1393, 23:22 عصر
سلام

ا (http://vbcity.com/forums/t/143693.aspx)ین یک نمونه یکی از دوستان همین چند وقت پیش توی سایت گذاشته بود
من از دوستان تقاضا دارم کسی هست بتونه برنامه رو به vb تبدیل کنه ممنونم میشم


یا علی

systam
چهارشنبه 17 دی 1393, 22:51 عصر
دوستان اساتید بزرگواران استاد
کسی نیست راهنمایی کنه در باره این موضوع

erfan_urchin
پنج شنبه 18 دی 1393, 16:00 عصر
از دوستان تقاضا دارم کسی هست بتونه برنامه رو به vb تبدیل کنه ممنونم میشم
بفرمایید دوست عزیز تبدیل شد به کد VB.Net
Private bm1 As Bitmap, bm2 As Bitmap, bm3 As Bitmap
Private Sub Button1_Click(sender As Object, e As EventArgs)
bm1 = New Bitmap("a.jpg")
bm2 = New Bitmap(bm1.Width, bm1.Height)
bm3 = New Bitmap(bm1.Width, bm1.Height)
Dim rand1 As New Random()
Dim seed As Integer() = {rand1.[Next](), rand1.[Next](), rand1.[Next]()}
Dim temp As Color
If True Then
Dim rnd As Random() = {New Random(seed(0)), New Random(seed(1)), New Random(seed(2))}
For i As Integer = 0 To bm1.Width - 1
For j As Integer = 0 To bm1.Height - 1
temp = bm1.GetPixel(i, j)
bm2.SetPixel(i, j, Color.FromArgb((temp.R + rnd(0).[Next](0, 256)), (temp.G + rnd(1).[Next](0, 256)), (temp.B + rnd(2).[Next](0, 256))))
Next
Next
End If
If True Then
Dim rnd As Random() = {New Random(seed(0)), New Random(seed(1)), New Random(seed(2))}
For i As Integer = 0 To bm2.Width - 1
For j As Integer = 0 To bm2.Height - 1
temp = bm2.GetPixel(i, j)
bm3.SetPixel(i, j, Color.FromArgb(CByte(temp.R - rnd(0).[Next](0, 256)), CByte(temp.G - rnd(1).[Next](0, 256)), CByte(temp.B - rnd(2).[Next](0, 256))))




Next
Next
End If
pictureBox1.Image = bm1
pictureBox2.Image = bm2
pictureBox3.Image = bm3
End Sub

Mosafers
پنج شنبه 18 دی 1393, 17:37 عصر
کسی نمیتونه کاری کنه که عکس رمز شده قابل بازگشایی باشه ؟

erfan_urchin
پنج شنبه 18 دی 1393, 20:35 عصر
کسی نمیتونه کاری کنه که عکس رمز شده قابل بازگشایی باشه ؟
فکر کنم منظورتون اینه که قابل بازگشایی نباشه
خب اگه نتونی رمز گشایی بکنی دیگه چه به درد میخوره؟؟!!!!
دیگه نمیشه ازش استفاده کرد که!!

Mosafers
پنج شنبه 18 دی 1393, 21:19 عصر
نه دوست عزیز رمزگشایی بشه به پست اول من دقت کن .
این سورس مشخص نیس چطور کار میکنه ! پیکسل رو تغییر میده و دوباره بر میگردونه همین ! و از هیچ الگوریتم کدی استفاده نکرده...
این روش هم بشه با یک روش خاص ذخیره کرد و دوباره بشه همون عکس کد شده رو با برنامه باز کرد و رمزگشایی کرد.

به این آدرس (http://www.hindawi.com/journals/jece/2012/173931/) برد و روی یکی از عکس ها کلیک کنید...

systam
شنبه 20 دی 1393, 21:40 عصر
سلام
من توی نت زیاد گشتم درباره این موضوع چیزی خاصی پیدا نکردم
اون پروژه که ضمیمه کردم خوبه ولی تبدیل به vb میشه کار نمیکنه
یک برنامه در حال گشت کذار بودن (سایت های خارجی)پیدا کردم میاد opacity عکس کم و زیاد میکنه دقیقا نمیدونم شاید هم اشتباه میکنم شاید هم کد میکنه عکس رو دوستان برنامه رو بررسی کنند

واقعا توی سایت های ایرانی در این باره بحث چندانی نیست من از دوستان اساتید بزرگان کسی مطلبی داره برنامه پروژه و...
داره خواهشا ما رو هم بی نصیب نزارند


ممنونم یا علی

NASA's Spaceman
یک شنبه 21 دی 1393, 01:14 صبح
تا جایی که من میدونم اون ها یه سری عکس های 16 بیتی هستن که فقط با یه سری کدنویسی های خاص نمایش داده میشن (یعنی تو نرم افزار های معمولی و حتی خود ویندوز نمیشه این عکس ها رو باز کرد) و اگه اشتباه نکنم سورسش هم تو اینترنت هست
با سپاس Spaceman