comment
IRC Chat
play_arrow
Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

Cifrado RxBot

  • 0 Respuestas
  • 1860 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado Expermicid

  • *
  • Underc0der
  • Mensajes: 457
  • Actividad:
    0%
  • Reputación 0
  • _-Expermicid-_
    • Ver Perfil
  • Skype: expermicid.xd
« en: Julio 03, 2013, 06:36:21 pm »
Código: Delphi
  1. (*
  2. *Cifrado RxBot
  3. *Autor: Metal_Kingdom
  4. *Fecha: 03/07/2013
  5. *Web: UdTools.net
  6. *Uso: RxBot(Cadena, Cifrar [1] / Descifrar [2], Tipo [1] / [2]
  7. *Agradecimientos:
  8. *Jep (Tabla), ..::AX::.., Chequinho, Freddy1990
  9. *)
  10.  
  11. function IntToHex(Int: Integer): string;
  12. var
  13.   i: Integer;
  14.   Hex: string;
  15. begin;
  16.   Hex := '0123456789ABCDEF';
  17.   i := Abs(Int mod 256);
  18.   while not (i div 16 = 0) do
  19.   begin
  20.     Result:= '';
  21.     Result := Hex[i mod 16 + 1] + Result;
  22.     i := i div 16;
  23.   end;
  24.   if length(Hex[i + 1] + Result) = 1 then
  25.       Result := '0' + Hex[i + 1] + Result
  26.     else
  27.       Result:= Hex[i + 1] + Result;
  28. end;
  29.  
  30.  
  31. Function RxBot(Text: string; EncOrDec, mType: ShortInt): string;
  32. var
  33.   sTemp, ArrayTemp, Res, AuxmXOR: string;
  34.   i: integer;
  35.   mXOR, Contador, Simbolo, ArrInt: integer;
  36. const
  37.   Tabla: array [0..255] of byte = (
  38.     $24,$2C,$FA,$24,$7B,$E2,$D7,$51,$9D,$0C,$7E,$AA,$2E,$04,$AF,$C8,$BF,$EF,$06,$A7,
  39.     $AD,$DE,$8C,$47,$CD,$55,$DB,$F1,$F8,$11,$11,$9C,$F6,$DF,$B4,$DC,$F3,$98,$F3,$D6,
  40.     $70,$C9,$CE,$31,$34,$C8,$6A,$86,$FD,$FB,$51,$B0,$07,$B4,$9D,$FD,$BA,$EC,$11,$C3,
  41.     $B0,$F9,$30,$E9,$C3,$73,$C8,$61,$0D,$1F,$EA,$16,$C0,$C8,$D0,$46,$2A,$21,$C7,$A0,
  42.     $FC,$B2,$D0,$84,$E8,$8B,$0A,$3C,$82,$28,$69,$46,$FF,$C6,$8E,$F8,$10,$A3,$8F,$A0,
  43.     $1B,$AB,$82,$2C,$ED,$7F,$31,$2C,$30,$C1,$77,$1E,$10,$3B,$B0,$96,$A9,$36,$D2,$CD,
  44.     $1E,$E8,$96,$99,$3B,$5B,$3C,$F9,$BD,$56,$0A,$ED,$8D,$79,$F2,$05,$11,$64,$34,$E2,
  45.     $AF,$13,$69,$24,$2F,$2E,$78,$C7,$16,$EC,$6F,$1E,$7B,$C7,$A4,$6C,$69,$A1,$A1,$B1,
  46.     $65,$E0,$4C,$DE,$37,$5B,$CE,$85,$ED,$36,$2C,$D1,$62,$36,$BB,$2F,$74,$17,$50,$5E,
  47.     $A9,$E5,$C1,$CB,$94,$CA,$E3,$0F,$8D,$10,$D1,$D7,$4C,$24,$9E,$1E,$83,$C5,$02,$90,
  48.     $BC,$92,$39,$DC,$B4,$87,$6F,$E8,$78,$DB,$76,$F1,$AF,$0B,$D8,$02,$C3,$76,$3A,$A7,
  49.     $62,$43,$CE,$54,$A9,$7F,$C2,$70,$76,$58,$B7,$1E,$51,$0D,$74,$9A,$16,$2C,$40,$06,
  50.     $32,$4D,$96,$DB,$FC,$8F,$C2,$D9,$C9,$C1,$D9,$C2,$B5,$14,$B6,$91);
  51. begin
  52.   if EncOrDec = 1 then
  53.     begin
  54.       for i:= 1 to length(Text) do
  55.         begin
  56.           mXOR:= ord(Text[i]) xor Tabla[i-1];
  57.           str(mXOR, AuxmXOR);
  58.           if mType = 1 then sTemp:= sTemp + AuxmXOR + ',';
  59.           if mType = 2 then sTemp:= sTemp + '\x' + inttohex(mXOR);
  60.         end;
  61.       if mType = 1 then Result:= '{' + sTemp + '0};';
  62.       if mType = 2 then Result:= '"' + sTemp + '\x;"';
  63.     end;
  64.  
  65.   if EncOrDec = 2 then
  66.     begin
  67.       if mType = 1 then Text:= copy(Text, 2, length(Text) -4);
  68.       if mType = 2 then Text:= copy(Text, 3, length(Text) -6) + '\';
  69.       Contador:= 0;
  70.       Repeat
  71.         if mType = 1 then
  72.           begin
  73.             Simbolo:= pos(',', Text);
  74.             ArrayTemp:= copy(Text, 1, Simbolo -1);
  75.             Val(ArrayTemp, ArrInt, ArrInt);
  76.           end;
  77.         if mType = 2 then
  78.           begin
  79.             Simbolo:= pos('\', Text);
  80.             ArrayTemp:= copy(Text, 2, Simbolo -2);
  81.             Val('$' + ArrayTemp, ArrInt, ArrInt);
  82.           end;
  83.         mXOR:= ArrInt xor Tabla[Contador];
  84.         Res:= Res + chr(mXOR);
  85.         Delete(Text, 1, Simbolo);
  86.         inc(Contador);
  87.       until text = '';
  88.  
  89.       Result:= Res;
  90.     end;
  91. end;

Saludos

 

¿Te gustó el post? COMPARTILO!



Cifrado Basico [By Expermicid]

Iniciado por Expermicid

Respuestas: 3
Vistas: 3049
Último mensaje Octubre 09, 2012, 05:25:44 pm
por Pr0ph3t