Should I move to .Net?

hey can anyone convert this?

Delphi to Visual basic please

here is the delphi coding

Code:

---

unit Enc;

interface
uses Types;

Function MixKey(user,buff:integer):boolean;
  Function CreateKey(val:dword;user:integer):boolean;
  Function PSOEnc(s:string;user,buff:integer):string;

implementation

uses main;

Function MixKey(user,buff:integer):boolean;
var esi,edi,eax,ebp,edx:dword;
begin
    edi:=1;
    edx:=$18;
    Eax:=edi;
    while edx > 0 do begin
        esi:=player[user].key[buff][eax + $1f];
        ebp:=player[user].key[buff][eax];
        ebp:=ebp-esi;
        player[user].key[buff][eax]:=ebp;
        inc(eax);
        dec(edx);
    end;
    edi:=$19;
    edx:=$1f;
    Eax:=edi;
    while edx > 0 do begin
        esi:=player[user].key[buff][eax - $18];
        ebp:=player[user].key[buff][eax];
        ebp:=ebp-esi;
        player[user].key[buff][eax]:=ebp;
        inc(eax);
        dec(edx);
    end;
    result:=true;
end;

Function CreateKey(val:dword;user:integer):boolean;
var esi,ebx,edi,eax,ebp,edx,x:dword;
    key:array [0..60] of dword;
begin
    esi:=1;
    ebx:=val;
    edi:=$15;
    key[56]:=ebx;
    key[55]:=ebx;
    while edi <= $46e do begin
        eax:=edi;
        ebp:=$37;
        x:=eax div ebp;
        edx:=eax-(x * ebp);
        ebx:=ebx-esi;
        edi:=edi+$15;
        key[edx]:=esi;
        esi:=ebx;
        ebx:=key[edx];
    end;
    for x:=0 to 59 do
        player[user].key[0][x]:=key[x];
    MixKey(user,0);
    MixKey(user,0);
    MixKey(user,0);
    MixKey(user,0);
    for x:=0 to 59 do
        player[user].key[1][x]:=player[user].key[0][x];
    result:=true;
end;

Function PSOEnc(s:string;user,buff:integer):string;
var x,y,z,u:integer;
    l:dword;
    re:string;
begin
    if buff = 0 then x:=player[user].KeyPos
    else x:=player[user].RecKeyPos;
    //if x = 1 then MixKey(user,buff);
    y:=length(s) div 4;
    if (y * 4) <> length(s) then y:=y+1;
    re:='';
    u:=1;
    for z:=0 to y-1 do begin
        if x = 1 then MixKey(user,buff);
        l:=dword(s[(z*4)+1]);
        if (u+1) <= length(s) then l:=l+(dword(s[(z*4)+2])*256);
        if (u+2) <= length(s) then l:=l+(dword(s[(z*4)+3])*$10000);
        if (u+3) <= length(s) then l:=l+(dword(s[(z*4)+4])*$1000000);
        l:=l xor player[user].key[buff][x];
        re:=re+chr(l);
        if (u+1) <= length(s) then re:=re+chr(l div 256);
        if (u+2) <= length(s) then re:=re+chr(l div $10000);
        if (u+3) <= length(s) then re:=re+chr(l div $1000000);
        u:=u+4;
        inc(x);
        if x = 56 then x:=1;
    end;
    if buff = 0 then player[user].KeyPos:=x
    else player[user].RecKeyPos:=x;
    result:=re;
end;

end.

---

thx alot :D

Sure let me get right to it :rolleyes:

My company uses Visual basic all the times. Reason becuase it is more reliable and quicker to develope. in todays market we need to develope applications quickly to remain in the game. They need to be reliable and solid.

C++ is a good language but can take 100 times longer to create applications. Debugging is a long and neverending process and although its good for not graphical elements it really suffers when we need an interface. Reason is because we dont have time to develope the application and the six million lines of code to create a useable interface.

VB does most things C++ can do in much less time :D :D

sorry.

