ANTICHAT — форум по информационной безопасности, OSINT и технологиям

var
  Form1: TForm1;
  Fn,n,e,p,q,d:integer;
implementation

{$R *.dfm}
//наибольший общим делитель
function nod(a,b:integer):integer;
var i:integer;
begin
  while a<>b do if a>b then a:=a-b else b:=b-a;
  result:=a;
end;
//генерация ключей
procedure TForm1.Button1Click(Sender: TObject);
var i,k:integer;
begin
  p:=strtoint(edit1.Text);
  q:=strtoint(edit2.Text);
    n:=p*q;
    Fn:=(p-1)*(q-1);
  for i:=2 to Fn do
    if nod(i,Fn)=1 then
      begin
        e:=i;
        break;
      end;
k:=1;
while (k*Fn+1)mod e<>0   do
  inc(k);
  d:=(k*Fn+1)div e;

edit4.Text:='= '+inttostr(d);
edit3.Text:='= '+inttostr(e);
end;
//шифрование
procedure TForm1.Button2Click(Sender: TObject);
var s1,s:string;
    k,c,m,nn,i,j:integer;
begin
  memo1.Clear;
  s:=Edit5.Text;
  c:=1 ;
  s1:='';
  nn:=length(s);
    for i:=1 to nn do
      begin
        m:=(ord(s[i])-ord('A')) mod 26;           
        c:=1 ;
          for j:=1 to e do                        
            c:=(c*m) mod n ;
            memo1.lines.add(inttostr(c)) ;   
            c:=c mod 26;
            s1:=s1 + chr(c+ord('A')) ;       
      end;
  Edit6.Text:=s1;
end;
//дешифровка
procedure TForm1.Button3Click(Sender: TObject);
var s1,s:string;
k,c,m,nn,i,j:integer;
begin
  s:= Edit6.Text;
//c:=1 ;
s1:='';
nn:=length(s);
for i:=1 to nn do
begin
     m:=(ord(s[i])-ord('A')) mod 26;
     c:=1 ;
      for j:=1 to d do
       c:=(c*m) mod n ;
       memo1.lines.add(inttostr(c)) ;
       c:=c mod 26;
     s1:=s1 + chr(c+ord('A')) ;
end;
Edit7.Text:=s1;
end;
end.

#include <stdio.h>

long step (int i) {
  int g = 1, j;
  for (j = 1; j < i; g *= 10, j++);
  return g;
}

int main (int argc, char* argv[]) {
  int k;
  printf ("Enter your number: ");
  scanf ("%d", &k);

  int l = k, g = 1;

  while (l / 10 > 0) {
    l /= 10;
    ++g;
  }

  int s1, s2;

  s1 = k / step (g) + (k / step (g - 1) % 10);
  s2 = k % 10 + (k / step (2)) % 10;
  return 0;
}