char alfabetikal[62]={'а','б','в','г','д','е','ё','ж',
		'з','и','й','к','л','м','н','о','п','р','с','т','у',
		'ф','х','ц','ч','ш','щ','ъ','ы','ь','э','ю','я','a','b',
		'c','d','e','f','g','h','i','j','k','l','m','n','o','p',
		'q','r','s','t','u','v','w','x','y','z',' ','@','.'};
	
	char shifrogramma[300];	
	char shifr[62]={'9','h','g','c','n','8','7','y',
		'f','6','5','d','j','w','z','4','o','a','x','l','3',
		'v','m','r','k','b','s','t','@','q','2','1','0','ц','п',
		'ё','м','л','я','а','с','у','ф','ш','з','щ','й','г','к',
		'е','ж','в','и','б','о','р','д','н','и','.','#','@'};
	
	
	array<Char>^ str = textBox1->Text->ToCharArray();
	for (int i=0; i<str->Length; i++)
		{
			for (int j=0; j<62; j++)
				{
					if(str[i]==alfabetikal[j])shifrogramma[i]=shifr[j];
				}
		}
	textBox2->Text=gcnew String(shifrogramma);