[VB] Program Stok Barang Sederhana

Crowja-Coderz

Kopas source code nya yuuk...

[Pascal] Membuat Dokumen Teks Dengan Pascal

Kode sederhana ini berfungsi untuk membuat data teks,mengedit data teks,menghapus data teks dan melihat keseluruhan data teks yang sudah dimasukkan dalam program ini.

Program Data_Mata_Kuliah;
Uses Crt ;
Const

garis1 = '--------------------------------------------------------------------------------';
garis2 = '===================================================================';
garsed1= '--------------------------------------------------------------------';
garsed2= '====================================================================';
gar2 = '====================================';
gar1 = '------------------------------------';
gar3 = '==========================';

Type
cod = Record
{type utk code}
Kuliah : word;
Matkul : String[20];
Dino : string[20];
Dos : string[20];
Sks : string[20];
Ruang : string[20];
Mahasiswa : real ;
Mercu : real ;
{type utk Siswa}
Nama : String[20];
End;

Var
Filecod : File of cod;
Data : cod;
Pil,Ul : Char;
x,y,i : integer;

Procedure Menu;
Begin
Clrscr;
Textcolor(10);
Writeln('================================================================================');
Textcolor(23);
Writeln('#####################  SUGENG RAWUH INGKANG DATA MATA KULIAH  ##################');
Textcolor(10);
Writeln('================================================================================');
Textcolor(white);
Textcolor(5);
x:=10; y:=6;
Gotoxy(x,y);write('PILIH SALAH SIJI');
Gotoxy(x,y+1);write('1. TAMBAH DATA');
Gotoxy(x,y+2);Write('2. EDIT DATA');
Gotoxy(x,y+3);Write('3. HAPUS DATA ');
Gotoxy(x,y+4);Write('4. TAMPILAN DATA');
{ Gotoxy(x,y+5);Write('4. DAFTAR MAHASISWA');
Gotoxy(x,y+6);Write('5. PENGAMBILAN MATKUL');}
Gotoxy(x,y+5);Write('5. MEDAL');
Gotoxy(10,y+7);Write('Pilih nomer 1 sampai 5>> ');Pil:=Readkey
End;

Procedure BukaFile;
Begin
Assign(Filecod,'cod.txt');
{$I-};
Reset(Filecod);
{$I+};
End;

Procedure Tambah;
Var
Lagi: Char;
Ada : Boolean;
i : Integer;
NOCR: Word;

Begin
Ul :='Y';
Lagi:='Y';
Clrscr;
BukaFile;
If IOResult<>0 Then
Rewrite(Filecod);
Repeat
Clrscr;
Textcolor(8);
Ada:=False;
i:=0;
x:=45;y:=1;
Gotoxy(x+4,y);Write('TAMBAH DATA MAHASISWA ');
Gotoxy(x+0,y+1);Write('-----------------------------');
Gotoxy(x,y+2);Write('Code           : ');Readln(NOCR);
While (Ada=False) And (i<>Filesize(Filecod)) Do
Begin
Seek(Filecod,i);
Read(Filecod,Data);
If Data.Kuliah=NOCR Then
Ada:=True
Else
Inc(i);
End;
If (Ada=True) Then
Begin

Gotoxy(x-5,y+7);Write('Code ",NOCR," Niki sampun wonten!');
End
Else
Begin
Seek(Filecod,Filesize(Filecod));
Data.Kuliah:=NOCR;
Gotoxy(X,y+3);Write('Mata kuliah    : ');Readln(Data.Matkul);
Gotoxy(X,y+4);Write('Dino kuliah    : ');Readln(Data.Dino);
Gotoxy(X,y+5);Write('Dosen          : ');Readln(Data.Dos);
Gotoxy(X,y+6);Write('SKS            : ');Readln(Data.Sks);
Gotoxy(x,y+7);Write('Ruang          : ');Readln(Data.Ruang);
{Gotoxy(X,y+8);write('Telat Pengembalian code : ');Readln(data.mahasiswa);
data.Stmik :=data.mahasiswa*500;}
Write(Filecod,Data);
End;
Textcolor(23);
Gotoxy(x-5,y+8);Write('Tambah data male nopo mboten..?? :: Y/T:: ');Lagi:=Upcase(Readkey);
Until Lagi<>'Y';
Close(Filecod);
End;

