Ruroken
2007-03-18 15:58:55
Well, Im writing a pay script right now and I need to learn how to write auth systems and encrypt scripts. I also need to learn how to get variables from a web page.
Any help is appreciated.
Any help is appreciated.
2007-03-18 15:58:55
2007-03-18 16:09:18
2007-03-18 16:19:22
2007-03-18 16:32:46
2007-03-18 17:02:06
2007-03-18 18:01:31
From: Avaphi
Go here fool : http://www.moparisthebest.com/smf/index.php/topic,74862.0.html
2007-03-18 18:05:26
AddPostVariable
InitializeHTTPClient
ClearPostData
PostHTTPPageEx
FreeHTTPClient2007-03-18 18:23:06
2007-03-18 18:24:41
var hax : string
begin
hax:= Chr(15)
writeln('Char: ' + hax)
end.
program auth;
var
password : string;
var
shot : string;
begin
password:= 's';
shot:= Chr(19);
if password = shot then
begin
writeln('accept ' + shot)
end else
begin
writeln('denied ' + shot)
end;
end.
program New;
var password,hax : string;
begin
password:= '';
hax:= chr(15)
if hax = password then
begin
writeln('accept')
exit;
end else
begin
writeln('denied')
terminatescript;
end;
end.
2007-03-18 18:39:19
From: JuKKa
what im asking for is a kind of authorizie (how do u spell that) method..
how to store a CHR example:
var hax : string
begin
hax:= Chr(15)
writeln('Char: ' + hax)
end.
now hax should return as: "o",
but it wont instead it returns as a square (cant copypaste it here).
program auth;
var
password : string;
var
shot : string;
begin
password:= 's';
shot:= Chr(19);
if password = shot then
begin
writeln('accept ' + shot)
end else
begin
writeln('denied ' + shot)
end;
end.
thats my code wont work :( FIX pl0x :(
how do i do this?
2007-03-18 18:48:53
2007-03-18 18:56:05
program New;
var password : string;
function auth(hax : string) : boolean;
begin
password:= '';
if hax = password then
begin
writeln('accept')
result:= true;
exit;
end else
begin
writeln('denied')
result:= false;
end;
end;
begin
auth('')
end.2007-03-18 18:57:50
2007-03-18 19:00:57
2007-03-19 00:24:40
2007-03-19 03:03:34
if (hax = password) thenif (true) then2007-03-19 03:39:39
From: danrox2004
couldnt you just changeif (hax = password) then
toif (true) then
?
2007-03-19 07:50:33
2007-03-19 11:05:59
2007-03-19 12:20:41
From: Starblaster100
Try cracking my Script then.
- Half of the auth is in a plugin, half is in the script.
- Half of the authorization connects to the web, half checks in the script internally.
- Strings are encrypted with my 2 line encryption procedure, and decrypted with my 2 line decryption procedure.
- Obfuscated script, and encrypted.
- Harsh consequences if the script realizes you are cracking it (And yes, it can realize you are cracking it)
Strings are converted like so:
[php]
Normal String:
Starblaster100
Encrypted Strings:(There are endless possibilities to what it can be encrypted to)
î(0^m˜°ç)aM{¬
ï)1_n™±è*bN|*
8$޾\&鵟=
etc…
[/php]
Thank you.
2007-03-19 12:24:10
2007-03-19 14:58:13
2007-03-20 03:43:30
From: Starblaster100
Try cracking my Script then.
- Half of the auth is in a plugin, half is in the script.
- Half of the authorization connects to the web, half checks in the script internally.
- Strings are encrypted with my 2 line encryption procedure, and decrypted with my 2 line decryption procedure.
- Obfuscated script, and encrypted.
- Harsh consequences if the script realizes you are cracking it (And yes, it can realize you are cracking it)
Strings are converted like so:
[php]
Normal String:
Starblaster100
Encrypted Strings:(There are endless possibilities to what it can be encrypted to)
î(0^m˜°ç)aM{¬
ï)1_n™±è*bN|*
8$޾\&鵟=
etc…
[/php]
Thank you.
2007-03-20 14:47:45
From: Ruroken
Hey Star,
Teach me how to do that please :p ?
2007-03-20 14:50:25
From: Starblaster100
soon dude, soon… ;)
2007-03-22 07:45:41


2007-05-28 05:01:05
From: Dark_Sniper
encryption = change all vars to be long and un readable.. and make things arrayed and stuff.. and put all on one line XD.. thats the easy way :)
2007-05-28 05:11:15
From: JuKKa
check my edit lines there u have it SOLVE this password then:
ATTACHED—>
tell me .. CRACK that password and ill give u a kiss..
its really a password if u cant crack it i will give u the password + a kiss and a method to solve it :P
program New;
procedure writeit;
var
password: string;
I: integer;
begin
password:= '';
for I := 1 to length(password) do
writeLn(inttostr(getkeycode(password[i])))
end;
begin
writeit;
end.program New;
procedure writeit;
var
password: string;
I: integer;
a: byte;
begin
password:= '';
for I := 1 to length(password) do
begin
a := getkeycode(password[I]);
KeyDown(a);
wait(50);
KeyUp(a);
end;
end;
begin
writeit;
end.
2007-06-01 17:55:02
From: Ruroken
Hey now, no need for calling anyone a fool.
I don't go to Mopars place much / at all.
I didn't knows they had tuts on auths…
2007-06-01 20:21:31
Program Encrypt;
Var a:String;
begin
a:= GetPage('lolololol.com');
b:= Copy(a, FIRSTCHACTERSETNUMBER, SECONDCHARSETNUM);
2007-06-02 13:17:20
From: Dark_Sniper
jukka ill make a new one for ya and you have to solve it.
mkay :p
heres a very good way to mess up noobs with auth…
i mean i might loose some pros.(not likly)
but its very well protected for those who sell to noobs :p
attached…