Yfryelcz в нете на одного очень известного троя, решил покопать чей он. Чей-то я узнал, а вот пароль не пойму как шифруется. В логе есть такие строчки:

AUTH LOGIN
334 VXNlcm5hbWU6
c2FtYXJ3cQ==
334 UGFzc3dvcmQ6
c2FtYXJ3cQ==
235 Authentication succeeded

Это я так понял логин и пароль. Вопрос как их расшифровать кто знает? Поподробнее если можно.
полный лог прилагается.


4989_26.08.2007_CRACKLAB.rU.tgz - log.rtf

-----
Лень - это подсознательная мудрость

| Сообщение посчитали полезным:

Лог не смотрел, по внешнему виду на base64 похоже. И на общение по мылу (там как раз base64).

| Сообщение посчитали полезным:

если и base64 то какой то необычный я пробовал расшифровать не получилось если знаете как накатайте на С или delphi

-----
Лень - это подсознательная мудрость

| Сообщение посчитали полезным:

Username:
samarwq
Password:
samarwq

hack-shop.org.ru/?page=6&ln=ru

-----
[nice coder and reverser]

| Сообщение посчитали полезным:

function EncodeBase64(Value: String): String;
const
b64alphabet: PChar = 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/';
pad: PChar = '====';

function EncodeChunk(const Chunk: String): String;
var
W: LongWord;
i, n: Byte;
begin
n := Length(Chunk); W := 0;
for i := 0 to n - 1 do
W := W + Ord(Chunk[i + 1]) shl ((2 - i) * 8);
Result := b64alphabet[(W shr 18) and $3f] +
b64alphabet[(W shr 12) and $3f] +
b64alphabet[(W shr 06) and $3f] +
b64alphabet[(W shr 00) and $3f];
if n <> 3 then
Result := Copy(Result, 0, n + 1) + Copy(pad, 0, 3 - n); //add padding when out len isn't 24 bits
end;

begin
Result := '';
while Length(Value) > 0 do
begin
Result := Result + EncodeChunk(Copy(Value, 0, 3));
Delete(Value, 1, 3);
end;
end;


function DecodeBase64(Value: String): String;
const b64alphabet: PChar = 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/';
function DecodeChunk(const Chunk: String): String;
var
W: LongWord;
i: Byte;
begin
W := 0; Result := '';
for i := 1 to 4 do
if Pos(Chunk[i], b64alphabet) <> 0 then
W := W + Word((Pos(Chunk[i], b64alphabet) - 1)) shl ((4 - i) * 6);
for i := 1 to 3 do
Result := Result + Chr(W shr ((3 - i) * 8) and $ff);
end;
begin
Result := '';
if Length(Value) mod 4 <> 0 then Exit;
while Length(Value) > 0 do
begin
Result := Result + DecodeChunk(Copy(Value, 0, 4));
Delete(Value, 1, 4);
end;
end;

и вот еще, сам юзаю
www.koders.com/delphi/fidA8D2B6C791C79040DFF23A04C74667EFE8EDBBF1.aspx?s=base64

| Сообщение посчитали полезным:

База64 тут присутствует, но расшифровать текст письма не получится, можно только расшифровать логин и пароль. Похоже самопал.

| Сообщение посчитали полезным: