mahrokh_1121
دوشنبه 12 مهر 1389, 17:02 عصر
با سلام
من میخوام با تابع random یه عدد تصادفی ایجاد کنم،که البته ورودی تابع رو خودم دستی وارد کنم، این تابع برای چک پسورد هست باید به ازائ ورودی abcd مقدار (از چپ به راست) مقدار متغیر ها
j=55 58 33 23
s=2 5 g w
result= v v #5 6
این تابع با دلفی نوشته شده ، کسی میتونه اینو تبدیل به C# کنه
function GetPasswd(InitVal : string) : string;
var
i, j : integer;
S : string;
begin
RandSeed := 87456;
S := '';
for i := 1 to length(InitVal) do begin
j := random(26*2+10) + 1;
case j of
1..26 : S := S + char(ord('A') + (j - 1));
27..52 : S := S + char(ord('a') + (j - 27));
53..62 : S := S + char(ord('0') + (j - 53));
end;
end;
Result := '';
for i := 1 to length(InitVal) do
Result := Result + char(ord(InitVal[i]) xor ord(S[i]));
end;
من میخوام با تابع random یه عدد تصادفی ایجاد کنم،که البته ورودی تابع رو خودم دستی وارد کنم، این تابع برای چک پسورد هست باید به ازائ ورودی abcd مقدار (از چپ به راست) مقدار متغیر ها
j=55 58 33 23
s=2 5 g w
result= v v #5 6
این تابع با دلفی نوشته شده ، کسی میتونه اینو تبدیل به C# کنه
function GetPasswd(InitVal : string) : string;
var
i, j : integer;
S : string;
begin
RandSeed := 87456;
S := '';
for i := 1 to length(InitVal) do begin
j := random(26*2+10) + 1;
case j of
1..26 : S := S + char(ord('A') + (j - 1));
27..52 : S := S + char(ord('a') + (j - 27));
53..62 : S := S + char(ord('0') + (j - 53));
end;
end;
Result := '';
for i := 1 to length(InitVal) do
Result := Result + char(ord(InitVal[i]) xor ord(S[i]));
end;