EliteHackers
SALUT 2022!!
NE-AM MUTAT PE DISCORD !
Vrei să inviți un prieten?
[T]eoria [H]aosului [C]ontrolat - https://discord.com/invite/U4HBCHzm7r
Acesta aste link-ul oficial al acestui server.
|
Lista Forumurilor Pe Tematici
|
EliteHackers | Reguli | Inregistrare | Login
POZE ELITEHACKERS
Nu sunteti logat.
|
Nou pe simpatie:
GeorgianaIoana
 | Femeie
25 ani
Bucuresti
cauta Barbat
25 - 63 ani |
|
gigi_haios
EliteHackers Platinum
 Inregistrat: acum 17 ani
Postari: 60
|
|
Cine are un cod sursa pt un algoritm de cryptare ...??? =D =D =D
Modificat de gigi_haios (acum 17 ani)
_______________________________________
.::| Do not learn2hack, Learn2troll |::.
|
|
| pus acum 17 ani |
|
|
arcyh
EliteHackers Member
Inregistrat: acum 17 ani
Postari: 13
|
|
|
| pus acum 17 ani |
|
|
AntiKiler
Moderator
Inregistrat: acum 17 ani
Postari: 239
|
|
am vazut pe un sit da nu mai stiu sigur pe kare sa ma mai uit
|
|
| pus acum 17 ani |
|
Ad_Infinitum
Moderator
 Inregistrat: acum 17 ani
Postari: 84
|
|
{*******************************************************}
{ }
{ RC4 encryption unit }
{ October 2006, Codius }
{ Thanks to Michael Puff, shapeless }
{ }
{*******************************************************}
unit unRC4;
interface
type
PByteArray = ^TByteArray;
TByteArray = Array [0..32767] Of Byte;
TRC4 = class
private
D : array[Byte] of Byte;
I,J : Byte;
procedure Init(const Key: string);
procedure Done;
procedure Code(Source, Dest: pChar; Count: Integer);
public
function Encrypt(S: pChar; const Password: string): AnsiString;
function Decrypt(S: pChar; const Password: string): AnsiString;
end;
implementation
{ TRC4.Encrypt
This function will return the text(S) encrypted with the chosen password. }
function TRC4.Encrypt(S: pChar; const Password: string): AnsiString;
begin
SetLength(Result, Length(S));
Init(Password);
Code(pChar(S), pChar(Result), Length(S));
Done;
end;
{ TRC4.Decrypt
This function will return the text(S) decrypted with the chosen password. }
function TRC4.Decrypt(S: pChar; const Password: string): AnsiString;
begin
SetLength(Result, Length(S));
Init(Password);
Code(pChar(S), pChar(Result), Length(S));
Done;
end;
{ TRC4.Init
This routine will prepare the encryption/decryption. }
procedure TRC4.Init(const Key: string);
var
R, S, T, K : Byte;
U,L : Integer;
DummyArray : array [0..1599] of Char;
begin
{$R-}
{$Q-}
L := Length(Key);
I := 0;
J := 0;
R := 0;
U := 0;
for S := 0 to 255 do
D := S;
for S := 0 to 255 do
begin
if (U < L) then
K := PByteArray(Key)
else
K := 0;
Inc(U);
if (U >= L) then
U := 0;
Inc(R, D + K);
T := D;
D := D[R];
D[R] := T;
end;
Code(@DummyArray, @DummyArray, 1600);
end;
{ TRC4.Done
This routine will clean the variables used when encrypting/decrypting. }
procedure TRC4.Done;
begin
FillChar(D, sizeOf(D), 0);
FillChar(I, sizeOf(I), 0);
FillChar(J, sizeOf(J), 0);
end;
{ TRC4.Code
This routine will encrypt the text. }
procedure TRC4.Code(Source, Dest: pChar; Count: Integer);
var
S : Integer;
T : Byte;
begin
for S := 0 to (Count - 1) do
begin
Inc(I);
T := D;
Inc(J, T);
D := D[J];
D[J] := T;
Inc(T, D);
Byte(Dest) := Byte(Source) xor D[T];
end;
end;
end.
nuj daca-i bun de ceva  
_______________________________________
Vizitati pentru mai multe tutoriale   )
|
|
| pus acum 17 ani |
|
kooze
Moderator
 Inregistrat: acum 17 ani
Postari: 57
|
|
a trecut ceva timp......la compilat careva sa nu instalez C degeaba
|
|
| pus acum 15 ani |
|
|
diabllo
EliteHackers Member
Inregistrat: acum 14 ani
Postari: 11
|
|
Are cateva erorii logice . Se compileaza cu succes !
|
|
| pus acum 14 ani |
|
r3v
Moderator
 Inregistrat: acum 14 ani
Postari: 1158
|
|
diabllo a scris:
Are cateva erorii logice . Se compileaza cu succes ! |
ce limbaje de programare faci la facultate?
app ce eraori logice apar? ce compilator folosesti?
_______________________________________
http://thieves-team.com
r3vyk.info
mess id: doar prin PM datorita faptului ca mi-au dat add 10000 de retardati care joaca metin
|
|
| pus acum 14 ani |
|