⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 ssdisk.pas

📁 破解很多程序的序列号算法程序
💻 PAS
字号:
Program dltypeskeygenZ ;
uses crt ;
var user,user2 : string ;
    i : integer ;
    ser,tampung : longint ;
begin
  clrscr ;
  writeln('Super sensitive Disk-Scanner 98 2.x Key Generator by flag eRRatum - [eKH]') ;
  writeln('Homepage at http://all.at/ekh') ;
  write('Please Enter your Name : ') ;
  readln(user) ;
  for i:=1 to length(user) do
    user[i]:=upcase(user[i]) ;
  for i:=1 to length(user) do
  delete(user,pos(' ',user),1) ;
  ser:=$8c2 ;
  for i:=1 to length(user) do
    begin
    tampung:=(ord(user[i]))*i ;
    ser:=ser+tampung ;
    end ;
  write('This is Your Number : ',ser) ;
  textcolor(LIGHTRED) ;
  writeln ;
  write('Visit our page for more cracks/serial/keygens !') ;
  end.

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -