Foro de elhacker.net

Proceso cifrado_cesar
	//Rellenar una cadena texto, con un mínimo de 10 palabras, y mostrar el texto cifrado con el método Cesar o cifrado por desplazamiento.5
	definir frase, tabla como caracter;

	
	Dimension tabla[26];
	//cremos un vector e introducimos el abcdario. Omito la "ñ", ya que da errores.
	tabla[0]="a";
	tabla[1]="b";
	tabla[2]="c";
	tabla[3]="d";
	tabla[4]="e";
	tabla[5]="f";
	tabla[6]="g";
	tabla[7]="h";
	tabla[8]="i";
	tabla[9]="j";
	tabla[10]="k";
	tabla[11]="l";
	tabla[12]="m";
	tabla[13]="n";
	tabla[14]="o";
	tabla[15]="p";
	tabla[16]="q";
	tabla[17]="r";
	tabla[18]="s";
	tabla[19]="t";
	tabla[20]="u";
	tabla[21]="v";
	tabla[22]="w";
	tabla[23]="x";
	tabla[24]="y";
	tabla[25]="z";
	
	//Preguntamos al usuario para que escriba una frase.
	Escribir "Escribe una frase con un mínimo de 10 palabras";
	Leer frase;
	//pasamos la frase a minúsculas para no tener que preguntar 2 veces por cada vocal
	frase=Minusculas(frase);
	escribir frase;
	
FinProceso

Sub Main()

	DecryptedStr = "Hello world"
	EncryptedStr = EncryptString(DecryptedStr, 3)
	Print EncryptedStr
	Terminate

End Sub

Function EncryptString(Str As String, Shift As Integer) Returns String

	CharSet[]    = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVXYZ0123456789".Split()
	EncryptedStr = ""

	For Each C as Character in Str Do

		If CharSet.Contains(C) Then

			CharIndex = CharSet.FindIndex(C)

			If Not (CharIndex + Shift) > (CharSet.Length) Then
				char = CharSet(CharIndex + Shift)
			Else
				char = CharSet((CharIndex + Shift) - (CharSet.Length - Shift))
			End If
	       
			EncryptedStr = EncryptedStr.Concatenate(char)

		Else
		  ThrowError("Unknown character to encrypt.")

		End If // CharSet.Contains()

	End For // Each C as Character in Str 

	Return EncryptedStr

End Function