Does any one think that they can beate the record for the most POSTES or VIEWS on one one forum?without doing one-word postes thing.

Or do you think this issue is about over?

TALK ABOUT EVERY THING form what Microsoft has to come to what the best language is to what the worst language is to the first non-binary computer language.

Lets see what we this will do?:bigyello:

Quote:

---

Originally posted by rotcrules
Does any one think that they can beate the record for the most POSTES or VIEWS on one one forum?without doing one-word postes thing.

Or do you think this issue is about over?

TALK ABOUT EVERY THING form what Microsoft has to come to what the best language is to what the worst language is to the first non-binary computer language.

Lets see what we this will do?:bigyello:

---

How about no no no

Quote:

---

Originally posted by Maven
But what your talking about is very trival in programming. You can do the same exact thing for example with Perl or any other language under the sun. However as your company grows, those applications will start to recieve stress and thats when you'll see even trival programs break.

---

Then it wasn't written right. Or you switch technologies at that point. The fact is the "power" of VB comes in the RAD capabilites. That's one of the prime reasons we use it here - for an enterprise system, used at a doezen locations around the US by hundreds of people - The previous version used Access (yuck!). When it out grew that, it was time to look to new(er) technology and Vb6 (which just came out) was it. Eventualy, I hope that we can move to .NET here too. Yes, it's probably true we could have done it in Perl or even Java had we been inclinded to do so, neither of those choices made sence. It's all about using the right tool for the right job. You could use a wrnch to kill a fly, by why would you?

Quote:

---

Originally posted by Maven
You think you can do anything with visual basic, why not a HTTP server? Sure you could create one in just a few hours in visual basic. However how useful is it? It could handle a little bit of traffic but what happens when it increases? The answer is sipmle, the server stops responding.

---

Again, that's why you use the right tool for the right job. I can't begin to tell you how uncomfortable I become whenever I see a thread in the Games section on this forum.... it means some one is using VB for something it wasn't ever intended to be used for.

Quote:

---

Originally posted by Maven
Do you think a site like yahoo could run a visual basic search engine? Their stie would stop responding instantly. How about a audio codec or video codec. Do you honestly think visual basic could accomplish this? Would visual basic be good for a firewall or antivirus? errr no... How about 3d modling like 3dmax or autocad? I could sit here all day long and type **** that visual basic cannot do and even if you could do it, it would be useless in the commerical enviroment. If I have it all wrong then you should have no problems coming up with links to sucessful commercial apps written in visual basic.

---

Define Commercial -- you mean something I can run down to Wal-Mart and buy off the shelf? OR any software written in VB that is sold? http://www.ensite.com

Quote:

---

Originally posted by Maven
C++ scares away most people because unlike visual basic you actually have to aquire disipline in programming before you are able to do anything with it. It really takes years to get confident with C++ because there is so many concepts you have to learn. You could spend 6 months just learning about data structures in C++. I mean your going to be programming c++ a long time before you will ever see a windows program because there is so much to learn with just the langauge itself without all the visual stuff. Then when you do move to windows, you wont start out with point and clicking... In fact when I started learning MFC, I had to create my own damn text box and command button just for my simple hello world. Not that the textbox control or command button control doesn't exist in C++, it's just if you really want to know what the heck is going on you have to do it the hard way till you know. In visual basic, you have no concept of messages, device context, or even serialization because visual basic hides that from you.

---

You won't get any arguements from me on the strictness of C/C++ - it's one of the things I look forward to with .NET. But I wouldn't blame the lack of discipline comes not form the language, but rather from the developer themselves (apathy, lack of knowledge) and in some cases an instructor. Of all the programming teachers I've had onle ONE stressed the importance of the discipline. But don't fault the language for it. The language is an enabler of bad habbits, but it's not the reason for it. With good habits and good skills, it shouldn't matter how crappy a language is.

Maybe it's just me, but it seems pretty weak to blame a language about it's weaknesses - after all with a gun, I *could* shoot someone but doesn't mean I *should*.

TG