PDA

View Full Version : کد الگوریتم steganography در متلب



eletcomp
یک شنبه 26 آبان 1392, 17:22 عصر
با سلام بر عزیزان
میخواستم بدونم این الگوریتم را چطور میشه توی متلب نوشت!! ایا کد اماده اش توی وب هست!؟؟
مثلا از یک toolbox یک کلمه گرفته بشه و توی تصویر پنهان بشه؟؟؟ مربوط به پردازش تصویر دیجیتال میشه!!
لطفا راهنمایی کنید!!
سپاس

rahnema1
یک شنبه 26 آبان 1392, 21:06 عصر
نتیجه جستجو در گوگل steganography +matlab:
این اولی رو فکر کنم فیلتر شکن لازم باشه
http://www.mathworks.com/matlabcentral/fileexchange/41326-steganography-using-lsb-substitution/content/Steg.m
http://www.mathworks.com/matlabcentral/fileexchange/41326-steganography-using-lsb-substitution/all_files

این هم یه سایت دیگه با توضیحات:
https://sites.google.com/site/cs534steganographyproject/home/matlab-code-and-examples

eletcomp
دوشنبه 27 آبان 1392, 09:54 صبح
ممنون: اینها را خودم قبلا دیدم ولی من کد اش را میخوام به زبان متلب!! یا الگوریتم اش!!! به هر زبانی بود هم اشکال نداره!!!

rahnema1
دوشنبه 27 آبان 1392, 16:11 عصر
لینک اولی که گذاشته بودم به زبان متلبه!! باز هم یکبار دیگر ببینید
اون رو کپی کردم اینجا گذاشتم

%Steg.m
%Program of Steganography Using LSB substitution%
%- by Ashish Soni, ATC Indore
% ashishsoni15@gmail.com
clc;
clear all;
close all;
cover = input('Enter cover image: ', 's');
message = input('Enter message image name: ', 's');
x = imread(cover); % cover message
y = imread(message); % message image
n = input('Enter the no of LSB bits to be subsituted- ');
S = uint8(bitor(bitand(x,bitcmp(2^n-1,8)),bitshift(y,n-8))); %Stego
E = uint8(bitand(255,bitshift(S,8-n))); %Extracted
origImg = double(y); %message image
distImg = double(E); %extracted image
[M N] = size(origImg);
distImg1=imresize(distImg,[M N]);
error = origImg - distImg1;
MSE = sum(sum(error .* error)) / (M * N);
if(MSE > 0)
PSNR = 10*log10(M*N./MSE);
else
PSNR = 99;
end
disp('PSNR of message image to extracted image is')
disp(abs(PSNR))
disp('MSE is')
disp(abs(MSE))

figure(1),imshow(x);title('1.Cover image')
figure(2),imshow(y);title('2.Message to be hide')
figure(3),imshow((abs(S)),[]);title('3.Stegnographic image')
figure(4),imshow(real(E),[]); title('4.Extracted image')
figure(5),imhist(x); title('Histogram of cover image')
figure(6),imhist(S); title('Histogram of transformed stego image')



آخرین لینکی گذاشته بودم انتهای همون صفحه نگاه کن
یک فایل زیپه که کد توشه و دومی هم یک فایل با فرمت mat هست که مثالها توشه

eletcomp
پنج شنبه 30 آبان 1392, 18:01 عصر
ممنون دوست عزیز: ان لینکی را که دادید کار نمی کند !! ارور می دهد!!! Access Denied
لطف کن ان کدها را به صورت زیپ قرار یده!! راستی این کد ها توضیحات نداره!!
سپاس

rahnema1
پنج شنبه 30 آبان 1392, 22:03 عصر
بفرمایید فایل را از سایت دانلود کردم
این هم فایل mat:
http://www10.online-convert.com/download-file/25c336b1666e9521e9c9ed1167def3ec/converted-eb0e8dc0.7z