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

// base64 by Gar|k
//#define B64_DEF_LINE_SIZE   72
//#define B64_MIN_LINE_SIZE    4
// buf - строка для кодирования
// sizebuf - размер строки
// rez - буффер для результата
// функция возвращает размер полученого хеша
int base64_encode(char *buf,int sizebuf,char *rez,int linesize)
{
	static const char cb64[]="ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/";
	unsigned char in[3], out[4];
	int i, len, blocksout=0,count=0;

	while(count!=sizebuf)
	{
		len = 0;
		for( i = 0; i < 3; i++ ) 
		{
			if( count!=sizebuf )
				{ in[i] = (unsigned char)*buf++; count++; len++; }
			else in[i] = 0;
		}

		if( len ) 
		{
			out[0] = cb64[ in[0] >> 2 ];
			out[1] = cb64[ ((in[0] & 0x03) << 4) | ((in[1] & 0xf0) >> 4) ];
			out[2] = (unsigned char) (len > 1 ? cb64[ ((in[1] & 0x0f) << 2) | ((in[2] & 0xc0) >> 6) ] : '=');
			out[3] = (unsigned char) (len > 2 ? cb64[ in[2] & 0x3f ] : '=');

			memcpy(rez,out,4); rez+=4;
			blocksout++;
		}

		if( blocksout >= (linesize/4) || count==sizebuf )  blocksout = 0;
	}
*rez++=0;
	return count;
}

#include <wincrypt.h>

// на выходе адрес буфера 16 байтного хеша
// после использования выполни VirtualFree(LPVOID lpAddress,0,MEM_RELEASE);
unsigned char *md5(unsigned char *string,DWORD count)
{
	HCRYPTPROV hProv;
	HCRYPTHASH hHash;
	unsigned char *hash_value;

	// Инициализация контекста криптопровайдера
	if (CryptAcquireContext(&hProv, NULL, NULL, PROV_RSA_FULL, 0))
	{
		// Cоздание хеш-объекта
		if (CryptCreateHash(hProv, CALG_MD5, 0, 0, &hHash))
		{
			// Передача хешируемых данных хэш-объекту.
			if (CryptHashData(hHash, string, count, 0))
			{
				// Получение хеш-значения
				count = 0;
				if (CryptGetHashParam(hHash, HP_HASHVAL, NULL, &count, 0))
				{
					hash_value=(unsigned char *)VirtualAlloc(NULL,count,MEM_RESERVE | MEM_COMMIT,PAGE_READWRITE);
					if (CryptGetHashParam(hHash, HP_HASHVAL, hash_value, &count, 0))
					{
						return hash_value;
					}
				}
			}
		}
	}

	return NULL;
}

// hash_value указатель на >=16 байтный буфер (напр. char hash[16];)
BOOL md5(unsigned char *hash_value,unsigned char *string,DWORD count)
{
	HCRYPTPROV hProv;
	HCRYPTHASH hHash;

	// Инициализация контекста криптопровайдера
	if (CryptAcquireContext(&hProv, NULL, NULL, PROV_RSA_FULL, 0))
	{
		// Cоздание хеш-объекта
		if (CryptCreateHash(hProv, CALG_MD5, 0, 0, &hHash))
		{
			// Передача хешируемых данных хэш-объекту.
			if (CryptHashData(hHash, string, count, 0))
			{
				// Получение хеш-значения
				count = 16;
				if (CryptGetHashParam(hHash, HP_HASHVAL, hash_value, &count, 0)) return TRUE;
			}
		}
	}

	return FALSE;
}

program crypt_lab1;

uses
   crt;

const
   MaxDig = 1000;  { максимальное количество цифр }
   Osn    = 10000; { основание нашей системы счисления }

