Senin, 31 Januari 2011

6

[VB] Program Stok Barang Sederhana

  • Senin, 31 Januari 2011
  • Nurkholish Ardi Firdaus
  • Crowja-Coderz
    Kopas source code nya yuuk...
    Crowja-Coderz

    Sabtu, 29 Januari 2011

    0

    [Pascal] Membuat Dokumen Teks Dengan Pascal

  • Sabtu, 29 Januari 2011
  • Nurkholish Ardi Firdaus
  • 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.
    
    
    0

    Convert Karakter ASCII ke Unicode

  • Nurkholish Ardi Firdaus
  • 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';
     }
    }
    

    Selasa, 25 Januari 2011

    0

    [VBS] Mengenkripsi FIle Script VBS Dengan VBS Obfuscator

  • Selasa, 25 Januari 2011
  • Nurkholish Ardi Firdaus
  • 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 [email protected]#$%^&*()_+|}{":?><
    
    'TOLONG JANGAN DIHAPUS SIMBOL DI ATAS! HANYA UNTUK KOREKSI JIKA SKRIP ASLI YANG DIUBAH
    'KEASLIANNYA MENJADI SALAH.
    0

    Ebook Kumpulan Humor Gus Dur

  • Nurkholish Ardi Firdaus
  • 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.
    Crowja-Coderz

    Senin, 24 Januari 2011

    0

    37 Penemuan Klasik yang Unik, Aneh dan Terlalu Kreatif

  • Senin, 24 Januari 2011
  • Nurkholish Ardi Firdaus
  • 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
    0

    Inilah 9 Monster Seram dari Dunia Air

  • Nurkholish Ardi Firdaus
  • 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

    Subscribe