cifrado de hill y manejo de cadenas

[isaacrg]

ola a todos!
estoy realizandi un cifrado de hil en delphi 7 :
la parte en la que me atoro es enseparar la cadena en parejas ejemplo

cadena:=sistemas; debe de quedar asi: cadena:=si st em as;
entonce tomo la primer pareja que es 'si', entonces le asigno varibles a cada caracter c1:='s'; y c2:='i'; osea que lo hago asi c1:=cadena[1]; c2:=cadena[2]; entonces ya tengo las variables y las encripto y me arroja el resultado asi: edit3.text:=hm;
entonces no me sale el codigo pára que valla recorriendo la cadena y me valla asignando a c1 y c2 de los caracteres de la cadena, para que despues c1:=s; c2:=t; despues de encriptarlo c1 y c2 cambien a c1:=e; y c2=m;

y me imprima edit3.text:=hmemxuta



ojala y me halla explicado gracias por su ayuda de antemano

[*Caro*]

Hola isaacrg, por lo que he entendido tu problema esta en recorrer e ir tomando dos caracteres cada ves, puedes hacerlo de esta forma:

Código Delphi [-]
 AuxCadena := Cadena;
 While AuxCadena<>'' do
  begin
   C1 := AuxCadena[1];
   C2 := AuxCadena[2];
   ...............................
   //Tomamos todo menos los dos primeros caracteres
   AuxCadena := Copy(AuxCadena, 3, Length(AuxCadena)-1);
  end;

Saluditos

[isaacrg]

hola gracias CARO por tu ayuda la verdd en este momento no puedo comrobar el codigo pero llegando a casa lo intentare asi..

entonces si tengo otra duda te volvere a responder

GRACIAS!!

[isaacrg]

Cadena:='holamundos';
AuxCadena := Cadena;
While AuxCadena<>'' do
begin
C1 := AuxCadena[1];
C2 := AuxCadena[2];

// ...............................
//Tomamos todo menos los dos primeros caracteres
AuxCadena := Copy(AuxCadena, 3, Length(AuxCadena));
edit3.Text:=AuxCadena;
end;


hola Caro disculpa pero tengo una duda del codigo que me diste...

si coloco la linea de edit3.text:=AuxCadena; se supone que me arroja asi::


AuxCadena:'lamundos'; y no me arroja nada....

creo que me enrede feo .
gracias

[BrunoBsso]

¡He aquí la solución a todos tus problemas! Jajaja acá te muestro como separar un texto en parejas de caracteres:

Código Delphi [-]
//Para este programa se usaron 2 TEdits (Edit1 y Edit2) y un TButton (Button1)
function CifrarEnHill(S:String):String;
var
  Aux:String;
  I:Integer;
begin
  Aux:='';
  I:=1;
  while (I<=Length(S)) do begin
    Aux:=Aux+S[i]+S[I+1]+' ';
    I:=I+2;
  end;
  if (Aux[Length(Aux)]=' ') then
    SetLength(Aux,Length(Aux)-1);
  Result:=Aux;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit2.Text:=CifrarEnHill(Edit1.Text);
end;

Creo que eso es lo que querías.
Saludos!

EDITO: eso es lo que entendí yo, pero no sé si es lo que pedías.

[isaacrg]

Gracias por su ayuda encontre mi duda y ya termine el cifrado.

Ahora alguien digame si el tema se elimina solo? o asi hay que dejarlo.
gracias una vez mas por la ayuda