Bueno, estaba sin nada que hacer, así que programé está aplicación (stupidtool).
Es una aplicación que permite encriptar o desencriptar una cadena de texto usando algunos cifrados como el Caesar (César), Vigenère, XOR y un simple Reverser (mejor conocido como StringReverse).
Desarrollé dos nuevas funciones: la primera es una función que realiza exactamente lo mismo que la "ReverseString" encontrada en la unidad "StrUtils.pas", pero esta es un poco más rápida.
ReverseStringM
Código: Seleccionar todo
function ReverseStringM(const AText:String):String;
var
I:Integer;
Tmp:String;
begin
for I:= Length(AText) downto 0 do
Tmp := Tmp + Copy(AText[I],1,I);
Result := Tmp;
end;Código: Seleccionar todo
function GenerateRandomString(Count:Integer):String;
const
Alphabet: Array [0..25] of Char = ('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');
var
I:Integer;
iTmp:String;
begin
Result := '';
Randomize;
for I:=1 to Count do
begin
iTmp := iTmp + Alphabet[Random(25)];
iTmp := Copy(iTmp,0,Count);
Result := iTmp
end;
end;
Descarga:
[Enlace externo eliminado para invitados]
