Om Swastiastu,
Ok, Rekan-rekan sekalian kali ini saya akan menampilkan trick menjebol bios dengan Turbo Pascal. Terkadang bios di isikan password agar tidak sembarang orang bisa menyetingnya. Umum orang-orang yang cukup kehabisan akal akan mencabut baterai pada cpu, namun kali ini hanya dengan pascal anda  bisa. Ingat ini hanya untuk pembelajaran! bukan murni untuk Hacking

Berikut Sour...

Continue reading ...

OM SWASTIASTU, Punapi gatra? he...
baik rekan-rekan sekalian kali ini saya akan memberikan source code pascal yang dapat mendeteksi berapa jumlah huruf hidup, hurup mati serta angka, namun tanpa membaca spasi yang ada. dengan output sebagai berikut:




ini source codenya :


program carihurufhidupmatidanangka;
uses crt;
var b,k,i,j, angka:integer;
n:char;
begin
CLRSCR;
writeln('ANGKA, HURUF MATI DAN HURUF HIDUP DETECTOR');
WRITE('MASUKKAN KATA ATAU KALIMAT YANG DI AKHIRI TITIK(.) : ');
b:=0;
k:=0;
repeat
read(n...
Continue reading ...

Mungkin sebelumnya saya memosting Asscii viewer yang berguna untuk menampilkan hasil dari kode asscii ke charakter, nah rekan-rekan dapat mengonvert dari asscii ke charakter atau sebaliknnya. berikut source kode pada pascal:


PROGRAM ASSCIICHAR;
USES crt;
var i,j: char;
k : integer;
label akhir;
begin
clrscr;
repeat;
writeln;
writeln;
writeln;
writeln('1. ascii to char');
writeln('2. char to ascii');
write('input pilihan, ' + chr(39) + 'Q' + chr(39) +' untuk keluar : ');
j := readkey ;
j := upcase(j);
if j = '...
Continue reading ...

Berikut ini adalah sebuah contoh kode pada pascal yang dapat menampilakan kode asscii dari 1 sampai 225 sejumlah tipe data string.

program assciiViewer;
USES CRT;
var i,n:integer;
begin
CLRSCR;
for i := 1 to 255 do
begin
IF  I < 255 THEN
write(i,' : ',char(i), ', ')
ELSE
write(i,' : ',char(i));
READKEY;
end;
end.

setelah itu anda harus menekan enter untuk kode selanjunya. Dengan Output sebagai berikut:


Continue reading ...

Berikut merupakan sebuah contoh program pada pascal yang menggunakan perulangan :
program anak_ayam;
uses crt;
var n:integer;
begin
write('Masukkan Jumlah Ayam');
readln(n);
writeln('lagu anak ayam:');

if n > 1 then
repeat
writeln('anak ayam turunlah ',n);
writeln('mati satu tinggalah ',n-1);
n:=n-1;
until (n=1);
writeln('anak ayam turunlah 1');
writeln('mati satu tinggalah induknya');
readkey;
end.


ketika program tersebut di run pada pascal maka anda harus mengimput angka, misalkan 7 maka akan terlihat output...
Continue reading ...