حساب مفتاح ccp

[onexite]

قمت ببرمجة دالة تقوم بحساب مفتاح ccp
طريقة الحساب
من اليمين إلى السيار(نبدأ الضرب من رقم 4 فما فوق) وانا قمت بالعملية العكسية لان الحساب فيه 10 ارقام
والناتج هو العشرات

PHP كود :

function CleCcp(Str: string): Word;
var
  i: 1..10;
begin
  for i := 1 to 10 do
    if Length(Str) <> 10 then
      Str := '0' + Str;
  Result := 0;
  for i := 1 to Length(Str) do
    Result := Result + strtoint(Str[i]) * (14 - i);

  Result := Result mod 100;
end; 


[onexite]

PHP كود :

function CleCcp(Str: string): Word;
var
  i: 1..10;
begin
  str := Format('%.*d',[10, strtoint(Str)]);
  Result := 0;
  for i := 1 to 10 do  //  Length(Str)
    Result := Result + strtoint(Str[i]) * (14 - i);

  Result := Result mod 100;
end; 


بعض التعديلات
الاول صحيح لاكن عندما يكون عدد الحروف يساوي 10 لا يخرج من الحلقة
والحل السهل استخدام format
او اضافة Break عند تحقق الشرط
 

PHP كود :

for i := 1 to 10 do
    if Length(Str) <> 10 then
      Str := '0' + Str
    else
      Break; 


---

---

ولحساب Rip يمكن استخدام هذه الفنكسيون

PHP كود :

function CleCcpRip(Str: string): Word;
begin
  result := 97 - ((((StrToInt(Str) mod 97) * 3 mod 97) + 85) mod 97);
end; 


[Agmcz]

السلام عليكم
بداية الحساب من الأخير و الضرب في 4 تصاعديا دون مراعات طول المفتاح

PHP كود :

function CleCCP(const CCP: string): Integer;
var
  L,I: Integer;
begin
  Result := 0;
  I := 4;
  for L := Length(CCP) downto 1 do
  begin
    Result := Result + StrToInt(CCP[L]) * I;
    Inc(I)
  end;
  Result := Result mod 100;
end; 


[bouh25]

هل من الممكن اخي onexite وضع الكود كامل لو سمحتم حتى نتمكن من التتابعة

[onexite]

هل من الممكن اخي onexite وضع الكود كامل لو سمحتم حتى نتمكن من التتابعة

PHP كود :

program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils;

function CleCCP(const CCP: string): Integer;
var
  I: Byte;
begin
  Result := 0;
  for I := Length(CCP) downto 1 do
    Result := Result + StrToInt(CCP[I]) * (Length(CCP) - I + 4);
  Result := Result mod 100;
end;

var
  CCP: string;

begin
  try
  repeat
    Readln(CCP);
    Writeln('**********************************');
    Writeln(CleCCP(CCP));
  // Readln;
  until False;
    { TODO -oUser -cConsole Main : Insert code here }
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end. 


[onexite]

السلام عليكم
بداية الحساب من الأخير و الضرب في 4 تصاعديا دون مراعات طول المفتاح

PHP كود :

function CleCCP(const CCP: string): Integer;
var
  L,I: Integer;
begin
  Result := 0;
  I := 4;
  for L := Length(CCP) downto 1 do
  begin
    Result := Result + StrToInt(CCP[L]) * I;
    Inc(I)
  end;
  Result := Result mod 100;
end; 


يمكن الاستغناء عن متغير I
بهذه الطريقة

PHP كود :

function CleCCP(const CCP: string): Integer;
var
  I: Byte;
begin
  Result := 0;
  for I := Length(CCP) downto 1 do
    Result := Result + StrToInt(CCP[I]) * (Length(CCP) - I + 4);
  Result := Result mod 100;
end; 


[larbiparadox]

في حالة المفتاح يكون رقم واحد يضيف له صفر  ، مثال النتيجة المفتاح 1  يردها 01

PHP كود :

function CleCCP(const CCP: string): string;
var
  I: Byte;
begin
  Result := '0';
  for I := Length(CCP) downto 1 do
    Result := IntToStr( StrToInt(Result) + StrToInt(CCP[I]) * (Length(CCP) - I + 4) );
  Result := IntToStr( StrToInt(Result) mod 100 );

   if Length(Result) = 1 then  Result :=  '0'+  Result;
   
end; 


لاستدعاء

PHP كود :

Edit2.Text :=  CleCCP(Edit1.Text) ; 


[sofiane201]

النتيجة غير صحيحة عندي, ربما لم أفهم الدالة.

[larbiparadox]

النتيجة غير صحيحة عندي, ربما لم أفهم الدالة.

[sofiane201]

هذا ما اتبعته, لكن النتيجة غير صحيحة.