Procedure Edit;
Var
Lagi : Char;
Ada : Boolean;
i : Integer;
NOCR: Word;

Begin
Ul :='Y';
Lagi:='Y';
Clrscr;
Textcolor(21);
BukaFile;
If IOResult<>0 Then
Write('Data isih Kosong...!')
Else
Begin
Repeat
Clrscr;
Textcolor(21);
Ada:=False;
i:=0;
x:=28;y:=2;
Gotoxy(x+2,y);Write('------------------');
Gotoxy(x+2,y+1);Write(' EDIT DATA KULIAH');
Gotoxy(x+2,y+2);Write('------------------');
Gotoxy(x+5,y+3);Write('Code : ');Readln(NOCR);
While (Ada=False) And (i<>Filesize(Filecod)) Do
Begin
Seek(Filecod,i);
Read(Filecod,Data);
If Data.Kuliah=NOCR Then
Begin
Textcolor(10);
Ada:=True;
x:=5;y:=15;
gotoxy(X,y+1);write('------------------------------------------------------------------------');
gotoxy(X+0,y+2);write('DATA SING ONO                 <<==>>       DATA EDITAN');
gotoxy(x+0,y+3);write('------------------------------------------------------------------------');
Gotoxy(X,y+4);Write('Mata kuliah    : ');writeln(Data.matkul);
Gotoxy(X,y+5);Write('Dino kuliah    : ');writeln(Data.dino);
Gotoxy(X,y+6);Write('Dosen          : ');writeln(Data.dos);
Gotoxy(X,y+7);Write('SKS            : ');writeln(Data.sks);
Gotoxy(X,y+8);Write('Ruang          : ');writeln(data.Ruang);
End
Else
Inc(i);
End;
If (Ada=True) Then
Begin
Textcolor(10);
Data.Kuliah:=NOCR;
x:=48;y:=15;
Gotoxy(X,y+4);Write('Mata kuliah    : ');readln(Data.matkul);
Gotoxy(X,y+5);Write('Dino kuliah    : ');readln(Data.dino);
Gotoxy(X,y+6);Write('Dosen          : ');readln(Data.dos);
Gotoxy(X,y+7);Write('SKS            : ');readln(Data.sks);
Gotoxy(X,y+8);Write('Ruang          : ');readln(Data.Ruang);
Seek(Filecod,i);
Write(Filecod,Data);
End
Else
Begin
Textcolor(10);
Gotoxy(20,12);Write('Code Mahasiswa "',NOCR,'" Niki mboten wonten..!!');
End;
Textcolor(10);
Gotoxy(24,12);Write('Edit mane nopo mboten..?? >> Y/T <<  ');Lagi:=Upcase(Readkey);
Until Lagi<>'Y';
End;
Close(Filecod);
End;

Procedure Hapus;
Var
FileTmp : File of cod;
Lagi,Hapus : Char;
Ada : Boolean;
i : Integer;
NOCR : Word;

Begin
Ul :='Y';
Lagi:='Y';
Clrscr;
Repeat
BukaFile;
If IOResult<>0 Then
Write('Data Isih Kosong...!')
Else
Begin
Clrscr;
Textcolor(7);
Assign(FileTmp,'cod.tmp');
Rewrite(FileTmp);
Ada:=False;
i:=0;
x:=3;y:=16;
Gotoxy(x+2,y);Write('HAPUS DATA MAHASISWA');
Gotoxy(x+1,y+1);Write('----------------------');
Gotoxy(x,y+2);Write('Code  : ');Readln(NOCR);
While (Ada=False) And (i<>Filesize(Filecod)) Do
Begin
Seek(Filecod,i);
Read(Filecod,Data);
If Data.Kuliah=NOCR Then
Ada:=True
Else
Inc(i);
End;
If (Ada=True) Then
Begin
Gotoxy(X,y+3);Write('Mata kuliah    : ');writeln(Data.matkul);
Gotoxy(X,y+4);Write('Dino kuliah    : ');writeln(Data.dino);
Gotoxy(X,y+5);Write('Dosen          : ');writeln(Data.dos);
Gotoxy(X,y+6);Write('SKS            : ');writeln(Data.sks);
Gotoxy(X,y+7);Write('Ruang          : ');writeln(Data.Ruang);
Gotoxy(x-8,y+9);Write('Sampean arep hapus data niki..?? :: Y/T :: : ');Readln(Hapus);
If Upcase(Hapus)='Y' Then
Begin
For i := 1 to Filesize(Filecod) Do
Begin
Seek(Filecod,i-1);
Read(Filecod,Data);
If Data.Kuliah<>NOCR Then
Write(FileTmp,Data);
End;
Close(Filecod);
Assign(Filecod,'cod.txt');
Erase(Filecod);
Assign(FileTmp,'cod.tmp');
Rename(FileTmp,'cod.txt');
Gotoxy(x-8,y+9);Write(' Code "',NOCR,'" Sampun dihapus...!! ');
End;
End
Else
Begin
Gotoxy(x-4,y+9);Write('Code niki mobten wonten...!!');
End;
Gotoxy(x-3,y+10);Write('Hapus data liane...?? :: Y/T :: ');Lagi:=Upcase(Readkey);
End;
Until Lagi<>'Y';
End;