type
   TLong = array[0..MaxDig] of integer;

 { считивание длинного числа с файла }
 procedure ReadLong(filename :string; var a:TLong);
 var i  :integer;
     F  :text;
     ch :char;
 begin

     for i:=0 to MaxDig do a[i]:=0;
     a[0]:=1;

     assign(F, filename);
     reset(F);
     while not eof(F) do begin
           read(F,ch);

           for i:=a[0] downto 1 do begin
               a[i+1] := a[i+1] + ( longint(a[i]) *10) div Osn;
               a[i]   := ( longint(a[i]) *10) mod Osn;
               end;

           {val(ch,temp,temp); a[1] := a[1] + temp;}
           a[1] := a[1] + ord(ch) - ord('0');
           if (a[a[0]+1]>0) then inc(a[0]);

    end;
    close(F);

 end;


 { вывод длинного числа на экран из массива}
 procedure WriteLong(var a :TLong);
 var ls,s:string; i:integer;
 begin
      str( Osn div 10, ls);
      write(a[a[0]]); {starwa cufra}
      for i:=a[0] - 1 downto 1 do begin
          str(a[i], s);
          while length(s)<length(ls) do
                s:='0'+s;
          write(s);
      end;
      writeln;
 end;

  { сравнения двох дл. чисел: a == b }
 function Eq(a,b :TLong):boolean;
 var
    i:integer;
 begin
      Eq := false;
      if ( a[0]<>b[0] ) then exit;

      { a[0] == b[0] }
      for i:=1 to a[0] do
       if (a[i] = b[i]) then
         Eq := i = a[0];
 end;

  { сравнения двох дл. чисел: a > b }
 function More(a,b :TLong):boolean;
 var i :integer;
 begin
      if ( a[0]>b[0] ) then More:=true else
                            More:=false;
      for i:=a[0] downto 1 do
          if (a[i]<>b[i]) then
          begin
             if (a[i]>b[i]) then More:=true else More:=false;
             break;
          end;
 end;

  { сравнения двох дл. чисел: a > b }
 function Less(a,b :TLong):boolean;
 var i :integer;
 begin
      Less := Not(More(a, b) Or Eq(a, b))
 end;

  { сравнения двох дл. чисел: a >= b }
 function More_Eq(a, b : TLong) : boolean;
 begin
		More_Eq := More(a, b) Or Eq(a, b)
 end;

  { сравнения двох дл. чисел: a <= b }
 function Less_Eq(a, b : TLong) : boolean;
 begin
	Less_Eq := Not More(a, b)
 end;

 { сложения двух длинних чисел: a + b }
 procedure Sum2Long(var a,b :TLong; var c :TLong);
 var i,k:integer;
 begin
      for i:=0 to MaxDig do  { aHaJlor:                     }
          c[i] := 0;         {   fillchar(c, sizeof(c), 0); }

      if a[0]>b[0] then k:=a[0] else k:=b[0];
      for i:=1 to k do begin
          c[i+1] := (c[i] + a[i] + b[i]) div osn;
          c[i] := (c[i] + a[i] + b[i]) mod osn;
      end;
      if (c[k+1] = 0) then c[0]:=k else c[0] := k+1;
 end;

var
   a,b,c :TLong;
   i     :integer;

begin
   clrscr;

   ReadLong('num1.txt',a);
   ReadLong('num2.txt',b);
   write('a   = ');  WriteLong(a);
   write('b   = ');  WriteLong(b);

   Sum2Long(a,b,c);
   write('a+b = ');  WriteLong(c);

   writeln( 'a > b ', More(a,b) );
   writeln( 'b > a ', More(b,a) );
   writeln( 'c > b ', More(c,b) );
   writeln( 'c > a ', More(c,a) );

   readln;
end.

program Project1;
 
{$APPTYPE CONSOLE}

uses
  SysUtils;
  var i,ii,x:integer;
  s:string;

begin
  ReadLn(s);

  //Алгоритм работы будет повторяться, пока  пользователь не введет команду exit
  while s<>'exit' do begin
    write('> ');
    ReadLn(s);
    for i:=1 to Length(S)  do
        case s[i] of
                //Если символ равен заглавной или прописной H, вывести  Hello, world!
             'H':writeLn(']  Hello, world!');
             'h':writeLn(']  Hello, world!');
             'Q':writeLn(s);
                //Если символ равен заглавной или прописной Q, вывести  переменную S.
                //Там код программы
             'q':writeLn(s);
             '+':Inc(x); //Если символ равен плюсу, увеличить икс.
             '9':begin //Символ девять выводит стих.
                 writeLn(']  99 bottles of beer');
                 for ii:=98 downto 1 do begin
                     writeLn(']  you take one down, pass it around,');
                     writeLn(']  '+IntToStr(ii)+' bottles of beer on the wall');
                     writeLn(']  ');
                     writeLn(']  '+IntToStr(ii)+' bottles of beer');
                 end;
                 writeLn(']  you take it down, pass it around,');
                 writeLn(']  no more bottles of beer on the wall.');
        end;
    end;
  end;
 
end.