Log in

View Full Version : ahhh short delphi keygen question!!!


ON'error
December 21st, 2001, 11:48
hi,
how can i get the ascii value of a string("r"? in vb6 is the function asc(String) but in delphi 4?

DakienDX
December 21st, 2001, 12:00
Hello ON'error !

Byte := Ord(Char)
String := Chr(Byte)

I hope this helps.

ON'error
December 21st, 2001, 16:51
...
edit3.text:= ord(copy(Name,2,1)) calls an error. ord('r') not.
incompatible types! it should exist a mix between vb n' delphi.
do someone of you have a keygen source in object pascal?:

I just want to add all ascii values of the bytes from a string.

stealthFIGHTER
December 21st, 2001, 19:12
Hello:

1) edit3.text is String
2) ord(copy(Name,2,1)) is Integer
Of course these types are incompatible .

To convert Integer to String you must use IntToStr function.
Type: edit3.text:= IntToStr(ord(copy(Name,2,1)));

sF

ON'error
December 22nd, 2001, 05:29
yes, i forgot to write this in my post, but though if i use inttostr() there comes an error.

ManKind
December 22nd, 2001, 12:29
You can find some Turbo Pascal 7 keygen sources at this site:

http://kickme.to/ManKind2K

Download the archive1 ... Don't flame me, you asked for object pascal and version 7 of Turbo Pascal is very much object orientated )

Delphi is indeed a very powerful compiler )

Regards,
ManKind

stealthFIGHTER
December 22nd, 2001, 18:35
Quote:
Originally posted by ON'error
...
edit3.text:= ord(copy(Name,2,1)) calls an error. ord('r') not.
incompatible types! it should exist a mix between vb n' delphi.
do someone of you have a keygen source in object pascal?:

I just want to add all ascii values of the bytes from a string.



I think you mean this:

var i, CharVal : Integer;
__ SomeString, Result : String;

for i := 1 to length(SomeString) do
begin
__ CharVal := Ord(SomeString[I]);
__ Result := Result + IntToStr(CharVal);
end;
edit1.text := Result;

You can visit my page - I have some tutorials how to make kg (Delphi sources).

Author := 'sF'

ON'error
December 23rd, 2001, 08:49
jup, thanks now ive finished my keygen 4 bengalys 3rd crackme!