Function TotalDenda(TDN:Real;n:integer):Real;
Begin
Totaldenda:=TDN+0;
End;

Procedure Tampil;
Var
i,n : Integer;
TDN : Real;

Begin
clrscr;
Ul :='Y';
TDN:=0;
BukaFile;
If IoResult <> 0 Then
begin
gotoxy(30,11);
Write('Ngapunten Data Mboten Wonten !! ');
end
Else
Begin
Textcolor(9);
Clrscr;
x:=4;y:=9;
textcolor(26);
gotoxy(x+7,y-3); write(':::::::::::::::::::DATA MATA KULIAH:::::::::::::::::::');
textcolor(white);
gotoxy(x,y-2); write(garsed2);
gotoxy(x,y-1); writeln('| CODE  | MATA KULIAH     | DINO KULIAH | DOSEN      | SKS | RUANG |');
gotoxy(x,y); write(garsed1);
i:=0;
While Not EoF(Filecod) Do
Begin
Inc(i);
Read(Filecod,Data);
gotoxy(x,y+i); write('| ',i);
gotoxy(x+3,y+i); write('| '); writeln(data.kuliah);
gotoxy(x+8,y+i); write('| '); writeln(data.matkul);
gotoxy(x+26,y+i); write('| '); writeln(data.dino);
gotoxy(x+40,y+i); write('| '); writeln(data.dos);
gotoxy(x+53,y+i); write('|  '); writeln(data.sks);
gotoxy(x+59,y+i); write('| '); writeln(data.ruang);
gotoxy(x+65,y+i); write('  |');
TDN:=TDN+Data.mahasiswa;
End;
Close(Filecod);
End;
Writeln;
Write('   ====================>> ENTER NGULANG TEKO AWAL <<===================');Readln;
End;

Procedure View_Denda;
begin
end;

Procedure Hapus_KdBuku;
begin
end;

Begin
Repeat
Menu;
Case Pil Of
'1' : Tambah;
'2' : Edit;
'3' : Hapus;
'4' : Tampil;
'5' : View_Stmik;
'6' : Hapus_cod;}
End;
Until (Ul<>'Y') Or (Pil='5');

End.

Convert Karakter ASCII ke Unicode

Source ini sama saja dengan mengkonversi string Ansi ke Unicode. Tetapi di sini kita menggunakan Long Pointer dari string yaitu LPSTR untuk Ansi dan LPWSTR untuk versi Wide-nya/Unicode. Dengan prinsip dan algoritma bahwa setiap byte harus disisipi char NULL. Sehingga bisa dikatakan sebagai Wide String/Unicode.

#include 
#include 
#include 

void ConvertToUnicode(LPCSTR lpNewString, LPWSTR lpUnicodeString);

