KeyGen Src iN Delphi & VB

[GioTiN]

Delphi Source

function gen(name:string) : string;
var
norm1,norm2,added,s1,f,finalserial:string;
i,res:integer;
begin
norm1:='abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890!@#$%^&*()_+=-{}[]/?\|><~. ';
norm2:='CqiHSXMkEVZeRyBKdTAFWljDIPzxpOkgYmtarQnsuUGJLNbcfhowQQQQQQQQQQZZZZZZZZZZZZZZ
ZZZZZZZZZZZZZ';
added:='HLWsCbMErpAQOXWK';for i:=1 to length(name) do
begin
 s1:=copy(name,i,1);
 res:=pos(s1,norm1);
 f:=f+copy(norm2,res,1);
end;if length(f) > 15 then
begin
finalserial:=f;
end
elsefinalserial:=f+copy(added,1,length(added)-length(f));
result:=finalserial;end;

Visual Basic Source

Dim normal, asdf, finalw, i, s, res, f, p, rt, qwfinal
normal = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890!@#$%^&*()_+=-{}[]/?\|><~. "
asdf = "CqiHSXMkEVZeRyBKdTAFWljDIPzxpOkgYmtarQnsuUGJLNbcfhowQQQQQQQQQQZZZZZZZZZZZZZZ
ZZZZZZZZZZZZZ"
finalw = "HLWsCbMErpAQOXWK"
If Text1.Text <> "" Then
For i = 1 To Len(Text1.Text)
s = Mid(Text1.Text, i, 1)
res = InStrRev(normal, s, Len(normal))
f = f + Mid(asdf, res, 1)
Next iIf Len(f) > 15 Then
qwfinal = f
Else
qwfinal = f + Mid(finalw, 1, Len(finalw) - Len(f))
End IfText2.Text = qwfinal
Else
Text2.Text = "Enter A Name For Generate Key"End If

King Regards , GioTiN // Under SEH Team

Edited December 15, 2008 by Teddy Rogers
Please do not be so blatant about the title, thanks...

[zart]

Delphi Source

function gen(name:string) : string;
var
norm1,norm2,added,s1,f,finalserial:string;
i,res:integer;
begin
norm1:='abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890!@#$%^&*()_+=-{}[]/?\|><~. ';
norm2:='CqiHSXMkEVZeRyBKdTAFWljDIPzxpOkgYmtarQnsuUGJLNbcfhowQQQQQQQQQQZZZZZZZZZZZZZZ
ZZZZZZZZZZZZZ';
added:='HLWsCbMErpAQOXWK';for i:=1 to length(name) do
begin
 s1:=copy(name,i,1);
 res:=pos(s1,norm1);
 f:=f+copy(norm2,res,1);
end;if length(f) > 15 then
begin
finalserial:=f;
end
elsefinalserial:=f+copy(added,1,length(added)-length(f));
result:=finalserial;end;

Visual Basic Source

Dim normal, asdf, finalw, i, s, res, f, p, rt, qwfinal
normal = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890!@#$%^&*()_+=-{}[]/?\|><~. "
asdf = "CqiHSXMkEVZeRyBKdTAFWljDIPzxpOkgYmtarQnsuUGJLNbcfhowQQQQQQQQQQZZZZZZZZZZZZZZ
ZZZZZZZZZZZZZ"
finalw = "HLWsCbMErpAQOXWK"
If Text1.Text <> "" Then
For i = 1 To Len(Text1.Text)
s = Mid(Text1.Text, i, 1)
res = InStrRev(normal, s, Len(normal))
f = f + Mid(asdf, res, 1)
Next iIf Len(f) > 15 Then
qwfinal = f
Else
qwfinal = f + Mid(finalw, 1, Len(finalw) - Len(f))
End IfText2.Text = qwfinal
Else
Text2.Text = "Enter A Name For Generate Key"End If

King Regards , GioTiN // Under SEH Team

Just wondering... Did you do this yourself? Any sources used? Source code is nice - but sometimes it is better to explain how you analyzed the program... Sort of like how it was here http://www.51pojie.com/article.asp?N_ID=272 on Release Time: 2008-6-10 23:22:16....