pro2.m

用matlab实现RSA算法,包括加密,解密,以MATLAB 编程实现

function varargout = pro2(varargin)
% RSA Algorithm Application M-file for rsa.fig
%    FIG = rsa launch rsa GUI.
%    rsa('callback_name', ...) invoke the named callback.

% Last Modified by GUIDE v2.0 11-Mar-2002 21:32:29

if nargin == 0  % LAUNCH GUI
    
    fig = openfig(mfilename,'reuse');
    
    % Use system color scheme for figure:
    set(fig,'Color',get(0,'defaultUicontrolBackgroundColor'));
    
    % Generate a structure of handles to pass to callbacks, and store it. 
    handles = guihandles(fig);
    guidata(fig, handles);
    
    if nargout > 0
        varargout{1} = fig;
    end
    
elseif ischar(varargin{1}) % INVOKE NAMED SUBFUNCTION OR CALLBACK
    
    try
        [varargout{1:nargout}] = feval(varargin{:}); % FEVAL switchyard
    catch
        disp(lasterr);
    end
    
end


%| ABOUT CALLBACKS:
%| GUIDE automatically appends subfunction prototypes to this file, and 
%| sets objects' callback properties to call them through the FEVAL 
%| switchyard above. This comment describes that mechanism.
%|
%| Each callback subfunction declaration has the following form:
%| <SUBFUNCTION_NAME>(H, EVENTDATA, HANDLES, VARARGIN)
%|
%| The subfunction name is composed using the object's Tag and the 
%| callback type separated by '_', e.g. 'slider2_Callback',
%| 'figure1_CloseRequestFcn', 'axis1_ButtondownFcn'.
%|
%| H is the callback object's handle (obtained using GCBO).
%|
%| EVENTDATA is empty, but reserved for future use.
%|
%| HANDLES is a structure containing handles of components in GUI using
%| tags as fieldnames, e.g. handles.figure1, handles.slider2. This
%| structure is created at GUI startup using GUIHANDLES and stored in
%| the figure's application data using GUIDATA. A copy of the structure
%| is passed to each callback.  You can store additional information in
%| this structure at GUI startup, and you can change the structure
%| during callbacks.  Call guidata(h, handles) after changing your
%| copy to replace the stored original so that subsequent callbacks see
%| the updates. Type "help guihandles" and "help guidata" for more
%| information.
%|
%| VARARGIN contains any extra arguments you have passed to the
%| callback. Specify the extra arguments by editing the callback
%| property in the inspector. By default, GUIDE sets the property to:
%| <MFILENAME>('<SUBFUNCTION_NAME>', gcbo, [], guidata(gcbo))
%| Add any extra arguments after the last argument, before the final
%| closing parenthesis.


% --------------------------------------------------------------------
function varargout = in_Callback(h, eventdata, handles, varargin)




val=[];
format long g
v=get(h,'string');
if 1~=isempty(v)
    val=char(v);
    
    [c,out,p,q,n,e,d]=rsacore(val);
    C=c;
    
    set(handles.c,'string',C);
    set(handles.out,'string',out);
    set(handles.p,'string',p);
    set(handles.q,'string',q);
    set(handles.n,'string',n);
    set(handles.e,'string',e);
    set(handles.d,'string',d);
    
else
    C=[];
    out=[];
    p=[];
    q=[];
    n=[];
    e=[];
    d=[];
    set(handles.c,'string',C);
    set(handles.out,'string',out);
    set(handles.p,'string',p);
    set(handles.q,'string',q);
    set(handles.n,'string',n);
    set(handles.e,'string',e);
    set(handles.d,'string',d);
    openfig('inputmsg.fig','reuse');
    
end 

% --------------------------------------------------------------------
function varargout = c_Callback(h, eventdata, handles, varargin)

g=get(h,'string');
if 1 ~= isempty(g)
    posdlg=[1 1];
    errormsg(posdlg);  
end 

% --------------------------------------------------------------------
function varargout = out_Callback(h, eventdata, handles, varargin)

g=get(h,'string');
if 1 ~= isempty(g)
    posdlg=[1 1];
    errormsg(posdlg);  
end 

% --------------------------------------------------------------------
function varargout = p_Callback(h, eventdata, handles, varargin)

g=get(h,'string');
if 1 ~= isempty(g)
    posdlg=[1 1];
    errormsg(posdlg);  
end 


% --------------------------------------------------------------------
function varargout = q_Callback(h, eventdata, handles, varargin)

g=get(h,'string');
if 1 ~= isempty(g)
    posdlg=[1 1];
    errormsg(posdlg);  
end 

% --------------------------------------------------------------------
function varargout = n_Callback(h, eventdata, handles, varargin)

g=get(h,'string');
if 1 ~= isempty(g)
    posdlg=[1 1];
    errormsg(posdlg);  
end 

% --------------------------------------------------------------------
function varargout = e_Callback(h, eventdata, handles, varargin)

g=get(h,'string');
if 1 ~= isempty(g)
    posdlg=[1 1];
    errormsg(posdlg);  
end 

% --------------------------------------------------------------------
function varargout = d_Callback(h, eventdata, handles, varargin)

g=get(h,'string');
if 1 ~= isempty(g)
    posdlg=[1 1];
    errormsg(posdlg);  
end 

% --------------------------------------------------------------------
function varargout = helpbutton1_Callback(h, eventdata, handles, varargin)
fig1=openfig('helpmsg.fig','reuse');