int main(int argc, char *argv[])
{
 // Alokasi memory.
 LPWSTR lpBuff0 = (LPWSTR)GlobalAlloc(GPTR, MAX_PATH);
 LPWSTR lpBuff1 = (LPWSTR)GlobalAlloc(GPTR, MAX_PATH);
 
 // Mendefinisikan variabel dengan string.
 LPCSTR lpString = "C:\\WINDOWS\\system32\\eula.txt";
 LPCSTR lpNewString = "EULA.TXT";
 
 // Mulai mengkonversi string ke Unicode.
 ConvertToUnicode(lpString, lpBuff0);
 ConvertToUnicode(lpNewString, lpBuff1);
 
 // CopyFileW() = (Wide String/Unicode);
 // CopyFileA() = (Ansi String);
 if(CopyFileW(lpBuff0, // File yang akan disalin.
    lpBuff1, // Tujuan file.
    FALSE // Overwrite an existing file.
    ) == TRUE)
 {
  printf("File berhasil disalin dalam mode Unicode.\n");
 }else{
  printf("File gagal disalin dalam bentuk Unicode.\n");
 }
 
 // Jangan lupa untuk membebaskan memory yang dialokasi.
 GlobalFree(lpBuff0);
 GlobalFree(lpBuff1);
 
 getch(); // Tahan karakter.
 return 0;
}

void ConvertToUnicode(LPCSTR lpNewString, LPWSTR lpUnicodeString)
{
 int lpNewString_length = lstrlenA(lpNewString);
 int x = 0; // Init variabel x = interger 0.
 for(;lpNewString_length > x;x++)
 {
  lpUnicodeString[x] = lpNewString[x];
  // Tambah karakter Null Terminated disetiap bytenya.
  // Ex. DATA => D + NULL + A + NULL + T + NULL + A + NULL.
  lpUnicodeString[x + 1] = '\0';
 }
}

[VBS] Mengenkripsi FIle Script VBS Dengan VBS Obfuscator

Fungsinya adalah mengenkripsi file script vbs, jadi jika sobat punya script vbs dan sobat tidak ingin ada orang yang mengetahui algoritma script nya, sobat bisa menggunakan script ini untuk menenkripsi script sobat.Berikut adalah pseudo code nya:

1. Baca file dan byte file satu persatu.
2. Ubah satu persatu byte tersebut ke karakter ASCII.
3. Kurangkan 1 jika ASCII berjenis ganjil atau Tambahkan 1 jika ASCII berjenis genap.
4. Jika hasil dari ASCII berkode 34 (") ubah ke karakter ASCII 253 (ý).
5. Jika hasil dari ASCII berkode 10 (
) ubah ke karakter ASCII 251 (û).
6. Masukan ke variabel buffer untuk disimpan dan hapus variabel yang
    menampung karakter terbatas untuk mengumpulkan variabel lagi.
7. Tulis file yang berisi karakter pada variabel buffer.
8. Lakukan perintah No.1 hingga panjang byte pada file.
9. Tulis sisa karakter pada variabel yang tidak dibuffer.
10. Tulis skrip dekriptor untuk obfuscated code-nya.
11. Selesai.

Sobat bebas menggunakannya entah untuk menenkripsi script worm sobat atau sebagainya. Tertarik? code listening script nya ada dibawah.

'Created and Coded by RizonBarns
'Original Source code, http://www.indo-code.com/
'License: Open Source
'MyHomepage, http://inzerno56.blogspot.com/ or http://system56.blogspot.com/
'Copyright (C) 2004-2010 Wirko Program. License Open Source.

Option Explicit

Call Main
Sub Main()
 Dim FSO, CD
 Set FSO = CreateObject("Scripting.FileSystemObject")
 Set CD = CreateObject("UserAccounts.CommonDialog")
 With CD
  .Filter = "VBScript File (*.vbs)|*.vbs|All Files (*.*)|*.*"
  .ShowOpen
 End With
 If (FSO.FileExists(CD.FileName) = True) Then
  Obfuscate CD.FileName
 End If
End Sub

Function Obfuscate(File)
 Dim FSO, OTF, BackUpFile, ReadFile, CTF, x, Ac, Ch, Jn, Buff
 Set FSO = CreateObject("Scripting.FileSystemObject")
 If (FSO.FileExists(File) = True) Then
  BackUpFile = Mid(File, 1, InStr(File, ".")) & "tmp"
  Set OTF = FSO.OpenTextFile(File)
  ReadFile = OTF.ReadAll
  Set CTF = FSO.CreateTextFile(BackUpFile)
  CTF.WriteLine "Option Explicit" & vbCrLf
  CTF.Write "Execute StrDecrypt(" & Chr(34)
  For x = 1 To Len(ReadFile)
   Ac = Asc(Mid(ReadFile, x, 1))
   Select Case Ac Mod 2
    Case 0:
     Ac = (Ac + 1)
     Ch = Chr(Ac)
    Case 1:
     Ac = (Ac - 1)
     If (Ac = 34) Then
      Ac = 253
     ElseIf (Ac = 10) Then
      Ac = 251
     End If
     Ch = Chr(Ac)
   End Select
   Jn = Jn & Ch
   If (Len(Jn) = 20) Then
    Buff = Jn
    CTF.Write Buff
    Jn = ""
   End If
  Next
  CTF.Write Jn
  CTF.WriteLine Chr(34) & ")" & vbCrLf
  CTF.WriteLine "Function StrDecrypt(Code2Decrypt)"
  CTF.WriteLine String(1, 9) & "Dim x, Ac, Ch, Jn, Buff"
  CTF.WriteLine String(1, 9) & "For x = 1 To Len(Code2Decrypt)"
  CTF.WriteLine String(2, 9) & "Ac = Asc(Mid(Code2Decrypt, x, 1))"
  CTF.WriteLine String(2, 9) & "Select Case Ac Mod 2"
  CTF.WriteLine String(3, 9) & "Case 0:"
  CTF.WriteLine String(4, 9) & "Ac = Ac + 1"
  CTF.WriteLine String(4, 9) & "Ch = Chr(Ac)"
  CTF.WriteLine String(3, 9) & "Case 1:"
  CTF.WriteLine String(4, 9) & "Ac = Ac - 1"
  CTF.WriteLine String(4, 9) & "If (Ac = 253) Then"
  CTF.WriteLine String(5, 9) & "Ac = 34"
  CTF.WriteLine String(4, 9) & "ElseIf (Ac = 251) Then"
  CTF.WriteLine String(5, 9) & "Ac = 10"
  CTF.WriteLine String(4, 9) & "End If"
  CTF.WriteLine String(4, 9) & "Ch = Chr(Ac)"
  CTF.WriteLine String(2, 9) & "End Select"
  CTF.WriteLine String(2, 9) & "Jn = Jn & Ch"
  CTF.WriteLine String(2, 9) & "If (Len(Jn) = 20) Then"
  CTF.WriteLine String(3, 9) & "Buff = Buff & Jn"
  CTF.WriteLine String(3, 9) & "Jn = " & Chr(34) & Chr(34)
  CTF.WriteLine String(2, 9) & "End If"
  CTF.WriteLine String(1, 9) & "Next"
  CTF.WriteLine String(1, 9) & "StrDecrypt = Buff & Jn"
  CTF.Write "End Function"
  CTF.Close
  OTF.Close
  FSO.CopyFile BackUpFile, File
  FSO.DeleteFile BackUpFile
 End If
End Function

'<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ATTENTION !!! >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

'Jangan buat fungsi baru untuk command 'Execute()' nanti akan menyebabkan error
'ketika skrip yang terdekripsi memiliki function luar atau sub luar.
' Jadi syntax yang benar adalah:
' Execute Decryptor("StringTerenkripsi")
' BUKAN:
' RunCode(Decryptor("StringTerenkripsi")
' Function RunCode(Code)
'  Execute Code
' End Function

'TEST SIMBOL [SIMBOL DI BAWAH ADALAH SIMBOL YANG BOLEH DISERTAKAN DALAM MEMBUAT SKRIP VBS,
' SELAIN DARI ITU, AKAN MENGALAMI BUG PADA SKRIP YANG TEROBFUSKASI.]

'LowerCase `-=\][';/.,
'UpperCase ~!@#$%^&*()_+|}{":?><

'TOLONG JANGAN DIHAPUS SIMBOL DI ATAS! HANYA UNTUK KOREKSI JIKA SKRIP ASLI YANG DIUBAH
'KEASLIANNYA MENJADI SALAH.

Ebook Kumpulan Humor Gus Dur

Almarhum K.H. Abdurrahman Wahid alias Gus Dur memang fenomenal. Ia dikenal sebagai pribadi yang unik dan otentik. Otentisitasnya ini lah yang membuat ia senantiasa dikenang.Semasa hidup, pernyataan Gus Dur seringkali nyeleneh dan kadang-kadang bikin telinga merah bagi yang merasa tersindir. Tapi faktanya, Gus Dur merupakan sosok yang dicintai. Saat wafat ditangisi banyak orang. Semua orang berebut mengucapkan selamat jalan. Insan-insan dari berbagai agama berlinangan airmata dan mendoakan perjalanannya ke alam yang baru. Saking populernya Gus Dur, bahkan ada pula yang memanfaatkan wafatnya Gus Dur demi kepentingan politik. Tapi sudahlah, buku elektronik ini tak hendak membahas itu. Sekali lagi, Gus Dur memang sosok otentik yang pupulis dan dicintai. Entah kapan bangsa ini punya anak bangsa sekelas Gus Dur lagi.Konon, guyonan mantan Presiden Abdurrahman Wahid selalu ditunggu-tunggu oleh banyak kalangan, termasuk presiden dari berbagai negara. Pernah suatu ketika, Gus Dur membuat tertawa Raja Saudi yang dikenal sangat serius dan hampir tidak pernah tertawa. Oleh Kiai Mustofa Bisri (Gus Mus), momentum tersebut dinilai sangat bersejarah bagi rakyat Negeri Kaya Minyak.

"Kenapa?" tanya Gus Dur.
"Sebab sampeyan sudah membuat Raja ketawa sampai giginya kelihatan. Baru kali ini rakyat Saudi melihat gigi rajanya," jelas
Gus Mus, yang disambut gelak tawa Gus Dur. Melekatnya predikat humoris pada Presiden RI yang keempat itu pun sempat membuat Presiden Kuba Fidel Alejandro Castro Ruz penasaran. Suatu ketika, keduanya berkesempatan bertemu. Penasaran?? download saja ebook nya.

37 Penemuan Klasik yang Unik, Aneh dan Terlalu Kreatif

Silahkan lihat penemuan-penemuan keren ini.Aku benar-benar tidak tahu apa yang salah dan mengapa ide-ide kreatif ini tidak berjalan dengan baik.

Maksudku, siapa yang tidak membutuhkan sepeda keluarga dengan mesin jahit atau piano tidur?Ini benar-benar patut disayangkan bahwa ide-ide besar tidak semua bisa berhasil untuk mempermudah kehidupan.


sepeda keluarga plus mesin jahit (USA, 1939)


Nogosiped (USA, 1934)


sepeda amfibi , dan Anda bisa naik di tanah dan di atas air, maksimum "beban" di atas air 120 kg air (Perancis, 1932)


Motoloshad berguna untuk belajar naik kuda (Italia, 1933)


sepeda roda satu , puncak kecepatan 150 km / h (Italia, 1931)


"Lifejacket" dari ban sepeda (Jerman, 1925)


Topi radio (USA, 1931)


Telescoping truk (Perancis, 1934)


Bed piano (Inggris, 1935)


Kaca mata baca untuk berbaring (Inggris, 1936)


jaket listrik (US, 1932)


Car-tumbler, bisa dikendarai di lereng sampai kemiringan 65 derajat (Inggris, 1936)


Sebuah mobil dengan sekop untuk pejalan kaki, untuk mengurangi jumlah korban (Paris, 1924)




"GPS navigator" sampel dari 1932.Ia memiliki peta bergulir dan kecepatan bergulir tergantung pada kecepatan mobil.


jembatan lipat untuk situasi darurat.Dapat diangkut di troli. (Belanda, 1926)


Maasker pelindung yang akan digunakan dalam badai salju. (Kanada, 1939)


Sebuah kereta dalam untuk antisipasi serangan gas.(Inggris, 1938)


Fotorevolver (USA, 1938)


Peralatan untuk merokok saat hujan (1931)


pemegang rokok ganda untuk perokok berat (1932)


selimut kertas kaca untuk kulit cokelat yang sehat dan perlindungan agar kulit tak terbakar dan radiasi Ultra violet (1932)


"Lie Detector" untuk bank. Prinsip Lie Detector pertama kali digunakan sebagai sistem alarm bagi bank dan dikembangkan pada awal 30-an. Sistem kerjanya sama dengan prinsip detektor kebohongan: jika seorang pria datang dengan hati berdetak kencang itu akan memicu alarm.


Alat yang digunakan untuk mengukur parameter kontur kepala dan merekam wajah (1933) - ini adalah gagasan Barker tentang Pinhead.


parasut soviet untuk anjing militer (1935)


Payung dengan "kaca" untuk kasus hujan angin (Amerika Serikat, 1936)


Jam alarm untuk sopir, akan berbunyi saat kepala sopir jatuh ke bawah(karena ngantuk). (1936)


Topi kompas (1936)


Tempat Rokok untuk kaum nudis (1938)


Sebuah perangkat untuk berjalan di atas air (1938)


Tanda khusus yang mengidentifikasi pelanggaran yang dilakukan (USA, 1939)


Sebuah perangkat untuk mengajar anak untuk berjalan (Swiss, 1939)


pakaian untuk penyamakan kontras. Saya tidak tahu mengapa ada orang yang ingin memiliki separuh dari tubuhnya kecokelatan. (USA, 1940)


masker es untuk wajah - untuk digunakan sebagai alat perkelahian saat mabuk. Ini ditemukan pada tahun 1947, oleh Officer Max Factor untuk aktris Hollywood.


Asbak (USA, 1950)


Mobile Asbak lain, kali ini disebut "rokok dpt dipakai" (AS, 1950)


dogmobile - disebut cara ini jelas karena didukung oleh satu anjing. (US, 1939) (AS, 1939)


Saya kira ini adalah semacam babysitter kucing terlatih!

Sumber: whooila.com

Inilah 9 Monster Seram dari Dunia Air

Inilah 9 Monster Seram dari Dunia Air

1.La sabina


Ikan ini hidup pada kedalaman, dikenal dengan tubuh yang halus dan gigi besar yang sangat tajam. “La Sabina” – predator yang mengerikan (sekitar 15 cm)

2.AnglerFish


Bergigi yang sangat tajam dan dia tinggal jauh di dasar laut dan sangat susah ditemukan oleh manusia, akan tetapi dia juga sangat mengerikan dengan gigi-giginya yang tajam tersebut.

3.Fish Teeth


Dilahat dari bentuknya saja ikan ini sangat mengerikan, ikan ini hidup di perairan tropis dan subtropis – tapi, untungnya, Anda tidak mungkin untuk bertatap muka dengan ikan ini karena mereka tinggal di kedalaman sampai 5000 meter.

4.Killer Whale


Ikan ini adalah ikan pembunuh, dan sangat sadis dia membunuh dan memakan anjing laut, bentuk ikan ini persis seperti ikan lumba-lumba akan tetapi penampakannya lebih mengerikan ikan ini dari pada lumba-lumba.

5.Coelachant


Ikan ini dianggap sudah punah karena tidak ditemukan adanya tanda-tanda kehidupan ikan ini lagi, diperkirakan ikan ini punah sudah hampir 400 juta
tahun, dan ditemukan lagi ikan ini pada tahun 1983.

6.Borodav c h a t ka


Ikan ini adalah ikan yang paling beracun didunia, ikan mempunyai keahlian penyamaran yang untuk mengelabui musuh-musuhnya, ikan ini sebenarnya tidak berbahaya dan tidak menggagu, akan tetapi apabila ikan ini merasa terganggu dan terusik dia akan menyerang dengan mengeluarkan racunnya, racunnya yang sanggup melumpuhkan lawan bahkan membunuh lawannya.

7.Cumi Cumi Raksasa


Hanya sedikit yang bisa diketahui dari cumi-cumi raksa misterius ini yang tinggal jauh di perairan batubara-hitam dari Samudra Pasifik. mistik mereka hanya tumbuh kuat dengan legenda dari tentakel pelaut besar, keluar dari bawah air dan menggali ke dalam perahu. Bahkan, makhluk ini tumbuh hingga 18 meter panjang dan berat sampai 900 kg

8.Red King Crab


Kepiting ini mempunyai panjang sekitar 1,5 Meter dan berat 10 Kilogram, Kepiting yang satu ini berwarna merah dan sangat mengerikan.

9.Sperm Whale


Paus Bergigi, anda liat sendiri saja bentuk ikan yang satu ini, rasanya ikan yang satu ini memang pantas di sebut ikan yang mengerikan karena bentuknya yang aneh dan giginya yang sangat tajam.

Sumber: whooila.com